Excel – Resaltar en negrita la línea de la celda seleccionada

En largas hojas de Excel en las que hemos de movernos de izquierda a derecha y viceversa, es fácil perderse y no saber en qué línea estamos exactamente, con la consecuente confusión en los datos que leemos.

Para evitar esto, resaltaremos la línea de la hoja de Excel en la que nos encontremos así, al movernos a la derecha con el cursor, siempre tendremos en negrita la fila y estermos seguros de que los datos que leemos son los que queríamos leer.

Hace falta un poco de programación de nivel muy básico. Ahí va:

  1. Nos ponemos sobre la lista de datos en cualquier celda
  2. En la cinta de opciones de Excel vamos a Estilo (en Inicio) y pulsamos sobre Dar formato como tabla
  3. Nos aparece este diálogo. Si tenemos encabezados -que es lo normal- pulsamos el tic
  4. Ya tenemos una tabla en lugar de una lista. Ahora vemos que, nos da como nombre por defecto Tabla1 (aparece arriba a la izquierda).
  5. Vamos a darle un nombre más familiar para que podamos referirnos a ella sin confusión en el futuro; especialmente a la hora de programar. Pulsamos sobre CTRL y F3 simultáneamente
  6. Seleccionamos la fila donde pone Tabla1 en este diálogo y luego en Editar (el botón de arriba en el medio). Se abre otro diálogo y escribimos el nombre que queramos, por ejemplo MiTabla
  7. Aceptamos y comprobamos el cambio
  8. Ya lo tenemos todo listo para programar. Vamos al menú Programador en la cinta principal de Inicio
  9. Ahora escogemos Visual Basic que está a la izquierda del todo.
  10. Clic sobre Hoja1 a la izquierda donde pone Proyecto – VBAProject
  11. En el desplegable del medio, donde pone (General), cambiamos a WorkSheet y, en el de la derecha donde pone (Declaraciones) cambiamos a SelectionChange, para que quede así
  12. Escribimos el código que ya he puesto arriba que es
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error GoTo ERROR_NEGRITA
    ActiveSheet.Range(“MiTabla”).Font.Bold = False
    Selection.EntireRow.Font.Bold = True
    ERROR_NEGRITA:
    Exit Sub
    End Sub
  13. Ahora veremos que según cambiamos de fila, ésta se va remarcando en negrita, si pulsamos fuera de nuestra tabla MiTabla, desaparece la negrita.