- 06 Nov 2017 às 09:54
#28039
Bom dia.
Estou tentando criar uma Array porem estou com algumas duvidas.
Minha função executa um loop da seguinte forma:
Ela verifica se 15 planilhas tem o valor maior que Zero e define a área de impressão. Sendo
For BM = 1 To 15
Sheets("" & BM & "").Select
If Range("S45").Value > 0 Then
ActiveSheet.PageSetup.PrintArea = "$N$1:$S$62"
Else
End If
Next BM
O que desejo fazer é:
For BM = 1 To 15
Sheets("" & BM & "").Select
If Range("S45").Value > 0 Then
ActiveSheet.PageSetup.PrintArea = "$N$1:$S$62"
MANTER A PLANILHA SELECIONADA TIPO:
Sheets(Array(1;3;4;5;9;11;14;15).Select
Else
End If
Next BM
Isto é porque irei salvar a planilha em PDF e não quero que todas as abas sejam selecionadas!
Agradeço o apoio de todos.
Abraço.
Estou tentando criar uma Array porem estou com algumas duvidas.
Minha função executa um loop da seguinte forma:
Ela verifica se 15 planilhas tem o valor maior que Zero e define a área de impressão. Sendo
For BM = 1 To 15
Sheets("" & BM & "").Select
If Range("S45").Value > 0 Then
ActiveSheet.PageSetup.PrintArea = "$N$1:$S$62"
Else
End If
Next BM
O que desejo fazer é:
For BM = 1 To 15
Sheets("" & BM & "").Select
If Range("S45").Value > 0 Then
ActiveSheet.PageSetup.PrintArea = "$N$1:$S$62"
MANTER A PLANILHA SELECIONADA TIPO:
Sheets(Array(1;3;4;5;9;11;14;15).Select
Else
End If
Next BM
Isto é porque irei salvar a planilha em PDF e não quero que todas as abas sejam selecionadas!
Agradeço o apoio de todos.
Abraço.