Quisiera poder arreglar una función en vba que me permite concatenar en comas las celdas seleccionadas.
El problema es que al concatenar, aparece un espacio antes de cada coma.
Necesito que no aparezca la coma, en el adjunto muestro el resultado deseado.
Function CONCATENARCELDAS(rango As Range)
For Each celda In rango.Cells
If celda.Value <> "" Then
resultado = resultado & ", " & celda.Value
End If
Next celda
resultado = Right(resultado, Len(resultado) - 2)
CONCATENARCELDAS = resultado
End Function
Buenas,
Quisiera poder arreglar una función en vba que me permite concatenar en comas las celdas seleccionadas.
El problema es que al concatenar, aparece un espacio antes de cada coma.
Necesito que no aparezca la coma, en el adjunto muestro el resultado deseado.
Function CONCATENARCELDAS(rango As Range) For Each celda In rango.Cells If celda.Value <> "" Then resultado = resultado & ", " & celda.Value End If Next celda resultado = Right(resultado, Len(resultado) - 2) CONCATENARCELDAS = resultado End Function
CONCATENAR.xlsm
Saludos.!