بحث بفورم مع نسخ البيانات

[عبدالله باقشير]

السلام عليكم

فورم للبحث عن بيانات

وارجاع البيانات في الخلية النشطة

مع امكانية اختيار الخلية والفورم مفتوح

طلب للاخ/ aazsubbah

http://www.officena.net/ib/index.php?showtopic=29842

بحث مع نسخ بيانات.rar

تم تعديل أكتوبر 25, 2009 بواسطه خبور خير

[علي سالم 75]

مشكور

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

[أبوســـارة1973]

تسلم يديك يازين المنتدى

[يحيى حسين]

ربنا يبارك فيك اخي خبور

و يزيدك من علمه

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ بليش روغ -------حفظه الله

الاخ الفاضل/ ابو سارة-------حفظه الله

الاخ الفاضل/ يحي حسين -------حفظه الله

ربنا يبارك فيكم

تقبلوا جزيل شكري وتقديري

[محمدي عبد السميع]

شكرا لك يابطل الأبطال

[سالم شباني]

السلام عليكم

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

لمساتك مميزة دائما

[أبوســـارة1973]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Range("C17:C" & Rows.Count)) Is Nothing Then

Cancel = True

form_Cm_Search.Show 0

End If

End Sub

----------------------------------------------------------------------------------

هذا الكود كما يتضح يظهر الفورم عند الضغط مكرر على أي خلية في العمود C ابتداء من الخلية C17 ولكني احتاج أن تظهر الفورم فقط عند الضغط على خلية واحدة ولتكن مثلاً C17 فقمت بتغير الكود كالآتي :

private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, CELL("C17" & Rows.Count)) Is Nothing Then

Cancel = True

form_Cm_Search.Show 0

End If

End Sub

ولكن لم تفلح محاولتي ، فما هو الخطأ في هذا الكود للحالة التي ذكرتها ؟

[عبدالله باقشير]

السلام عليكم

الاخ الفاضل/ محمدي -------حفظه الله

الاخ الفاضل/ سالم شباني -------حفظه الله

ربنا يبارك فيكما

تقبلا جزيل شكري وتقديري

=================================

الاخ الفاضل/ ابو سارة -------حفظه الله

ولكني احتاج أن تظهر الفورم فقط عند الضغط على خلية واحدة ولتكن مثلاً C17

استخدم الكود التالي:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Address = Range("C17").Address Then

    Cancel = True

    form_Cm_Search.Show 0

End If

End Sub

[khaledplayer]

مشكور جدا اخ خبور على الموضوع الرائع

بصراحه ما فى موضوع عملته الا واستفدت منه

ايضا الاخ ياسر خليل وكلكم والله علماء عن جد

[أبوســـارة1973]

أعجز عن شكرك أخي خبور

[aazsubbah]

و الله يعجز اللسان عن شكرك اخي الفاضل

و لكن اقل ما يمكن ان اقوله لك

جزاك الله خيرا و جعل لك في كل خطوة سلامة و رزقك من حيث لا تعلم

اللهم آمين

[هاني بدر]

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

عزيزي استاذ خبور تعددت ابداعاتك وتخطت حدود الإبهار فماذا نحن فاعلين. ادام الله عليك نعمه وفضله.

ارجو من حضرتك ان تضع لمسة اخرى ابداعية بتحديد متغيرات اخرى للبحث بمعنى انه في هذا النموزج معايير البحث تكون في عمودين ( متغيرين ) هما التاريخ واى عمود آخر نختاره

فماذا لو اردنا اضافة معيار جديد من عمود اخر وللتوضيح ماذا لو اردت عرض بيانات الفترة بناء على القيمة 3 في العمود الذي عنوانه ( إلى ) والقيمة محمد1 في العمود الذي عنوانه ( اسم المستلم ) خلال التواريخ المختارة تقبل تحياتي