Excel liberar botão comando após preencher celula

[Jessé Jr.]

Bom dia pessoal

Sou novo por aqui e tenho um problema.

tenho uma planilha que após clicar no botão de comando ela salva e fecha a planilha.

Mas estou precisando que esse botão fique inativo até o preenchimento de duas celulas a D242 e a D243.
Estou usando o seguinte código neste botão:

Sub SalvaComo()
    
    Range("D3").Activate
    
Do While ActiveCell <> ""
    ActiveWorkbook.SaveAs ActiveCell, FileFormat:=52
    ActiveCell.Offset(1, 0).Activate
 
Loop
    Application.Quit
End Sub

[Visitante]

Veja se aproveita.

Sub SalvaComoV2()
 If [D242] = "" Or [D243] = "" Then Exit Sub
 ' coloque aqui o seu comando para salvar o arquivo
End Sub

 

[Jessé Jr.]

6 minutos atrás, osvaldomp disse:

Veja se aproveita.

Sub SalvaComoV2()
 If [D242] = "" Or [D243] = "" Then Exit Sub
 ' coloque aqui o seu comando para salvar o arquivo
End Sub

 

No caso ficaria desta forma?
Sub SalvaComoV2()

 If [D242] = "" Or [D243] = "" Then Exit Sub

Sub SalvaComo()
    
    Range("D3").Activate
    
Do While ActiveCell <> ""
    ActiveWorkbook.SaveAs ActiveCell, FileFormat:=52
    ActiveCell.Offset(1, 0).Activate
 
Loop
    Application.Quit
End Sub

End Sub

adicionado 7 minutos depois

Na realidade o comando para salvar o arquivo está funcionando bem.

Minha questão é que preciso que o botão onde se localiza o codigo fique inativo até que sejam preenchidas as celulas d242 e d243.

[Visitante]

7 horas atrás, Jessé Jr. disse:

Na realidade o comando para salvar o arquivo está funcionando bem.

Minha questão é que preciso que o botão onde se localiza o codigo fique inativo até que sejam preenchidas as celulas d242 e d243.

 

 

Experimente adicionar ao seu código o comando que eu sugeri, conforme abaixo.

Sub SalvaComo()

 If [D242] = "" Or [D243] = "" Then Exit Sub

Range("D3").Activate

...

...

End Sub

 

 

 

[Jessé Jr.]

Obrigado Osvaldo

Resolveu sim

Ficou show

como finalizo o Tópico?

[Patropi]

Boa noite @Jessé Jr.

 

Na minha assinatura tem um link para uma instrução de como marcar o tópico como Resolvido.

 

[]s