Macro para copiar un valor de una celda a otra
1. Tengo una serie de valores desde A1 hasta A30
2. Quiero extraer el valor de cada celda y llevarlos a una misma celda (Ej: A2) pero que esos valores queden separados por comas, es decir, todos los valores extraídos de A1 a A30 (Ejemplo, A2= AFP, Línea de negocio, Línea de producto, etc...
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro, en este caso el resultado te lo pone en la celda B2, ya que en tu ejemplo la celda A2 está dentro del rango A1 a A30. Pero si quieres que sea A2, entonces cambia en la macro "B2" por "A2":
Sub CopiarCelda()
'Por.Dante Amor
Set celda = Range("B2")
celda.ClearContents
For i = 1 To 30
If Cells(i, "A") <> "" Then
celda.Value = celda.Value & Cells(i, "A") & ","
End If
Next
If Right(celda, 1) = "," Then
celda = Left(celda, Len(celda) - 1)
End If
End Sub