Ú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.

• #27962 Fferi50 Topikgazda Mittu88 #27961

  Új Válasz 2015-07-29 11:42:05 #27962

  Ú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!

  Kicsit nézegettem még a makródat. Ha jól gondolom, az a feladat, hogy a Workbooks(1).Worksheets(1) munkalapjának az adatait szeretnéd a Workbooks(2).Worksheets(2) munkalapjának végére átmásolni.

  Az utolsó teleírt sort így találhatod meg egyszerűen, nem kell hozzá ciklus:
  usor=Cells(rows.count,1).End(xlUp).Row

  Tartomány kijelölés többféle módon lehet: Pl:
  Range("A" & i) => az A oszlop i-edik cellája
  Range("A1" & ":L" & i) =>az A1:Li terület.
  Cells(i,j) => az j oszlop i-edik sora (i és j szám)
  és még számtalan változata van.

  A makródat még kicsit szabom.

  Üdv.

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