Seleccionar columna elegida mediante combobox
Una como cargar a un combobox de un userform los encabezados de mi hoja de calculo desde la L2 a S2.
Dos una vez cargado el combobox, según el valor elegido se seleccione los datos filtrados de la columna que elegimos según el valor elegido del combobox.
Gracias
Jesús
1 respuesta
Respuesta de Dante Amor
2
Prueba también con esto, lo que hace es salir del userform una vez que elijas la columna
Private Sub ComboBox1_Change()
'Por.Dante Amor
Application.CutCopyMode = False
If ComboBox1 = -1 Or ComboBox1 = "" Then Exit Sub
u = Range("P" & Rows.Count).End(xlUp).Row
c = ComboBox1.ListIndex + Columns("L").Column
Set r = Union(Range("E3:E" & u), Range(Cells(3, c), Cells(u, c)))
r.Select
Selection.Copy
Unload Me
End Sub
'
Private Sub UserForm_Activate()
'Por.Dante Amor
[E2].Activate
For i = Columns("L").Column To Columns("S").Column
ComboBox1.AddItem Cells(2, i)
Next
End SubSi tienes dificultades para adaptar el código, envíame tu archivo.
Mi correo [email protected]
En el asunto del correo escribe tu nombre de usuario “jesusmarpla” y el título de esta pregunta.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
