بحث بدلالة خلية

[ابو ذكري]

الاخوة الافاضل في منتدانا العبقري

بعد التحية

ارجو اتساع صدروكم لطلبي هذا

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

في الملف المرفق في ورقتي عمل كروت العملاء وكروت الموردين

ارجوا عمل كود بحث بديل لبحث الاكسل ctrl+f

بحيث اذا وضعت كود عميل في الخلية A1 يتم البحث في العمود G عن القيمة الموجودة في  A1 والانتقال الى مكان الخلية المساوية للقيمة الموجودة في A1

مثال الكود 2003 في خلية A1 بعد الضغط على زر البحث او على مفتاح ENTER يتم الانتقال الى الخلية G183

وهكذا

ارجو ان يكون المطلوب واضح

وجعلة الله في موازينكم

كروت موردين_2.rar

[ابو ذكري]

برجاء من الاخوة الكرام الافاضل ايجاد الكود المناسب للعمل على الملف المرفق

 

[أ / محمد صالح]

يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

lr = Range("g" & Rows().Count).End(xlUp).Row
For n = 3 To lr
If Range("g" & n).Value = [a1] Then
Range("g" & n).Select
Exit Sub
End If
Next

End If
End Sub

 

تم تعديل مايو 20, 2017 بواسطه أ / محمد صالح

[حساسينو]

25 دقائق مضت, ابو ذكري said:

برجاء من الاخوة الكرام الافاضل ايجاد الكود المناسب للعمل على الملف المرفق

 

فى أى شيت من ملفك تريد العمل

[ابو ذكري]

4 ساعات مضت, حساسينو said:

فى أى شيت من ملفك تريد العمل

اشكرك على الاهتمام اخي الكريم

الملف المقصود هو الملف المرفق في المشاركة الاصلية

[ابو ذكري]

8 ساعات مضت, أ / محمد صالح said:

يمكنك وضع هذا الكود في حدث عند التغيير في الشيت المطلوب

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then

lr = Range("g" & Rows().Count).End(xlUp).Row
For n = 3 To lr
If Range("g" & n).Value = [a1] Then
Range("g" & n).Select
Exit Sub
End If
Next

End If
End Sub

 

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

ووفقك الله الى كل خير