( تمت الاجابة ) تحوبل VLOOKUP الى كود ( مميز )

[key_ro]

هل ممكن تحوبل VLOOKUP الى كود

ارجو المساعدة

vlookup.rar

[عبد الفتاح كيرة]

تفضل أخى

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 2 Or Target.Row <> 5 Then Exit Sub


If Range("b5") = vbNullString Then

Range("c5: e5") = ""

Exit Sub

End If

Range("c5") = WorksheetFunction.VLookup(Range("B5"), Sheets(1).Range("A6:D10"), 2, 0)

Range("d5") = WorksheetFunction.VLookup(Range("B5"), Sheets(1).Range("A6:D10"), 3, 0)

Range("e5") = WorksheetFunction.VLookup(Range("B5"), Sheets(1).Range("A6:D10"), 4, 0)


End Sub

vlookup- kemas.zip

[key_ro]

شكرا جدا جدا جدا جدا جدا

على هذا المجهود والاهتمام

ولى سؤال هل ممكن تطبيق هذا على ملف كبير ملئ بمعادلة vlookup

مرفق ملف المشكلة فية انة بطئ جدا جدا وخاصة البحث

المخازن1.rar

[عبد الفتاح كيرة]

تفضل أخى

Private Sub Worksheet_Activate()

 Dim myrng As Range

Dim mycl As Range

Set myrng = Range("b2:b10000")

On Error GoTo 1

For Each mycl In myrng


 mycl.Value = WorksheetFunction.VLookup(mycl.Offset(0, -1).Value, Sheets("ãÎÒä").Range("a:b"), 2, 0)

Next mycl


1 End Sub

لكن حبذا لو قللت نهاية المدى عن 10000

حتى لا يكون الكود بطيئا

المرفقات

المخازن1kemas.zip

[key_ro]

والله ياباشا انا عاجز عن شكر حضرتك

حضرتك من اكثر الناس احتراما

شكرا مرة ثانية

[عبد الفتاح كيرة]

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