اذهب الي المحتوي
أوفيسنا

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

قام بنشر

السلام عليكم

الاخوة الكرام استنادا الى نصيحه الاخ ياسر خليل

هل يمكن عمل كود استدعاء بيانات  من شيت عام الى شيت تصفيه بدلا من المعادلات التى تؤدى الى كبر الملف ... هذا وللعلم ان نطاق المعادلات قد يتعدى 15000 صف فى شيت عام و 500 صف فى شيت تصفيه

ويكون كود التصفيه قائم على اساس المتغيرات

C1  و  C2 و  C3  و C4

وهذه التصفيه تكون بين التاريخين فى الخلايا D5  و H5 ولا يتم عمل الكود الا اذا حدث تغير فى الخليه H5 فى شيت تصفيه

التصفيه او الاستدعاء الموجود حاليا  فى الملف عن طريق المعادلات

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

بيان بحركة السائقين1.rar

قام بنشر

السلام عليكم

اخى الحبيب ابو عيد

جزاك الله كل الخير والتقدير

شاكر لك وقتك وتعبك معنى

الا انى لم اوفق فى توصسل المطلوب

اخى الحبيب اريد العاء المعادلات المساعده فى شفت عام وكذلك فى شفت تصفية

لان الملف بيكبر بزيادة المعادلات وذلك يصعب الامر 

المطلوب الاعتماد على الكود بدلا من المعادلات المساعده فى شيت عام التى بالعمود A&B&C

جزاك الله خيرا ... ارجو ان اجد ضالتى ....

 

قام بنشر

السلام عليكم و رحمة الله وبركاته

بعد اذن الأستاذ ابو عيد

اخي ابو حنين

هل يتم جلب البيانات من ورقة عام او من ورقة اخرى

  • Like 1
قام بنشر
4 ساعات مضت, احمدزمان said:

السلام عليكم و رحمة الله وبركاته

بعد اذن الأستاذ ابو عيد

اخي ابو حنين

هل يتم جلب البيانات من ورقة عام او من ورقة اخرى

وعليكم السلام

مين إنت ؟! حد يعرف الشخص الحلو ده؟!!

الشخص دا لابس طاقية الإخفا .. بيكون مختفي طول الوقت (حدش يقدر يقلعه الطاقية اللي لابسها دي عشان نقدر نشوفه)

عوداً حميداً أخي وحبيبي الغالي ومعلمي الكبير أحمد يعقوب .. ويا ريت تشيل الطاقية

  • Like 1
قام بنشر
3 ساعات مضت, ياسر خليل أبو البراء said:

وعليكم السلام

مين إنت ؟! حد يعرف الشخص الحلو ده؟!!

الشخص دا لابس طاقية الإخفا .. بيكون مختفي طول الوقت (حدش يقدر يقلعه الطاقية اللي لابسها دي عشان نقدر نشوفه)

عوداً حميداً أخي وحبيبي الغالي ومعلمي الكبير أحمد يعقوب .. ويا ريت تشيل الطاقية

:wavetowel:

مش عارف مين انا

انا الزمان هدني......................

و صدقني اخي الحبيب و استاذي الفاضل ياسر خليل ابو البراء ان الطاقية مش في يدي

وانا اتشرف بالتواصل مع الناس المحترمين الموجودين هنا في هذا المنتدى

ولكن

تجري الرياح بما لا تشتهي السفن

خالص تحياتي و تقديري

 

  • Like 1
قام بنشر

-

-

السلام عليكم

الأخ ابو حنين

جرب المرفق

مع ملاحظة

النطاق من T1 الى Y3 مهم جدا لعمل الكود

امكانيات استخدام النجمة"*" في عمليات ادخال جزء من النص للبحث

مثال

*EK

سوف يعطيك كل العمليات التي تبدأ ب EK ايا كان رقمها

وهكذا للباقي

تحياتي و تقديري 

بيان بحركة السائقين1.rar

قام بنشر (معدل)
11 ساعات مضت, احمدزمان said:

السلام عليكم و رحمة الله وبركاته

بعد اذن الأستاذ ابو عيد

اخي ابو حنين

هل يتم جلب البيانات من ورقة عام او من ورقة اخرى

اخى الحبيب احمد زمان

بعتزر على التاخير 

يتم جلب البيانات من ورقة عام

ملحوظه الملف  حجمة تعدى 5 m

وبتعزر فتحه ولا اعلم السبب

تم تعديل بواسطه ۩◊۩ أبو حنين ۩◊۩
قام بنشر
15 ساعات مضت, احمدزمان said:

السلام عليكم و رحمة الله وبركاته

بعد اذن الأستاذ ابو عيد

اخي ابو حنين

هل يتم جلب البيانات من ورقة عام او من ورقة اخرى

اخى الحبيب احمد زمان

بعتزر على التاخير 

يتم جلب البيانات من ورقة عام

جزاك الله كل الخير ... جارى التجربه

 

قام بنشر

وعليكم السلام ورحمة الله وبركاته

استاذي الكريم احمد زمان بارك الله فيك

هذه طريقة للتصفية من حضرتك كنت قد حفظتها من قبل وهي طريقة تعجبني كثيراً لما لها من شمولية للبحث في جميع الاعمدة

أرجو أن تنال رضا استاذي ابو حنين

بيان بحركة السائقين2.rar

  • Like 1
قام بنشر

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

تقبل تحياتي

 

  • Like 2
قام بنشر (معدل)
منذ ساعه, ياسر خليل أبو البراء said:

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

نعم استاذي ابوالبراء

هذا هو الكود ومكانه في حدث الورقة (تصفية)sheet3  حيث d2 هي خلية البحث . مع ملاحظة العمود A حيث هو مكان الفلترة والتصفية

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
On Error Resume Next
Application.ScreenUpdating = False
If Target.Row <> 1 And Target.Column <> 4 Then Exit Sub
    ActiveSheet.Unprotect
    ActiveSheet.ShowAllData
Range("A7:A33333").AutoFilter Field:=1, Criteria1:="=" & [A2], Operator:=xlOr, Criteria2:="="
If [d1] = "" Then ActiveSheet.ShowAllData
Range("D1").Select
   Application.CommandBars("Web").Visible = False

End Sub

واقصد بشمولية البحث انه يمكن البحث عن اي كلمة او جزء من كلمة او عن رقم وذلك ضمن المجال B7:M33333

وهذا الملف المرفق مع تعديل بسيط

وطبعاً هنا التصفية لبينات الورقة نفسها

وهناط طريقة اخرى لتصفية بيانات ورقة (عام)

بيان بحركة السائقين3.rar

تم تعديل بواسطه سمير نجار
  • Like 2

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information