طلب كود مسح وتعديل كود ترحيل

[ضاحي الغريب]

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

الاخوة الأعزاء

حصلت كود لاستاذنا ومعلمنا عبدالله أبوأحمد قمت بعمل تعديل عليه ليقوم بترحيل بيانات من صفوف معينة والحمد لله المحاولة نجحت لكن طلبي تعديل الكود بان يقوم بترحيل البيانات فقط بدون تنسيق

والشيء الثاني كود مسح يعكس عمله لاني كل ما اقوم بترحيل البيانات بيكررها فهل من الممكن تعديل الكود ليقوم بترحيل البيانات الجديدة او عمل كود مسح لمسح البيانت قبل الترحيل لعدم التكرار

,جزاكم الله خير وبارك الله لكم في علمكم ورزقكم فيما قدمتوه لنا في هذا الصرح العظيم الذي نتعلم منه يوميا الجديد

تقبلوا تحياتي

الكود

b OFFICNA()

Dim LR As Long, LR2 As Long, ws As Worksheet, ws2 As Worksheet

Set ws = Sheets("DATA")

Set ws2 = Sheets("HR")

LR = ws.Range("B" & Rows.Count).End(xlUp).Row

LR2 = ws2.Range("B" & Rows.Count).End(xlUp).Row

If ws.Range("B2").Value = "" Then

MsgBox ("áÇ ÊæÌÏ ÈíÇäÇÊ áÊÑÍíáåÇ")

Else

ws.Range("B2:b" & LR).Copy ws2.Range("B" & LR2 + 1)

ws.Range("R2:R" & LR).Copy ws2.Range("C" & LR2 + 1)

ws.Range("U2:U" & LR).Copy ws2.Range("E" & LR2 + 1)

ws2.Select

End If

End Sub

[ضاحي الغريب]

عفوا الكود بالمرفقات لعدم تمكني من رفعه بالشكل الصحيح

الكود.txt

[ضاحي الغريب]

الاخوة الأعزاء السلام عليكم ورحمة الله وبركاته

برجاء المساعدة في عمل كود يقوم بترحيل العمود (B2) والعمود (R2) والعمود (U2) من صفحة العمل (DATA)وترحل البيانات الي صفحة العمل (INFO) الي العمود (B4) والعمود (C4) والعمود (E4)

بشرط عدم تكرار البيانات او عمل كود حذف يقوم بحذف البيانات تلقائيا في صفحة العمل (INFO) العمود (B4-C4-E4) فقط

ولكم جزيل الشكر