نقل بيانات الغير العاملين الى شيت اخر

[محمد لؤي]

السلام عليكم - اعزكم الله - ممكن معادلة أو كود يسهل عليه عمل الآتي :

عندي شيت (العاملة) يتضمن ارقام السيارات العاملة

وفي شيت ملف 265 بيانات السيارات

المطلوب نقل بيانات السيارات في شيت (ملف265) اذا لم يكن موجود في شيت (العاملة) وكما مبين بعض النتائج في شيت الغير العاملين

ترحيل الغير محمل.rar

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

Sub find_for_me()

Dim Ws1, Ws2, Ws3 As Worksheet
Dim lr1, lr2 As Integer
m = 0
Set Ws1 = Sheets("العاملة"): Set Ws2 = Sheets("ملف 265"): Set Ws3 = Sheets("الغير العاملين")
Ws3.Range("a2:h500").ClearContents

lr1 = Ws1.Cells(Rows.Count, 1).End(3).Row
lr2 = Ws2.Cells(Rows.Count, 1).End(3).Row
Ws2.Select
'==================================

Ws2.Range("a2").Activate
 Do Until ActiveCell.Offset(1, 0) = ""
 On Error Resume Next

 Set f_r = Ws1.Cells.Find(What:=ActiveCell, After:=Ws1.Range("a1"))
 If f_r Is Nothing Then
  r = ActiveCell.Row
   Ws2.Range(Ws2.Cells(r, 1), Ws2.Cells(r, "H")).Copy Ws3.Cells(m + 2, 1)
   m = m + 1
   End If
   ActiveCell.Offset(1, 0).Activate

 Loop
 End Sub

جرب هذا الكود

 

[محمد لؤي]

جزيت خير - سلمكم الله من كل مكروه - اعزك الله واكرمك

هو المطلوب

تمام