نسخ البيانات لأول صف فارغ تلقائيا

[ريان أحمد]

السلام عليكم

الرجاء المساعدة في كود يقوم بنسخ البيانات لإلى اول صف فارغ تلقائيا والشرح في المرفق

صف فارغ ا.rar

[ريان أحمد]

السلام عليكم جمعة مباركة

لإلى كل أعضاء المنتدى

[عبدالله باقشير]

السلام عليكم

Sub khCopy_Rng()

Dim Last As Long

Dim MyCopy As Range, MyPost As Range


With Sheets("1")

    Last = .Cells(.Rows.Count, "A").End(xlUp).Row

    Set MyCopy = .Range(.Range("A5"), .Cells(Last, "P"))

End With


With Sheets("2")

    Last = .Cells(.Rows.Count, "A").End(xlUp).Row + 1

    Set MyPost = .Cells(Last, "A")

End With


MyCopy.Copy MyPost


MsgBox "تم الترحيل بنجاح"


Set MyCopy = Nothing

Set MyPost = Nothing

End Sub

شاهد المرفق

اكسل 2003

ترحيل بيانات من ورقة الى اخرى.rar

[ياسر الحافظ]

استاذنا الكبير خبــــــــــــــــــــــــور

تحية طيبة

الله يسلم هذا الفكر النير

وفقك الله ويسر امرك

ياسر الحافظ

[ريان أحمد]

شكرا جزيلا وجزاك الله كل خير ووفقك لمرضاته

[ريان أحمد]

شكرا جزيلا وجزاك الله كل خير ووفقك لمرضاته

[احمد فضيله]

السلام عليكم ورحمة الله و بركاته

أخي الحبيب / خبور خير

جزاك الله كل خير

و السلام عليكم ورحمة الله و بركاته