اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

رابط هذا التعليق
شارك

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

 

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

 

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

 

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

 

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

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

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

 

تفضل :

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

تحياتي

رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

  • 3 weeks later...

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

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

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

رابط هذا التعليق
شارك

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

 

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

 

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information