De 3 columnas de hoja1 excel unirlas en 1 sola columna en listbox1
Sr. DANTE AMOR es n hoja1 tengo datos en col A, B y C quiero unir estos datos en listbox1 con una sola columna de userform1
1 Respuesta
Respuesta de Dante Amor
2
Pon el siguiente evento en tu userform
Private Sub UserForm_Activate()
Set h1 = Sheets("Hoja1")
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem h1.Cells(i, "A") & h1.Cells(i, "B") & h1.Cells(i, "C")
Next
End SubSi quieres un espacio entre dato y dato, sería así:
Private Sub UserForm_Activate()
Set h1 = Sheets("Hoja1")
For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row
ListBox1.AddItem h1.Cells(i, "A") & " " & h1.Cells(i, "B") & " " & h1.Cells(i, "C")
Next
End Sub.
.
