Boa tarde,

Tenho as linhas de 2 a 109. Da linha 2 a 55 é a página 1. Da 56 a 109 a página 2. A página 2 está oculta por padrão e deve ser usada quando a 1 estiver toda preenchida.

Estou utilizando as seguintes macros:

Sub ocultar_Pg1()
Set pagina1 = Range("2:55"): Set pagina2 = Range("56:109")
pagina1.EntireRow.Hidden = True: pagina2.EntireRow.Hidden = False
End Sub

Sub ocultar_Pg2()
Set pagina1 = Range("2:55"): Set pagina2 = Range("56:109")
pagina1.EntireRow.Hidden = False: pagina2.EntireRow.Hidden = True
End Sub

Basicamente, as macros alternam entre a página 1 e a 2.

Preciso ajustar a macro Sub ocultar_Pg1() para que ela só funcione caso a coluna D18:D45 esteja totalmente preenchida e caso não, retorne uma mensagem (por exemplo: por favor, preencha toda a página 1 antes de seguir para a página 2).