البحث فى لست بوكس وترحيله لورقة معينة

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

lمرحبا اخي زياد

أنشئ زرا و اكتب الكود التالي

Private Sub CommandButton3_Click()

Dim MyWorkbook As Workbook, wr As Worksheet, Last As Long
Set wr = Sheets("حسابات")
Application.ScreenUpdating = False: Application.DisplayAlerts = False

    Last = wr.Range("E" & Rows.Count).End(xlUp).Row
    If Last = 4 Then Exit Sub
    Set MyWorkbook = Workbooks.Add
    With MyWorkbook
    wr.Range("E4:G" & Last).Copy .Sheets(1).Range("A1")
    .ActiveSheet.DrawingObjects.Delete
    .SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "dd.MM.yy") & ".xlsx"
    .Close
    End With
Application.ScreenUpdating = True

End Sub

 

[عادل ابوزيد]

الاستاذ الفاضل الكبير ابو حنين

تطويراً لاعمالك العظيمة الجميلة يمكن جعل معايير البحث فى الملف 5555 تاتى على شكل قائمة منسدلة حيث ان البيانات التى سيتم البحث عنها لا اراها بمعنى اخر عند فتح القائمة المنسدلة يظهر جميع الاسماء التى يمكن البحث عنها ولكن غير مكررة وكذلك باقى المعيارين .. ارجو ان تكون الفكرة قد وضحت

مع شكرى وتقدير لمجهوداتك الكبيرة

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

هل تقصد ان اظيف قائمة منسدلة لمربع النص الاول تظهر فيها الاسماء بدون تكرار و كذلك بالنسبة للمعيارين الآخرين

[عادل ابوزيد]

نعم يا استاذى وذلك تيسيراً لمن يقوم بالبحث يكون امام الاسماء التى عايز يبحث عنها وباقى المعيارين مرتبطين بالاسم فمثلا

الاسم : محمد موسى

الحساب الفرعى : تجد مراقبين ومشرفين قدامى

الحساب الرئيسى : تجد العملاء والهندسية و .......

تقبل تحياتى مرة اخرى

[زياد عبد الجليل]

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

[ياسر خليل أبو البراء]

الان, زياد عبد الجليل said:

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

يمكنك تغيير مسار الحفظ من هذا السطر أخي زياد777 (مش هنساك)

.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(Date, "dd.MM.yy") & ".xlsx"

يمكنك إزالة ThisWorkbook.Path ووضع مسارك المطلوب بين أقواس تنصيص .. مثال :

"D:\Zeyad"

حيث Zeyad هو اسم المجلد الموجود على البارتشن D

[زياد عبد الجليل]

ههههه استاذ ياسر خلاص تعودت على زياد777....   شكرا لك استاذ ياسر  جربت الكود و هذا هو المطلوب بالضبط و الشكر موصول ايضا للاستاذ القدير ابو حنين  بارك الله في الجميع  و جمعة مباركة لكل اعضاء و زوار المنتدى.

تم تعديل سبتمبر 9, 2016 بواسطه زياد عبد الجليل