Buscar una columna por su nombre y saber su última fila con datos

Escrito por Administrador

1 de marzo de 2023

Vamos a ver cómo buscar una columna por su nombre y, a continuación, saber cual es su última fila con datos. Es un paso más de lo tratado en la Lección 15: Buscar un valor en una columna Excel (Find) que me habéis pedido en los comentarios.

He creado una tabla con un encabezado formado por profesiones comunes y una serie de datos como la de la figura,

enviar-pedidos-proveedores-por-email-excel

El funcionamiento es muy simple. Rellenamos el campo "Profesión" y pulsamos el botón para que, automáticamente, el programa nos indique la columna correspondiente, junto con la última fila que dispone de datos.

Os comparto el código que se esconde detrás del botón,

Sub Buscar()

'Si está vacío el campo Profesión, mostramos mensaje de error y salimos de la macro

If IsEmpty(Cells(3, "B")) Then

MsgBox "Es necesario rellenar la profesión"
Exit Sub

End If

'Guardamos la profesion introducida en B3 en la variable profesion

profesion = Cells(3, "B").Value

'Buscamos la profesion en la sexta fila

Set dato = Range("A6:AA6").Find(profesion, LookIn:=xlValues, LookAt:=xlWhole)

'Si no se ha encontrado en la lista, mostramos aviso

If dato Is Nothing Then

MsgBox "Profesión no contemplada en la lista"

Else

'En caso contrario, guardamos el valor de la columna y buscamos la última fila con datos de esa columna

columna = dato.Column
fila = Cells(Rows.Count, columna).End(xlUp).Offset(0, 0).Row

'La seleccionamos para visualizarla mejor

Cells(fila, columna).Select

'Finalmente, mostramos en una ventana de texto el valor de la fila y columna

MsgBox "Columna: " & columna & " Fila: " & fila

End If

End Sub

Si, por ejemplo, elegimos la profesión "Fontanero",

enviar-pedidos-proveedores-por-email-excel

Nos indica que su columna es la número 5 y que la última fila con datos es la 10.

Para el caso de la profesión "Peluquero",

enviar-pedidos-proveedores-por-email-excel

Su columna es la número 8 y la última fila con datos la 13.

Espero que te sirva este ejemplo para buscar una columna por su nombre y saber su última fila con datos. Descarga el archivo de ejemplo y practica.

Por último, invitarte a compartir tus dudas en los comentarios o en el foro, y a darle clic a la publicidad de abajo para ayudarme a seguir creando contenido.

Hasta la próxima.

Descarga el archivo del ejemplo

Por favor, haz clic en el anuncio y ayúdame a seguir creando contenido. Solo te lleva un segundo 😉



0 comentarios

Enviar 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.

Últimas publicaciones

Categorías

marzo 2023
L M X J V S D
 12345
6789101112
13141516171819
20212223242526
2728293031  

Debates en el foro

Avatar
Cuadro de texto

Contacto