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

[حاتم عيسى]

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

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

Sub Macro1()
'
Dim r As Long, d As Long, r1 As Long
r = Sheets(2).Range("a" & Rows.Count).End(xlUp).Row
For d = 4 To r
r1 = Sheets(Range("C" & d).Value).Range("c" & Rows.Count).End(xlUp).Row
Sheets(Range("C" & d).Value).Range("B" & r1 + 1).Resize(1, 31) = Sheets(2).Range("d" & d).Resize(1, 31).Value
Next
MsgBox "تم الترحيل بنجاح .... حاتم محمود عيسى", vbOKOnly, "نجحت العملية"
'
End Sub

 

تم تعديل يوليو 28, 2016 بواسطه حاتم عيسى

[سليم حاصبيا]

هذا الملف لا يسمح لك بتكرار الاسم واللقب من خلال يوزر فورم

 

تعديل في زر اضافة salim.rar