Telefonszámunk: 1-472-0679

Hozzászólás: [Resolved] Két táblázat adatainak beillesztése és táblázat átméretezése

Kezdőlap Fórumok Excel programozás [Resolved] Két táblázat adatainak beillesztése és táblázat átméretezése Hozzászólás: [Resolved] Két táblázat adatainak beillesztése és táblázat átméretezése

#10531
delila
Felhasználó

    Szia!
    Próbáld meg ezzel:

    Sub Masolas()
        Dim tabla As Range, usor As Integer, ide As Integer
        Sheets("Feladat").Select
        Set tabla = Range("C5").CurrentRegion
        tabla.Offset(1, 0).Resize(tabla.Rows.Count - 1, tabla.Columns.Count).ClearContents
        
        Sheets("Munka1").Select
        usor = Range("B5").End(xlDown).Row
        Range("B5:B" & usor).Copy
        Range("C5").PasteSpecial xlPasteValues
        Range("B5:C" & usor).Copy
        Sheets("Feladat").Range("C5").PasteSpecial xlPasteValues
        Range("F5:F" & usor).Copy
        Sheets("Feladat").Range("E5").PasteSpecial xlPasteValues
        
        ide = Sheets("Feladat").Range("C" & Rows.Count).End(xlUp).Row + 1
        Sheets("Munka2").Select
        usor = Range("B5").End(xlDown).Row
        Range("B5:B" & usor).Copy
        Range("C5").PasteSpecial xlPasteValues
        Range("B5:C" & usor).Copy
        Sheets("Feladat").Range("C" & ide).PasteSpecial xlPasteValues
        Range("G5:G" & usor).Copy
        Sheets("Feladat").Range("F5").PasteSpecial xlPasteValues
        Application.CutCopyMode = False
        
        Sheets("Feladat").Select
    End Sub

    Üdv,
    Delila