Este fórum está sendo desativado

[MARRAQY]

Boa tarde a todos,

Estou criando uma planilha com diversos botões de macro, sendo que um deles é para impressão, sendo que a ideia desse botão de impressão é imprimir apenas o que for selecionado na planilha.

Estes são os comandos que utilizei até então:

Código: Selecionar todos

Sub IMPRIMIR()
'
' IMPRIMIR Macro
'

'
If Sheets("Janeiro").Select Then

       Selection.PrintOut Copies:=1, Collate:=True
       
Else


End If
       
End Sub

Com isso, se eu selecionar as celulas que desejo imprimir e clicar no botão, tudo é impresso da forma correta, do contrário, se não há celulas selecionadas, um processo de impressão chega a ser enviado, todovia nada é impresso.

Resumindo, esta quase do jeito que eu quero, mas eu gostaria de colocar uma mensagem quando eu clicar no botão impressão e não tiver nada selecionado na planilha, algo do tipo "Para realizar a impressão, selecione as celulas desejadas".

Espero ter sido claro nas informações.


Obrigado desde já por qualquer ajuda.