كيفيه عمل بحث متقدم

[احمد حبيبه]

الاخوه الاعزاء .. ارجوا مساعدتى فى الملف المرفق وهو عمل بحث متقدم فى بيانات العاملين

 

يانات العاملين.rar

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

السلام عليكم

 

باستخدام التصفية المتقدمة

 

المرفق 2003

يانات العاملين1.rar

[احمد حبيبه]

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

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

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

 

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

 

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

 

العمل كله يتركز على معادلة المعيار

 

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

[احمد حبيبه]

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

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

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

 

تفضل :

Sub kh_Filter()
Dim LR As Long
With ورقة1
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1:N" & LR).AdvancedFilter xlFilterCopy, Range("O1:O2"), Range("B10:K10")
End With
LR = Cells(Rows.Count, "B").End(xlUp).Row
If LR > 10 Then
    Range("B10:K" & LR).PrintPreview
End If
End Sub

تحياتي

[احمد حبيبه]

اشكرك جدا  استاذى الفاضل على الكود الرائع .. لكن لى طلب صغير هل يمكن فصل كود معاينة الطباعه فى زر خاص به بعيدا عن رز التصفيه .. اسف جدا على كثرة الطلبات ولكن عذرى انى اطلب من أخ  كريم واستاذ كبير

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

اشكرك جدا  استاذى الفاضل على الكود الرائع .. لكن لى طلب صغير هل يمكن فصل كود معاينة الطباعه فى زر خاص به بعيدا عن رز التصفيه .. اسف جدا على كثرة الطلبات ولكن عذرى انى اطلب من أخ  كريم واستاذ كبير

 

كود الفلترة وتحديد نطاق الطباعة

Sub kh_Filter()
Dim LR As Long
With ورقة1
    LR = .Cells(.Rows.Count, "A").End(xlUp).Row
    .Range("A1:N" & LR).AdvancedFilter xlFilterCopy, Range("O1:O2"), Range("B10:K10")
End With
Range("B11").Select
LR = Cells(Rows.Count, "B").End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = Range("B10:K" & LR).Address
End Sub

كود المعاينة

Sub kh_PrintPreview()
ActiveSheet.PrintPreview
End Sub

تحياتي

[احمد حبيبه]

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

[احمد حبيبه]

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

اسف لكثرة طلباتى لكنى اعمل على انهاء برنامج شئون العاملين  ليساعدنى فى عملى ..فارجوا مساعدتك والمطلوب ترحيل اعمده بيانات معينه دون غيرها من صفحة data الى صفحة بحث2 ..ولسيادتكم وافر التحية .

يانات العاملين1.rar

[احمد حبيبه]

للرفع جزلكم الله خيرا

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

استاذ / عبدالله باقشير

 

  بارك الله فيك _ لمسات ابداعاتك لا توصف

 

                                 مع تقديرى و تحياتى

[احمد حبيبه]

up