بحث من فورم بعدة خيارات ووضع النتائج في listbox

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

الاستاذ الفاضل خبور خير

اعمالك بل ابداعاتك كلها جميلة مفيدة متقنة فريدة من نوعها

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

متعك الله بالصحة والعافية

سعد عابد

اكرمك الله في الدارين

واثابك بدعائك

واعطاك بمثله اضعاف مضاعفة

وجزاك خيرا وبارك فيك

تقبل تحياتي وشكري

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

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

استاذنا الكبير الغالي عبد الله باقشير " خبور خير "

بعد غيبة طويلة لم استطع خلالها الدخول الى النت واستمتع بأعمال اساتذتي واخوتي الاعزاء في اوفيسنا

سنحت لي الظروف بالدخول واول استعراض لي كان هذا الموضوع ... ما شاء الله ... ما شاء الله

طبعا انا لا اجرء على تقييم اعمالك فأنت فارس وعالم لايشق له غبار ... وصاحب فضل كبير ( والفضل لله )

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

وهنا انقل عن حبيبي وصديقي سعد عابد : اعمالك بل ابداعاتك كلها جميلة مفيدة متقنة فريدة من نوعها

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

متعك الله بالصحة والعافية

وفقك الله ....

ابو الحارث

اولا

نورت المنتدى

ثانيا

اكرمك الله في الدارين

واثابك بدعائك

واعطاك بمثله اضعاف مضاعفة

وجزاك خيرا وبارك فيك

ووفقك في جميع امورك

تقبل تحياتي وشكري

[MAHMOUD ALI YOUSSEF]

السلام عليكم

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

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

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

السلام عليكم

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

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

جزاك خيرا وبارك فيك

تقبل تحياتي وشكري

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

السلام عليكم أستاذي عبدالله باقشير

إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6

فكيف يكون التعديل في الكود ؟

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

السلام عليكم أستاذي عبدالله باقشير

إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6

فكيف يكون التعديل في الكود ؟

تفضل استبدل بهذا

Private Sub ButtonSaveFil_Click()

Dim iC As Integer

iC = Me.ListFind.ListCount

If iC = 0 Then GoTo 1

'------------------------

Application.ScreenUpdating = False

    With Sheets(3)

        .Select

        .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List

    End With

Application.ScreenUpdating = True

Unload Me

1

End Sub

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

أحسنت أستاذي الفاضل : عبدالله باقشير جزاك الله خيراً

[جمال جبريل]

 

 

السلام عليكم أستاذي عبدالله باقشير

إذا أردت أن نسخ نتيجة البحث في نفس الملف ولكن في شيت رقم 3 ابتداء من الخلية A6

فكيف يكون التعديل في الكود ؟

 

تفضل استبدل بهذا

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
    With Sheets(3)
        .Select
        .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List
    End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم

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

اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم

 

استبدل بدلا من الرقم 1000 الطول الحقيقي للكشف عندك

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
    With Sheets(3)
        .Select
        .Range("A6").Resize(1000, ContColmn).ClearContents
        .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List
    End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

تحياتي

[خالد القدس]

السلام عليكم

 

عطاء بلا حدود ياربي أكرم صاحب الجود والصدر الودود

 

أستاذ الاجيال بارك الله فيك وحفظك ذخرا للبلاد والعباد

[جمال جبريل]

 

اريد فقط قبل ان ينسخ المحتويات الي الورقة الجديدة ، ان يمسح او يزيل معلومات وبيانات موجودة في نفس الورقة وابتداءا من الخية (A6) ، وشكرا لكم

 

استبدل بدلا من الرقم 1000 الطول الحقيقي للكشف عندك

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
    With Sheets(3)
        .Select
        .Range("A6").Resize(1000, ContColmn).ClearContents
        .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List
    End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

تحياتي

 

فتح الله لك ، واعطاك من كل الخيرات التي تتمناها ، ولكن اريد توسع اكثر ، فهم رقم 1000 ، واريد ان يكون الملف مفتوحا ، وليس محددا بمدى معين ، اي كل مستند ، وليس 1000 صف او عمود فقط ، كل المستند

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

 

فتح الله لك ، واعطاك من كل الخيرات التي تتمناها ، ولكن اريد توسع اكثر ، فهم رقم 1000 ، واريد ان يكون الملف مفتوحا ، وليس محددا بمدى معين ، اي كل مستند ، وليس 1000 صف او عمود فقط ، كل المستند

 

آمين

جرب هذا

Private Sub ButtonSaveFil_Click()
Dim iC As Integer
iC = Me.ListFind.ListCount
If iC = 0 Then GoTo 1
'------------------------
Application.ScreenUpdating = False
    With Sheets(3)
        .Select
        .Range("A6").Resize(.UsedRange.Rows.Count, .UsedRange.Columns.Count).ClearContents
        .Range("A6").Resize(iC, ContColmn).Value = Me.ListFind.List
    End With
Application.ScreenUpdating = True
Unload Me
1
End Sub

تحياتي

[Akram Galal]

عمل رائع

[ابو يحي]

مجهودات جبارة بارك الله فيكم جميعا