Leandro Mariano

Nossa Afonso Show de bola obrigado pelo apoio!!!!!!

Show de Bola Afonso ajudou demais. Eu fiz uma dupla pela tabela, mais poderia fazer uma coluna de uma etiqueta e ai imprimir até sei la 1000? Não vejo problemas em fazer uma coluna única se for melhorar o código Afonso. Obrigado pela força.

Olá pessoal, estou fazendo um programa que ira gerar uma quantidade de tabelas pré definidas, conforme a quantidade de vezes que eu colocar em uma célula. ou seja em uma pasta MENU terá uma orientação - digite a quantidade de tabelas. na célula célula B3 o usuario digita exemplo = 200 Na pasta PADRÃO, temos duas tabelas que devem ser copiadas RANGE ( A1 até K7) e essas linhas devem ser copiadas e inserir celulas copiadas acima delas ou seja Inserir acima A1 Essa operação deve ser feita conforme o input de valores na célula B3 da pasta MENU. Eu cheguei nesta macro Sub Gerador() ' ' Gerador Macro ' ' Sheets("DADOS").Select Sheets("PADRÃO").Visible = True Sheets("PADRÃO").Select Sheets("PADRÃO").Copy Before:=Sheets(2) Sheets("PADRÃO").Select ActiveWindow.SelectedSheets.Visible = False Sheets("PADRÃO (2)").Select Rows("2:8").Select Selection.Copy Rows("2:2").Select Selection.Insert Shift:=xlDown Rows("2:2").Select ActiveWindow.SmallScroll Down:=-12 Range("G2:J7").Select Range("J2").Activate Application.CutCopyMode = False ActiveSheet.PageSetup.PrintArea = _ "$G$16:$J$21,$B$16:$E$21,$G$9:$J$14,$B$9:$E$14,$G$2:$J$7" Range("B2:E7").Select Range("E2").Activate ActiveSheet.PageSetup.PrintArea = _ "$G$16:$J$21,$B$16:$E$21,$G$9:$J$14,$B$9:$E$14,$G$2:$J$7,$B$2:$E$7" Range("A1").Select End Sub porém ela so executa o copy-paste uma vez. Alguem poderia me ajudar. Recorrer impressão rev03.xlsx