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

• #47601 Delila_1 veterán Mr. Y #47597

  Új Válasz 2021-10-19 08:13:53 #47601

  Ú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

  

  Delila_1

  veterán

  válasz Mr. Y #47597 üzenetére

  Látom, régi verzióval (xls kiterjesztés) dolgozol.
  Nálam a két füzet régi.xls, ill. új.xls névre hallgat, mindegyikben az első munkalapon vannak az adatok, és mindkettőben az első sor a fejléc.

  A makró:
  Sub Frissites()
    Dim sorRegi As Long, sorUj As Long, usor As Long, ide
    
    usor = Workbooks("új.xls").Sheets(1).Range("A" & Rows.Count).End(xlUp).Row
    For sorUj = 2 To usor
        On Error Resume Next
        ide = Application.Match(Workbooks("új.xls").Sheets(1).Cells(sorUj, 1), Workbooks("régi.xls").Sheets(1).Columns(1), 0)
        If VarType(ide) = vbError Then _
            ide = Application.WorksheetFunction.CountA(Workbooks("régi.xls").Sheets(1).Columns(1)) + 1
            
        Workbooks("új.xls").Sheets(1).Rows(sorUj).Copy Workbooks("régi.xls").Sheets(1).Range("A" & ide)
    Next
End Sub

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