Añadir msgbox si al filtrar una tabla no hay registros

Estoy filtrando datos de una tabla y copiando el resultado en otra hoja, me gustaría agregar un Msgbox que me diga "no hay registros" en caso de que al filtrar no existan registros. No sé cómo agregar esa excepción al código que tengo:

Worksheets("Hoja1").Range("B1").Autofilter Field:=2, Criterial:="BLANCO"

Worksheets.Add.Name = "Resultados"

... (Aquí va el resto del código donde le digo que me los copie en esa hoja)

No sé cómo añadir en lo anterior que si no hay registros al filtrar, me aparezca ese MsgBox... ¿alguna sugerencia?

Respuesta
1

[Hola 

después de tu filtro pon esto

fila = Worksheets("Hoja1").Range("B" & Rows.Count).End(xlUp).Row
If fila = 1 Then MsgBox "No existe registros"

1 respuesta más de otro experto

Respuesta
1

Esto

https://macrosenexcel.com/como-crear-un-msgbox-vba-en-exce/

https://macrosenexcel.com/msgbox-de-alerta-o-aviso

https://macrosenexcel.com/msgbox-solicita-respuesta-para-realizar 

Puedes detectar alguna celda donde debe tener registro y hacer lo siguiente

If range.("A2")= empty then Msgbxo("No existen registros en la base de datos")

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas