Chamar instrução co...
 
Notifications
Clear all

Chamar instrução com condição

2 Posts
2 Usuários
0 Reactions
997 Visualizações
(@fabril15)
Posts: 1
New Member
Topic starter
 

Olá,
Espero que possam me ajudar!

Tenho uma planilha com uma macro que permite deixar a em tela cheia:
__________________________________________
'Quando abrir o arquivo
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
With ActiveWindow
.DisplayWorkbookTabs = False
.DisplayHeadings = False
End With
Sheets("BM").Select
With ActiveWindow
.DisplayHeadings = False
End With
Sheets("Instruções").Select
Range("C11").Select

__________________________________________

Eu coloquei ela em "EstaPasta_de_trabalho" selecionando "Workbook" para que ela fosse executada toda vez que o arquivo fosse aberto. Deu certo.
Porém antes que ela seja executada, preciso que tenha uma condição. Então criei um módulo somente com essa instrução (TELA_CHEIA), e nessa "Workbook" queria uma instrução de condição. Tipo, se na aba "BM" a célula A23 estiver diferente de 0, ela chame a instrução TELA_CHEIA, caso a célula continue vazia, ele n execute a macro TELA_CHEIA.

Desde já, agradeço!!!!

 
Postado : 01/11/2019 7:15 pm
(@fbrisso)
Posts: 18
Active Member
 

Olá fabril15,

Cole esse Macro que colocou aqui em um módulo e no Workbook Open, coloque essa linha de código:

Private Sub Workbook_Open()

    If Sheets("BM").Range("A23") <> 0 Then
        Call TELA_CHEIA
    Else
        Exit Sub
    End If

End Sub
 
Postado : 01/11/2019 7:54 pm