Excel programação vba if em sheets

[valdir de Souza teixeira j]

Bom dia!!!

 Precisava de uma ajuda em programação VBA...

 

Tenho uma planilha(workbook) com várias abas(sheets)...

Nas abas (sheets) existem três condições(IF), sendo elas em células Ex:

planilha1 - célula A1 - "imprimir"

planilha2 - célula A1 - "não imprimir"

planilha3 - célula A1 - "imprimir"

planilha4 - célula A1 - "não imprimir"

Precisava de uma programação que fizesse impressão das planilhas que tiver resultado na célula A1 a palavra "imprimir" ou não imprimir quando tiver a palavra "não imprimir".

[R0DR1G0_CWB]

Boa tarde,

 

Acredito que esse código pode te ajudar.

 

Sub Imprimir()

    Application.ScreenUpdating = False

    If Worksheets("Planilha1").Cells(1, 1).Value = "imprimir" Then
        Worksheets("Planilha1").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
    
    If Worksheets("Planilha2").Cells(1, 1).Value = "imprimir" Then
        Worksheets("Planilha2").Select
        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
    End If
    
    MsgBox "Concluído!"
    
End Sub

 

[]'s

[CasaDoHardware]

Este é mais simples e se aumentar o numero de guias nao precisa alterar o codigo

 

 

Sub Imprimir()

 

Dim Sh as worksheets

 

For each sh in worksheets

if ws.name <> "Menu" and ws.range("A1").value = "Imprimir" Then 'Menu deve ser uma planilha principal que você tem como referencia e provavelmente nao vai imprimir em nenhum momento. Se tiver outro nome é so trocar o nome Menu 

 

sh.printout

 

end if

 

end sub

 

 

[valdir de Souza teixeira j]

obrigado Galera!!!!!