(تمت الاجابة) Lookup بالكود لبيانات في نفس الصفحة سؤال

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

المطلوب باستخدام الكود عند ادخال رقم الطلبية

والتي هي في العمود F ان يتم استدعاء بياناتها التي في العمودين C و E اذا كان قد سبق وان تم ادخال بيانات لرقم هذه الطلبية ما لم يتجاهل ذلك لانه بعض الاحيان يكون هنالك حركة متكرره لنفس الطلبية على ان يتم استدعاء بياناتها الثابته التي لاتحتاج إلى تغيير

أبو أنس

Lookup بالكود.rar

[احمدزمان]

السلام عليكم و رحمة الله

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 6 Then Exit Sub

TR = Target.Row

Q = Cells(TR, Target.Column)

QQ = Application.WorksheetFunction.CountIf(Range("F4:F9999"), Q)

If QQ < 2 Then Exit Sub

Application.ScreenUpdating = False

For R = 6 To TR - 1

If Cells(R, 6) = Cells(TR, 6) Then

Cells(TR, 3) = Cells(R, 3)

Cells(TR, 5) = Cells(R, 5)

End If

Next

Application.ScreenUpdating = True

End Sub

Lookup بالكود.rar

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي الفاضل أحمد زمان ربنا يحشرك وأهلك وذريتك من بعدك ومن تحب مع النبيين والصديقين والشهداء وحسن أولئك رفيقا.

اللهم تقبل مني هذا الدعاء أنك سميع مجيب ولاتجعل ذنوبي وتقصيري سبباً لرد هذا الدعاء آمين.

أبوأنس