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
2024-03-06-12:43
#10531
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