Macro para Buscar por Columnas

0

 


Código #1:


Private Sub TextBox1_Change()

    Dim F As Integer

    C = Range("B7").Value    

    Select Case C

        Case "ID"

            F = 1

        Case "Nombre"

            F = 2

        Case "Apellido"

            F = 3

        Case "Provincia"

            F = 4

    End Select    

    Dim texto As String

    If Hoja1.TextBox1.Value <> "" Then

        texto = "*" & Hoja1.TextBox1.Value & "*"

        Range("B12").CurrentRegion.AutoFilter Field:=F, Criteria1:=texto

    Else

        texto = ""

        Range("B13").CurrentRegion.AutoFilter

    End If

End Sub


Código #2:

Sub Limpiar()

    TextBox1 = ""

    Range("B13").CurrentRegion.AutoFilter

End Sub

Entradas que pueden interesarte

Entradas más recientes Entradas antiguas

Sin comentarios

Etiquetas:
#aprendiendoexcel365, #josealcaldealias, #Excel, #funciones, #UDF, #Visual Basic, #VBA, #DAX, #Tips, #Basico, #Microsoft Excel, #Cursos Excel OnLine, #Aprende Excel, #Aprende Excel OnLine, #Excel 365, #Power Pivot, #Power BI, #Power Query, #Google Sheets, #Macros, #Código VBA, #Tutoriales Excel, #MTV, #Vbscript, #TypeScript, #Lenguaje M, #fórmulas, #funciones, #paso a paso, #funciones Excel, #libros, #tablas, #formatos, #hojas, #datos, #gráfico, #análisis de datos, #base de datos, #dashboards, #tablas dinámicas, #excel desde cero, #hoja de cálculo, #plantillas de Excel