الرجاء تحويل هذه الدالة إلى كود

[ريان أحمد]

السلام عليكم

 

الدالة

 

(VLOOKUP(B2;U$2:$U$41510;1;FALSE=

 

 

مع إظافة كلمة لا توجد بيانات في حالة عدم العثور على البحث

قق.rar

تم تعديل مارس 14, 2014 بواسطه ريان أحمد

[شوقي ربيع]

السلام عليكم

جرب هذا

Sub Vlokup()

Dim Reslt As String
Dim Sh As Worksheet
Set Sh = ActiveWorkbook.Sheets("bd1")
On Error Resume Next
If IsError(Application.WorksheetFunction.VLookup(Sh.Range("A3"), Sh.Range("F2:F41510"), 1, False)) Then Reslt = "لاتوجد بيانات"

MsgBox Reslt
 
End Sub

[ريان أحمد]

السلام عليكم

 

شاهد المرفق قمت بتطبيقه ولم ينجح

قق.rar

[saad abed]

اخى ريان

استاذن استاذى شوقى ربيع

جرب التعديل الاتى

Sub Vlokup()
Dim Reslt As String
Dim Sh As Worksheet
Set Sh = ActiveWorkbook.Sheets("bd1")
Sh.Range("d2:e5000").ClearContents
On Error Resume Next
For i = 2 To 20
Cells(i, "d") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 6, 0)
Cells(i, "e") = Application.WorksheetFunction.VLookup(Sh.Cells(i, 1), Sh.Range("a2:g41510"), 7, 0)

Next
End Sub

[ريان أحمد]

السلام عليكم لم ينجح الكود

[أبو حنــــين]

السلام عليكم

جرب هذا التعديل

111.rar

[شوقي ربيع]

السلام عليكم

 

شاهد المرفق قمت بتطبيقه ولم ينجح

لسلام عليكم

المثال الذي ادرجته لك هو مجرد مثال لاستخدام دالة  VLookup في محرر الاكواد

هذا مثال يعطي نتائج العمود D

Sub Test()
Dim sh As Worksheet: Set sh = Sheets("bd1")
Dim Table As Range: Set Table = sh.Range("F2:F41510")
Dim Name As String
Dim Num As Variant
Dim r As Integer

For r = 2 To 20
Name = sh.Range("A" & r)
Num = Application.VLookup(Name, Table, 1, False)
If IsError(Num) Then
   sh.Range("D" & r) = "áÇÊæÌÏ ÈíÇäÇÊ"
Else
    sh.Range("D" & r) = Num
End If
Next

End Sub

[أبوبلقيس]

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

[ريان أحمد]

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