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
831 Visualizações
RSS
Fernando Fernandes
 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?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

alguem tem uma solução para me ajudar?

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

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

claudinei,

Veja se é assim.

teste.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 19/04/2013 6:09 am
Fernando Fernandes
 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

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/04/2013 7:12 am
Wagner Morel
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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