Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Ideas para concatenar celdas con VBA o Macros

| 4 Comments

Usualmente se concatena la data con pocas celdas.

Entonces que pasaria si deseo concatenar muchas mas celdas??

Para ello se creó la Función CONCATENARCELDAS HECHOS EN VBA:

Con esta función se logrará concatenar a grandes rangos de data de manera mas rápida.

A continuación se muestra el VBA:
Function ConcatenarCeldas(rango As Range)
For Each celda In rango.Cells
If celda.Value ” ” Then
resultado = resultado & “; ” & celda.Value
End If
Next
resultado = Right(resultado, Len(resultado) – 2)
ConcatenarCeldas = resultado
End Function

tarea4.2

(Para mayor visualización de la imagen, hacer click en la misma)

EL SIGUIENTE EJEMPLO ESTA AL FINAL DE LA HOJA CON LINK DE DESCARGA DEL EXCEL

tarea4.1

__________________________________
Concatenar celdas con VBA o Macros

4 Comments

  1. Hola buenas tardes, he realizado esta Practica, pero a la hora de querer llamar la Funcion en EXCEL no la manda llamar, sigue apareciendo solo la funcion CONCATENAR nativa de Excel, en un principio si me aparecían ambas, pero ahora no la manda llamar, que puede ser lo que no permita llamar la funcion??, de favor.
    Por anticipado muchas gracias por su gran ayuda.

    • Buenas tardes, verifique si guardo el código en un modulo y que el libro donde este el modulo este abierto a la hora de emplear la funcion

    • Buenas tardes, verifique si guardo el código en un modulo y que el libro donde este el modulo este abierto a la hora de emplear la funcion

      Igualmente el código correcto de la función es como aparece en la imagen:

      Lo transcribo:

      Function ConcatenarCeldas(rango As Range)
      For Each celda In rango.Cells
      If celda.Value ” ” Then
      resultado = resultado & “; ” & celda.Value
      End If
      Next
      resultado = Right(resultado, Len(resultado) – 2)
      ConcatenarCeldas = resultado
      End Function

      ** Por ultimo al buscar en funciones debera aparecer al lado de la nativa Concatenar aparece ConcatenarCeldas, que es la que corresponde al código, brillantemente planteado por Fernando Santos

      • Function ConcatenarCeldas(rango As Range)
        For Each celda In rango.Cells
        If celda.Value ” ” Then
        resultado = resultado & “; ” & celda.Value
        End If
        Next
        resultado = Right(resultado, Len(resultado) – 2)
        ConcatenarCeldas = resultado
        End Function

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5