Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
copiar colar(2 fich...
 
Notifications
Clear all

copiar colar(2 ficheiro excel através de uma folha com dados

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
814 Visualizações
RSS
 joanas
(@joanas)
Posts: 0
New Member
Topic starter
 

Bom dia,

excel1:
sheet 1 - Macro : com campos

Ficheiro origem (c:...)
Ficheiro destino (c:...)
sheet a copiar ----para excel 2
range a copiar
campo com "x" a identificar que sheets quero copiar

sheet 2 - folha com várias ranges que quero copiar para uma folha do excel 2 (para a mesma range)

range a ser copiada do excel 1 = range a colar no excel 2
exemplo:

Excel 1- sheet 2 excel 2 - sheet 2
A2:B2 ----- A2:B2
C5:C6 ----C5:C6

Como faço para definir a variavel range, sheet, ficheiro? alguém pode ajudar?

 
Postado : 20/01/2015 4:45 am
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Consegue adaptar?

Sub CopynPasteWrkBk2()
Dim InputFile As Workbook
Dim OutputFile As Workbook
Dim Inputpath As String
Dim Outputpath As String '

Set InputFile = ActiveWorkbook
Set OutputFile = Workbooks.Open("C:UsersVoceDesktopExcel1.xlsx")

InputFile.Worksheets("Sheet2").Activate
InputFile.Worksheets("Sheet2").Range("A2:B2").Copy

OutputFile.Sheets("Sheet2").Activate
OutputFile.Sheets("Sheet2").Range("A2").PasteSpecial Paste:=xlPasteValues

OutputFile.Close savechanges:=True

MsgBox "Dados copiados com sucesso!"

End Sub

Att

 
Postado : 20/01/2015 7:26 am
Forum Jump:
  Tópico Anterior
Próximo Tópico