Mostrar Titulo de una Hoja en un TextBox o en un ListBox
Dante Amor, hace unos días me ayudaste a solucionar un problema con un código, el cual anda perfecto, ahora lo que me gustaría hacer es agregar a ese mismo UserForm un TextBox o un ListBox para mostrar el TITULO de la Hoja que fue elegida en el ComboBox1. Los Títulos de Todas la Hojas están en el mismo lugar, Celda B2 a E2 unificadas.
1 respuesta
Respuesta de Dante Amor
1
H o l a : Agrega lo siguiente a tu macro:
'Poner el título
TextBox1 = h.Range("B2")Te anexo la macro actualizada:
Private Sub ComboBox1_Click()
ListBox1. Clear
ListBox1. SetFocus
'carga la informacion en el ComboBox
Set h = Sheets(ComboBox1.Value)
'
'Poner el título
TextBox1 = h.Range("B2")
'
uc = h.[B3].SpecialCells(xlLastCell).Column
uf = h.[B3].SpecialCells(xlLastCell).Row
If uf < 3 Then uf = 3
'carga la informacion en el ListBox
ListBox1.ColumnCount = uc
ColumnWidths = "80 pt; 100 pt; 50 pt; 120 pt"
ListBox1.List = h.Range(h.[B3], h.Cells(uf, uc)).Value
End SubOtra opción, es que pongas el título en un Label, es un dato que no vas a modificar, entonces es mejor ponerlo como etiqueta, quedaría así:
Private Sub ComboBox1_Click()
ListBox1. Clear
ListBox1. SetFocus
'carga la informacion en el ComboBox
Set h = Sheets(ComboBox1.Value)
'
'Poner el título
Label1 = h.Range("B2")
'
uc = h.[B3].SpecialCells(xlLastCell).Column
uf = h.[B3].SpecialCells(xlLastCell).Row
If uf < 3 Then uf = 3
'carga la informacion en el ListBox
ListBox1.ColumnCount = uc
ColumnWidths = "80 pt; 100 pt; 50 pt; 120 pt"
ListBox1.List = h.Range(h.[B3], h.Cells(uf, uc)).Value
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
