ممكن مساعد فى تعديل كود

[الياسر سات]

ممكن مساعد فى تعديل كود

انتبه من فضلك من تكرار المشاركات والا ستحذف جميع المشاركات ... بالفعل تم حذف المشاركة الأخرى

vlookup vba 2020.xlsm

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

الكود الصحيح

Sub Vlookup_Example()
  Dim Sh1 As Worksheet
  Dim SH2 As Worksheet
  Dim X1%, X2%

Set Sh1 = Sheets("Example 1")
Set SH2 = Sheets("Example 2")

X1 = Sh1.Cells(Rows.Count, 1).End(3).Row
X2 = SH2.Cells(Rows.Count, 4).End(3).Row

SH2.Cells(2, "E").Resize(X2 - 1).Formula = _
"=IFERROR(VLOOKUP(D2,'Example 1'!A1:B" & X1 & ",2,0),"""")"

End Sub

الملف مرفق

 

Yasser_sat.xlsm

[أحمد يوسف]

   الياسر سات

أين انت من  هذه الإجابة الممتازة للأستاذ ســليم حاصبيا ؟!!!

أين الضغط على الإعــــجـــــاب لهذه الإجابة الممتازة  , وكما اتفقنا ان هذا أقل ما يقدم لمن له الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!