Fóruns Microsoft Excel - 2... 2024 - VBA & Macros Macro gravada e pro... Notifications Clear all Macro gravada e problematica 2024 - VBA & Macros Post Recente por Fernando Fernandes 10 anos atrás 8 Posts 2 Usuários 0 Reactions 1,172 Visualizações RSS dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Essa macro é simples mais cheia de defeitos, ao menos aqui na minha maquina. Se quiserem trocar por código mais "profissional" eu agradeço. Macro_1.rar Postado : 19/07/2014 6:29 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Boa noite!! Considerando apenas sua macro. Sub AleVBA_12595() Worksheets("Bloco_1").Range("E5:AK20").Copy Destination:=Worksheets("Bloco_2").Range("J10") Columns.AutoFit End Sub Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 19/07/2014 6:39 pm dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Alguma coisa deu errado. A coluna D que antecede a tabela perdeu a formatação. Os valores da coluna AP bloco 2, falta um valor, assim como na macro anterior. Na macro original tem um bloco clearContent no finalzinho, não tem problema adicionar nessa macro de solução. Postado : 19/07/2014 6:49 pm dimorais (@dimorais) Posts: 431 Reputable Member Topic starter O problema da coluna D era aqui na minha plan, favor desconsiderar Postado : 19/07/2014 6:51 pm dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Como incorporo esse bloco na solução proposta: Range("A30,C32,X45,B36,F40,").ClearContents Postado : 19/07/2014 6:58 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Boa noite!! Retire a virgula no final Range("A30,C32,X45,B36,F40").ClearContents Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 19/07/2014 7:21 pm dimorais (@dimorais) Posts: 431 Reputable Member Topic starter Vou dar o tópico por resolvido mas antes preciso saber como fazer para copiar nessa solução só os valores do bloco 1. Porque vem com formatação... tudo. Grato Postado : 19/07/2014 7:30 pm Fernando Fernandes (@fernandofernandes) Posts: 43750 Illustrious Member Boa noite!! Tente assim Sub AleVBA_112595V3() Worksheets("Bloco_1").Range("E5:AK20").Copy Worksheets("Bloco_2").Range("J10").PasteSpecial Paste:=xlPasteValues Columns.AutoFit Range("A30,C32,X45,B36,F40").ClearContents End Sub Existem mil maneiras de preparar Neston. Invente a sua! http://www.youtube.com/ExpressoExcel Postado : 19/07/2014 7:39 pm