Activar un buscador de texto al abrir una hoja

Acá te dejo el modulo completo:
Option Explicit
Dim existe As Boolean
Sub buscar()
Dim d As String
d = InputBox("Buscar", "buscador")
If Len(d) = 0 Then Exit Sub
filtrar (d) ' llama al sub que realiza el filtro segun criterio indicado
If existe = False Then
MsgBox d & " no se registra en el rango ", vbCritical
Exit Sub ' si el dato no existe en rango sale del sub
End If
d = MsgBox("Imprime Rango ?", vbYesNo + vbInformation)
If d = 6 Then imprime
End Sub
Sub filtrar(dato As String)
Dim n As Long
'verifica que existen datos en la hoja
n = Application.WorksheetFunction.CountA(Range("A:A"))
If n = 0 Then Exit Sub
'verifica que el dato ingresado existe en el rango antes de filtrar
If Application.WorksheetFunction.CountIf(Range("A:A"), dato) = 0 Then
existe = False
Exit Sub
Else
existe = True
End If
'ejecuta filtro
[A1].Select
Selection.AutoFilter
ActiveSheet.Range("$A$1" & ":" & "$B$" & n).AutoFilter Field:=1, Criteria1:=dato
End Sub
Sub imprime()
'imprime area seleccionada, previamente filtrada
Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,1,,,TRUE,,FALSE)"
Range("A1").Select
End Sub
Ok debes pegar todo esto en un solo modulo, esto se divide así:
Macro buscar
Macro filtrar
Macro imprimir
Ya puedes deducir que hace cada una.
Para efecto de estos macros considere lo siguiente
Rango de datos columnas A y B - debes ampliar el espectro en el macro filtrar, específicamente esta linea:
ActiveSheet.Range("$A$1" & ":" & "$B$" & n).AutoFilter Field:=1, Criteria1:=dato
si tus datos teminan en columna T debes reemplazar $B$ por $T$
El campo de criterio en este ejemplo es la columna 1, tu debes modificar ese valor poniendo el numero de la columna que ti deseas filtrar, para ello cambia el numero 1 que aparece en la linea anterior Field:=1
También debes modificar una linea en el macro filtrar, esta:
If Application.WorksheetFunction.CountIf(Range("A:A"), dato) = 0 Then
Debes indicar la referencia de la columna que contiene el dato a buscar, en caso de este ejemplo es col A.
Realizadas estas modificciones ya puedes correr el macro buscar.
Como trabaja:
Ingresas el dato a buscar
Si no existe, se te informa y termina la ejecución
Si existe, filtra los datos
Una vez filtrados se te pregunta si deseas imprimir
Si reusas termina ejecución, si aceptas imprime el rango seleccionado
Eso es todo.
No olvides Cerrar la pregunta