Hirdetés

  2. Fórumok
  3. OS, alkalmazások
  4. Microsoft Excel topic
  5. (kiemelt téma)
Legfrissebb anyagok
Mobilarena témák
PROHARDVER! témák
IT café témák
GAMEPOD témák
  • Téma összefoglaló
    Utoljára frissítve: 2023-11-13 08:31

    Mobilarena

    A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
    Kérdés felvetése előtt olvasd el, ha még nem tetted.

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

  • #47601 Delila_1 veterán Mr. Y #47597
    Új Válasz #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