Új hozzászólás Aktív témák

• #27964 Fferi50 Topikgazda Mittu88 #27961

  Új Válasz 2015-07-29 11:59:56 #27964

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Fferi50

  Topikgazda

  válasz Mittu88 #27961 üzenetére

  Szia!

  Az alábbi makró elvileg átmásolja, amit szeretnél.

  Sub masolo()
  Dim ws1 As Worksheet, wb1 As Workbook, usor1 As Integer, usor2 As Integer, fnev As String
  fnev = "xxxxxxx"
  Set ws1 = Workbooks(1).Worksheets(1) ' ahonnan másolunk
  usor1 = ws1.Cells(Rows.Count, 1).End(xlUp).Row 'az A oszlop utolsó nem üres cellájának a sora
  Set wb1 = Workbooks(2).Open(Filename:=fnev) 'megnyitjuk a másik fájlt
  usor2 = wb1.Worksheets(2).Cells(Rows.Count, 1).End(xlUp).Row + 1 ' megkeressük a worksheets(2) A oszlopának első üres cellájának sorát
  ws1.Range("A1:L" & usor1).Copy Destination:=wb1.Worksheets(2).Cells(usor2, 1) ' a worksheets(1) megfelelő tartományát átmásoljuk a worksheets(2) A oszlopának végére
  Workbooks(2).Save
  Workbooks(2).Close
  End Sub

  Üdv.

  [ Szerkesztve ]

Új hozzászólás Aktív témák