Guru do Excel e Power BI

Spinhosay escreveu: Como faço pra que ele ocorra automaticamente quando uma determinada célula for modificada?

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address <> "$A$1" Then Exit Sub
 Me.PageSetup.PrintArea = "B1:N" & IIf(Cells(Rows.Count, 3).End(xlUp).Row < 5, 5, Cells(Rows.Count, 3).End(xlUp).Row)
End Sub

mprudencio escreveu:Eu usaria ao clicar de um botao.

Assim vc executa qdo tiver certeza que o arquivo esta pronto para ser impresso.

osvaldomp escreveu:Visão contraída
REVISÃO DO TÓPICO: MACRO PARA "DEFINIR ÁREA DE IMPRESSÃO" AUTOMATICAMENTE

mprudencio escreveu:Coloca o codigo que define a area de impressao junto do seu codigo que efetivamente imprime o arquivo.

Aproveitando o codigo do Osvaldo eu usaria assim associado ao botao que vc ja usa para imprimir.

Código: Selecionar todos

Sub ImprimePlan()
     Dim Lr As Long
     With ActiveSheet
   Lr = .Cells(Rows.Count, 3).End(xlUp).Row     'define a ultima linha nao vazia  
      .range ("B1:N" & Lr).printout
     End With
End Sub

Não precisa definir a area de impressão basta informar o intervalo que deseja imprimir.

Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Target.Address <> "$C$2" Then Exit Sub
 Me.PageSetup.PrintArea = "B1:N" & IIf(Cells(Rows.Count, 3).End(xlUp).Row < 5, 5, Cells(Rows.Count, 3).End(xlUp).Row)


Dim Lr As Long
     With ActiveSheet
   Lr = .Cells(Rows.Count, 3).End(xlUp).Row     'define a ultima linha nao vazia
   Lr = IIf(Lr < 5, 5, Lr)
      .PageSetup.PrintArea = ("B1:N" & Lr)
     End With

End Sub

Spinhosay escreveu: Não sei o que fiz errado. Mas não deu certo. Estou anexando a planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LR As Long
 If Target.Address <> "$C$2" Then Exit Sub
 LR = Columns(3).Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
 If LR < 5 Then LR = 5
 Me.PageSetup.PrintArea = "B1:N" & LR
End Sub

osvaldomp escreveu:

Spinhosay escreveu: Não sei o que fiz errado. Mas não deu certo. Estou anexando a planilha.

Você não informou antes que trata-se de Tabela Excel, e o comando que passei para encontrar a última linha com dados não se aplica a Tabelas, por isso o erro. Experimente o código abaixo já alterado no lugar do anterior (no módulo da planilha, como você colocou o anterior).

obs. o segundo código que você colocou no módulo da planilha Sub ImprimePlan pode ser deletado.

Código: Selecionar todos

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim LR As Long
 If Target.Address <> "$C$2" Then Exit Sub
 LR = Columns(3).Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row
 If LR < 5 Then LR = 5
 Me.PageSetup.PrintArea = "B1:N" & LR
End Sub