rodbigod

Prezados, Estou tentando criar uma macro que vá até uma pasta que tenho com treze arquivos excel (cada uma possui uma única sheet) e as copie para um outro arquivo. Esbocei a macro abaixo mas me retorna um erro Public Sub Macro1() Set FSO = CreateObject("Scripting.FileSystemObject") Set Aqui = FSO.GetFolder("C:\Minha Pasta") For Each Arqui In Aqui.Files Workbooks.Open Filename:=Arqui 'Até aqui tudo funciona! Worksheets.Copy before:=Workbooks("Pasta1").Sheet ActiveWorkbook.Close Next End Sub alguém pode me ajudar? Grato,

Resolvi o cabeçalho e rodapé, mas como fazer grupamentos dentro do relatório? Abraços,

Pessoal, Criei um relatório com 39 colunas e elas não cabem em apenas uma páginas pois contem valores de dinheiro. Como faço para quebrar as colunas em 2 páginas aonde eu quiser e como o cabeçalho e rodapé aparecem em todas as páginas. Abraços,

Boa noite amigos, Tenho uma CONSULTA1 com a seguinte "cara" Cod_P Cod_C Ano Valor 1 - 1.1.1 - 2008 - 2700 1 - 1.1.2 - 2008 - 1350 2 - 1.1.1 - 2008 - 1000 2 - 1.1.2 - 2008 - 500 3 - 1.1.1 - 2008 - 2600 3 - 1.1.2 - 2008 - 1300 4 - 1.1.1 - 2008 - 2000 4 - 1.1.2 - 2008 -- 1000 5 - 1.1.1 - 2008 - 800 5 - 1.1.2 - 2008 - 400 6 - 1.1.1 - 2008 - 400 6 - 1.1.2 - 2008 - 200 7 - 1.1.1 - 2008 - 400 7 - 1.1.2 -- 2008 - 200 8 - 1.1.1 - 2008 - 500 8 - 1.1.2 - 2008 - 250 9 - 1.1.1 -- 2008 - 800 9 - 1.1.2 - 2008 - 400 10 - 1.1.1 - 2008 - 600 10 - 1.1.2 - 2008 - 300 11 - 1.1.1 - 2008 - 300 11 - 1.1.2 - 2008 - 150 12 - 1.1.1 - 2008 - 1300 12 - 1.1.2 - 2008 - 650 13 - 1.1.1 - 2008 - 200 13 - 1.1.2 - 2008 - 100 14 - 1.1.1 - 2008 - 600 14 - 1.1.2 - 2008 - 300 15 - 1.1.1 - 2008 - 400 15 - 1.1.2 - 2008 - 200 16 - 1.1.1 - 2008 - 100 16 - 1.1.2 - 2008 - 50 17 - 1.1.1 - 2008 - 400 17 - 1.1.2 - 2008 - 200 18 - 1.1.1 - 2008 - 200 18 - 1.1.2 - 2008 - 100 19 - 1.1.1 - 2008 - 1000 19 - 1.1.2 - 2008 - 500 20 - 1.1.1 - 2008 - 200 20 - 1.1.2- 2008 - 100 E uma tabela LANCAMENTOS com a seguinte "cara": Cod_P Cod_C Ano JAN RJAN 1- 1.1.1- 2008- 642,4- 0 1- 1.1.2- 2008 - 75,2- 0 1- 1.1.3- 2008 - 144,6- 0 2- 1.1.1- 2008 - 906,6- 0 2- 1.1.2- 2008 - 64,3- 0 2- 1.1.3- 2008 - 108,7-- 0 3- 1.1.1- 2008- 846,6- 0 3- 1.1.2- 2008 - 5,7- 0 3- 1.1.3- 2008 - 128,1- 0 4- 1.1.1- 2008 - 876,2- 0 4- 1.1.2- 2008 - 12,4- 0 4- 1.1.3- 2008 - 96,6- 0 5- 1.1.1- 2008 - 730,1- 0 5- 1.1.2- 2008 - 80,8- 0 5- 1.1.3- 2008 - 0,6- 0 6-- 1.1.1- 2008- 948- 0 6- 1.1.2- 2008 - 53,1- 0 6 1.1.3 2008 - 19,5- 0 7- 1.1.1- 2008 - 43,1- 0 7- 1.1.2- 2008 - 90,6- 0 7-- 1.1.3- 2008 - 106,3- 0 8 1.1.1- 2008 - 132,3- 0 8- 1.1.2-- 2008 - 21,1- 0 8- 1.1.3 2008 - 101,1- 0 9- 1.1.1-- 2008 - 21,1- 0 9- 1.1.2 2008 - 56- 0 9- 1.1.3- 2008 - 101,9- 0 10- 1.1.1-- 2008 - 40,1- 0 10- 1.1.2 2008 - 74,6- 0 10- 1.1.3- 2008 - 134,5- 0 11- 1.1.1- 2008 - 529,8- 0 11 1.1.2 2008 - 86,2- 0 11- 1.1.3- 2008 - 41- 0 12-- 1.1.1- 2008 - 664,1- 0 12- 1.1.2-- 2008 - 56,7- 0 12 1.1.3- 2008 - 98,2- 0 13- 1.1.1- 2008 - 269,3- 0 13- 1.1.2-- 2008 - 75,8- 0 13- 1.1.3- 2008 - 86,2- 0 14- 1.1.1- 2008 - 264,3- 0 14- 1.1.2- 2008- 16,9- 0 14- 1.1.3- 2008 - 57,1- 0 15- 1.1.1- 2008 - 829- 0 15- 1.1.2- 2008 - 64,8- 0 15- 1.1.3- 2008- 111,7- 0 16 1.1.1- 2008- 467- 0 16- 1.1.2- 2008- 18,5- 0 16- 1.1.3- 2008- 21-- 0 17- 1.1.1- 2008- 872,9- 0 17- 1.1.2- 2008- 81,7- 0 17- 1.1.3- 2008- 22,2- 0 18 1.1.1- 2008- 206,4- 0 18- 1.1.2-- 2008- 82,5- 0 18- 1.1.3- 2008- 14,7- 0 19- 1.1.1- 2008- 495,6- 0 19- 1.1.2- 2008- 40,6- 0 19- 1.1.3- 2008- 40,2- 0 20- 1.1.1- 2008- 0- 0 20- 1.1.2- 2008- 0- 0 20- 1.1.3- 2008- 0- 0 Minha dúvida é, como faço para RJAN receber os valores de Consulta1.Valor onde Cod_C, Cod_P e ANO forem iguais? Abraços,