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

[Vanderson Gonçalves]

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.

[Basole]

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  

[Vanderson Gonçalves]

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.

[Basole]

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. 

[Vanderson Gonçalves]

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!

[Basole]

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

[Vanderson Gonçalves]

Fera descobri o erro, tinha alterado o "." do nome da planilha... por isso o erro de tempo de execução, "9".

Muito obrigado!!!