مقارنة اربع اعمده وملء الخلايا الفارغة

[Simon88]

مرحبا بكم

 

عندي اربع اعمده

     A               B                C              D

username1      ID1      username2      ID2

 

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

 

ماهي الدالة التي ممكن ان تقوم بهذا العمل وشكرا 

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

7 دقائق مضت, Simon88 said:

مرحبا بكم

 

عندي اربع اعمده

     A               B                C              D

username1      ID1      username2      ID2

 

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

 

ماهي الدالة التي ممكن ان تقوم بهذا العمل وشكرا 

ارفع ملفاً للتعامل معه

[Simon88]

للأسف يحتوي على معلومات خاصة بالعمل ولاأستطيع رفعه :(

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

الان, Simon88 said:

للأسف يحتوي على معلومات خاصة بالعمل ولاأستطيع رفعه :(

ملف وهمي يكون مشابهاً (20-25 سطر)

[Simon88]

New Microsoft Excel Worksheet (2).ZIP

 

Excel file compressed by 7-Zip

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

11 دقائق مضت, Simon88 said:

New Microsoft Excel Worksheet (2).ZIP

 

Excel file compressed by 7-Zip

جرب هذا الماكرو

Option Explicit
Sub Fill_Data()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
Dim My_rg As Range
Dim i%
Set My_rg = Range("a1").CurrentRegion.Offset(1)
My_rg.Columns(2) = vbNullString
For i = 1 To My_rg.Rows.Count - 1
If My_rg.Cells(i, 1) = My_rg.Cells(i, 3) Then
  My_rg.Cells(i, 2) = My_rg.Cells(i, 4)
  End If
Next
End Sub

 

[Simon88]

هل ممكن استخدام معادله بشكل مباشر باستخدام 

Vlookup?

حيث ان الماكروز لاتعمل في جهاز الخاص بالعمل