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

[جلال الجمال_ابو أدهم]

تم رفع هذا الكود فى مشاركة منفصله

حتى لا ننسى هذه المشاركة  بحث معقد

 

تم ارفاق كود الحل من الفاضل ا / عبدالله باقشير

 

مرفق الملف و الشرح

________________1.rar

 و لا تنسونا من صالح الدعاء

تحياتى

[عمرو عبد الحليم]

السلام عليكم

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

لقد افادنى جدا في عملى لكن الا يوجد طريقه لنقل البيانات بدون زر و شكرا

[محمود_الشريف]

بعد اذن أخى الأستاذ / جلال

أخى الكريم الأستاذ / عمرو 

توجد فكرة لنقل البيانات بدون زر 

وهى أن تضع فى حدث الصفحة المراد النقل إليها أو الإستعلام  إسم الكود  

فمبجرد كتابة رقم الكود أو الصنف وتضغط على زر enter تأتى البيانات

ففى المثال السابق اسم الكود  Kh_Filter

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kh_Filter
End Sub

 

[hasso]

1 ساعه مضت, محمود_الشريف said:

بعد اذن أخى الأستاذ / جلال

أخى الكريم الأستاذ / عمرو 

توجد فكرة لنقل البيانات بدون زر 

وهى أن تضع فى حدث الصفحة المراد النقل إليها أو الإستعلام  إسم الكود  

فمبجرد كتابة رقم الكود أو الصنف وتضغط على زر enter تأتى البيانات

ففى المثال السابق اسم الكود  Kh_Filter

 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Kh_Filter
End Sub

 

الرجاء مثال مرفق جزاك الله عني كل خير

[محمود_الشريف]

أخى الكريم

أولا برجاء تغيير اسم الظهور وجعله باللغة العربية طبقا لقواعد المنتدى

ثانيا المثال هو نفس الملف الذى أرفقه الأستاذ // جلال الجمال

فقط ضع فى حدث الشيت الكود الذى كتبته فى تعليقى السابق

 

 

[عمرو عبد الحليم]

السلام عليكم

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

لكن لماذا في الملف المرفق عندما اكتب 2 ثم 1 لا تظهر النتائج بشكل صحيح و شكرا

بحث بمعيار مشترك1.rar

[جلال الجمال_ابو أدهم]

محمود_الشريف

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