En muchas ocasiones necesitamos buscar y remarcar los valores en la hoja Excel, para manipular sus datos.
En la columna A disponemos del nombre de la empresa y en la columna B el importe de las ventas. Mediante la macro deseamos buscar los resultados con el nombre de la empresa.
- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro:
Sub BuscaDato()
Dim empresa As String' Borra resultados para próxima búsqueda
Range("A:A").Interior.Pattern = xlNone
Range("A:A").Font.Bold = False' Escribimos el valor a buscar
empresa = InputBox("Buscar la Referencia ...")If empresa <> "" Then
filaNombre = 2
nombrecolumna = 1
importecolumna = 3
nfila = filaNombre
num = 0While Cells(nfila, nombrecolumna) <> ""
If Cells(nfila, nombrecolumna) = empresa Then
' Sumamos el número de resultados
num = num + 1' Aplica formato sobre los resultados
Cells(nfila, nombrecolumna).Interior.Color = 65535
Cells(nfila, nombrecolumna).Font.Bold = TrueEnd If
'Sumamos el número de resultados
nfila = nfila + 1Wend
'Muestra mensaje con los resultados encontrados
MsgBox "Encontradas:" + Str(num) + " Referencias como " + empresa, vbInformation, "Resultados encontrados"End If
End Sub
Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.
- EJECUTAR LA MACRO
Ir a: Cinta de opciones
Pestaña: Vista Grupo: Macros Ver macros. Mostrará la ventana de macro.Seleccionar la macro BuscaDato
Pulsar el botón ejecutar. Mostrará inputbox.
Ir a: Buscar la referencia
Escribir: Empresa 2. O el texto deseado para buscar.Pulsar el botón Aceptar. Cierra la ventana, busca y remarca los valores en la hoja Excel.
Mostrará ventana con los resultados obtenidos. Cierra la ventana, busca y remarca los valores en la hoja Excel.
Excel Experto VBA - Macros