Buscar y remarcar los valores en la hoja Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

En muchas ocasiones necesitamos buscar y remarcar los valores en la hoja Excel, para manipular sus datos.

Buscar y remarcar los valores en la hoja Excel

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.

Origen de datos para buscar la empresa deseada en columna A
 
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. 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 = 0

    While 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 = True

    End If

    'Sumamos el número de resultados
    nfila = nfila + 1

    Wend

    'Muestra mensaje con los resultados encontrados
    MsgBox "Encontradas:" + Str(num) + " Referencias como " + empresa, vbInformation, "Resultados encontrados"

    End If

    End Sub

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • EJECUTAR LA MACRO
  1. Ir a: Cinta de opciones / Pestaña: Vista / Grupo: Macros / Ver macros. Mostrará la ventana de macro.

  2. Seleccionar la macro BuscaDato / Pulsar el botón ejecutar. Mostrará inputbox.

    Inputbox para buscar la referencia
  3. Ir a: Buscar la referencia / Escribir: Empresa 2. O el texto deseado para buscar.

  4. Pulsar el botón Aceptar. Cierra la ventana, busca y remarca los valores en la hoja Excel.

    Columna 1 con los valores remarcados en columna A
  5. Mostrará ventana con los resultados obtenidos. Cierra la ventana, busca y remarca los valores en la hoja Excel.

    Mensaje de los resultados encontrados

  

Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.