السلام عليكم و رحمة الله و بركاته
الاخ الاستاذ / هشام
بالنسبة للحل المرفق في المشاركه رقم 14
Sub Button6_Click()
a = 1
Do Until Cells(a, "a").Value = ""
a = a + 1
Loop
Range(Cells(1, "a"), Cells(a - 1, "c")).Select
Selection.Copy
Sheet2.Activate
Sheet2.Cells(1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
فقط قم بتغيير اسم الشيت الذ ي تريده في الكود في الجزء التالي :
Sheet2.Activate
و الله المستعان