Disculpen una forma que mi ComboBox seleccione la hoja y la muestre en un ListBox
Tengo la forma de buscar los nombres de las hojas y mostrarlas en un ComboBox
Private Sub ComboBox1_Enter()
On Error Resume Next
Aplication.ScreenUpdating = False
ComboBox1.Clear
For h = 6 To 35
ComboBox1.AddItem Sheets(h).Name
Next h
End Sub
Que al seleccionar la estación en el listbox me muestre lo que hay en la hoja que se llama igual que la estación.
2 Respuestas
Respuesta de Dante Amor
2
Agrega el siguiente evento a tu userform
Private Sub ComboBox1_Change() 'Por.Dante Amor ListBox1.RowSource = "" If ComboBox1 = "" Or ComboBox1.ListIndex = -1 Then Exit Sub End If ' Set h = Sheets(ComboBox1.Value) uf = h.UsedRange.Rows(h.UsedRange.Rows.Count).Row uc = h.UsedRange.Columns(h.UsedRange.Columns.Count).Column celda = Cells(uf, uc).Address(False, False) ListBox1.ColumnCount = uc ListBox1.RowSource = h.Name & "!A1:" & celda End Sub
.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
