البحث برقم الشارع مرفق معه البرنامج

[طارق زكريا حسين جاه الرسول]

بسم الله الرحمن الرحيم

الشرح داخل المرفقالقرية1.rar

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

السلام عليكم

هل تقصد الفلترة بهذه الطريقة

 

Private Sub Worksheet_Change(ByVal Target As Range)

	If Target.Address = Range("L1").Address Then
	Application.ScreenUpdating = False
    Range("A2:K152").AutoFilter Field:=3, Criteria1:=Range("L1")
	Application.ScreenUpdating = True
	End If
	If Range("L1") = "" Then Range("A2:K152").AutoFilter

End Sub

 

[طارق زكريا حسين جاه الرسول]

اولا اشكرك لسرعة الرد

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

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

2 ساعات مضت, طارق زكريا حسين جاه الرسول said:

بسم الله الرحمن الرحيم

الشرح داخل المرفقالقرية1.rar

هناك مشكلة المشاكل وهي الخلايا المدمجة (رتب الجدول دونها و سأعمل على الحل)

[طارق زكريا حسين جاه الرسول]

القرية1.rarتم عديل المرفقالقرية1.rar

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

اليك مبدئياً الحل بواسطة المعادلات (مع وجود الخلايا المدمجة)

انظر الى الصفحة الثانية من الملف

 

القرية1 salim.rar

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

تم اضافة ماكرو الى الصفحة لتعمل كما تريد

القرية1 Salim_macro.rar

[طارق زكريا حسين جاه الرسول]

استاذى العزيز 

سليم حاصبيا

بعدالتحية

اشكرك جزيل الشكر

هذا هو المطلوب فعلا