Ir ao conteúdo
  • Cadastre-se
Jessé Jr.

Excel RESOLVIDO liberar botão comando após preencher celula

Posts recomendados

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Veja se aproveita.

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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites
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.

Compartilhar este post


Link para o post
Compartilhar em outros sites
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

 

 

 

  • Curtir 2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Obrigado Osvaldo

Resolveu sim

Ficou show

como finalizo o Tópico?

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Boa noite @Jessé Jr.

 

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

 

[]s

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

GRÁTIS: minicurso “Como ganhar dinheiro montando computadores”

Gabriel TorresGabriel Torres, fundador e editor executivo do Clube do Hardware, acaba de lançar um minicurso totalmente gratuito: "Como ganhar dinheiro montando computadores".

Você aprenderá sobre o quanto pode ganhar, como cobrar, como lidar com a concorrência, como se tornar um profissional altamente qualificado e muito mais!

Inscreva-se agora!