Ir ao conteúdo
  • Cadastre-se
Vanderson Gonçalves

RESOLVIDO Código VBA de condições para macros Excel

Recommended Posts

Boa noite pessoal,

 

Sou novo aqui no fórum e com excel também.... Então, tenho apanhado bastante.

 

Preciso de uma ajuda com uma macro bem simples e sei que poderam me ajudar.

 

O que preciso é de um código VBA com uma ou mais condições antes de executa-la, ex: Uma macro para imprimir (que já existe no caso em minha planilha), mais preciso que, esta macro só execute se tal celula não esteja vazia.

 

Desde já agradeço a quem puder me ajudar.

 

Fico no aguardo.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Tente algo como: 

Sub Verificar()If Plan1.[a1].value ="" then 'substitua por sua celula e planExit sub Else' Sua Macro   'insira o nome da sua macro aqui s/ a aspa simples no inicio da linhaEnd IfEnd Sub  
  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Prezado Basole,

 

Grato pela atenção,

 

Desculpe meu nivel de ignorância, mais não sei como indexar tal comando dentro da macro criada.

 

segue abaixo como está.

 

Sub imprimir()
'
' imprimir Macro
'

'
    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub

 

Obs. Quanto a substituições do nome e célula da planilha eu consegui fazer.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Sub imprimir()' imprimir MacroIf Plan1.[a1].value ="" then 'substitua por sua celula e planExit subElse    ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"End IfEnd Sub

juntando e misturando todo.fica esse trem ai acima. 

  • Curtir 1

Compartilhar este post


Link para o post
Compartilhar em outros sites

Ave... ta díficil brother.. tá dando erro..

você vai ter que desenhar kkkk, Segue o passo a passo de como está!

Sub imprimir_capa()

'

' imprimir_capa Macro

Application.ScreenUpdating = False

If RATEIO SIMP.[E14].value ="" then "O nome da planilha é "RATEIO SIMP." e a célula é "E14".

Exit sub

Else

Sheets(Array("CAPA", "RATEIO")).Select

Sheets("CAPA").Activate

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("RATEIO SIMP.").Select

Mgsbox "IMPRESSÃO COM SUCESSO!"

Application.ScreenUpdating = True

End Sub

O que está errado?

Erro de sintase no IF por diante!

Compartilhar este post


Link para o post
Compartilhar em outros sites

agora vai: 

Sub imprimir_capa()'    imprimir_capa Macro    Application.ScreenUpdating = False    If Sheets("RATEIO SIMP.").[E14].Value = "" Then        Exit Sub    Else        Sheets(Array("CAPA", "RATEIO")).Select        Sheets("CAPA").Activate        ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"        Sheets("RATEIO SIMP.").Select        MsgBox "IMPRESSÃO COM SUCESSO!", 0, "SUCESSO"    End If    Application.ScreenUpdating = TrueEnd Sub
  • Curtir 1

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

×