Buscar nombre y hoja del formulario
¿Cómo puedo hacer para buscar el nombre y la hoja en la tabla excel?
1 Respuesta
Respuesta de Dante Amor
1
Para buscar
Dim h2
'
Private Sub ComboBox1_Change()
'Por.Dante Amor
Call filtrar
End Sub
'
Private Sub TextBox1_Change()
'Por.Dante Amor
Call filtrar
End Sub
'
Sub filtrar()
'Por.Dante Amor
u = h2.Range("E" & Rows.Count).End(xlUp).Row
h2.Range("E2:F" & u + 2).Clear
ListBox1.RowSource = ""
h2.Range("C2") = TextBox1 & "*"
h2.Range("D2") = ComboBox1
u = h2.Range("A" & Rows.Count).End(xlUp).Row
h2.Range("A1:B" & u).AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=h2.Range("C1:D2"), CopyToRange:=h2.Range("E1:F1"), Unique:=False
u = h2.Range("E" & Rows.Count).End(xlUp).Row
If u > 1 Then
ListBox1.RowSource = h2.Name & "!E2:F" & u
End If
End Sub'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
