Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
COPIAR PARA PLAN2
 
Notifications
Clear all

COPIAR PARA PLAN2

 
2024 - VBA & Macros
Post Recente por Wagner Morel 12 anos atrás
5 Posts
2 Usuários
0 Reactions
828 Visualizações
RSS
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa Tarde a todos ,
Estou com um problema nesta planilha , seguinte:
abrir a plan e clicar no hipelink Faixa_47010_ANAD006' , e clicar em "Gerar Programação" , verão que é criada uma pasta : "c:Controle de Inspeção_ Execução de Faixa" & Polo & "" onde será salvo um pasta de trabalho excel com o nome de Executar faixa 47010 anad006 , e uma segunda planilha com o nome de plan2 ; gostaria de ter um código que nesta plan2 copiasse da "planilha original" (Faixa_47010_ANAD006) da linha 32 à 95 com sua formatação original e sem formulas , somente valores; e colasse nessa plan2 mudando seu nome para CCS . é possivel?

 
Postado : 18/04/2013 12:10 pm
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

alguem tem uma solução para me ajudar?

 
Postado : 18/04/2013 6:27 pm
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

claudinei,

Veja se é assim.

teste.zip
 
Postado : 19/04/2013 6:09 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Quase isso Wagner,porem
A formatação foi perdida na colagem,

E no código

Sub CopiarParaPlan2()
    Range("A32:N95").Select
    Selection.Copy
    Windows("Executar Faixa_47010_ANAD006.xlsx").Activate
    Sheets("Plan2").Select
    Range("A1").Select
    Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("A1").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Voce usou o nome fixo windows ("Executar Faixa_47010_ANAD006.xlsx"). e este nome vai ser variavel ; sempre será :Executar +nome da planilha original

Grato pela atenção

 
Postado : 19/04/2013 7:12 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

claudinei,

Boa Noite!

Bom... o problema do nome já foi resolvido. Quanto à perda da formatação, infelizmente, não consegui resolver. Creio que você deve formatar manualmente ou gravar uma macro (pelo gravador de macros) para fazer isso.

teste.rar
 
Postado : 19/04/2013 7:36 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico