عبدالله المجرب

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

اخي الفاضل بعد اذن الاستاذ هشام جرب الاتي ضع هذه المعادلة في الخلية E2 ثم اسحبها للاسفل =DATE(YEAR(A2);MONTH(A2);DAY(A2)) ضع هذه المعادلة في الخلية C2 وبدل المعادلة الموجودة مسبقاً واسحبها للاسفل =IF(AND(A2>=E2+TIME(8;30;0);A2<=E2+TIME(16;29;0));"1SH";IF(AND(A2>=E2+TIME(16;30;0);A2<=E2+TIME(23;29;0));"2SH";IF(OR(AND(A2>=E2+TIME(23;30;0);A2<=E2+TIME(23;59;59));AND(A2>=E2+TIME(0;0;0);A2<=E2+TIME(8;29;0)));"3SH";"")))

المهندس طارق محمود عمل مميز سلمت الايادي يا باشا ابواحمد

اولاً : نشكر الاستاذ BLUEMIND . ثانياً: اخي الفاضل هناك مشاركة على الرابط ادناه توضح طريقة رفع الملفات http://www.officena.net/ib/index.php?showtopic=31250 اخي الكريم انت لم ترفق مثال كما طلب منك ومع هذا تتهكم على عدم الحصول على رد !! ارفق مثال وبإذن الله ستجد الرد فأعضاء أوفيسنا لا يبخلون بما لديهم على أحد والله من وراء القصد

هذا كود لجعل الفورم دوماً في المقدمة الكود من ابداعات الاستاذ يحياوي حفظه الله ورعاه اظهار الفورم دوما في المقدمة.rar

اخي الكريم هذا ملفك بعد عمل التعديلات اللازمة تم استبدال الصور لعدم ملائمتها ابواحمد بطاقة شخصية.rar

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

اخي الفاضل "الجزيرة" جل من لا يسهو ابواحمد

الاستاذ الفاضل عماد الحسامي عمل رائع ومميز سلمت يداك على هذه التحفة ابواحمد

بعد إذن الاستاذ عماد ضع هذا الكود ضمن اكواد الفورم Private Sub UserForm_Activate() Change2Arabic End Sub وان شاء الله يكون هذا ما طلبت ابواحمد

المطلوب غير مفهوم ولا واضح؟؟؟؟؟ اخي طاهر ارفق ملف يوضح المطلوب وستجد الحل بإذن الله ابواحمد

الاخ هشام مرسي بارك الله فيك على هذه الاكواد الجميلة الاستاذ محمد صالح (الماسة المنتدى) شكراً على هذه المساهمة والملاحظة الرائعة ابواحمد

اخي سامر استبدل هذا السطر من الكود ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True بهذا Selection.PrintOut Copies:=1, Collate:=True واعلمني بالنتيجة ابواحمد

أرشد النبي صلى الله عليه وسلم أمته إلى ما يعصمها من فتنة المسيح الدجال ، فقد ترك أمته على المحجة البيضاء ليلها كنهارها لا يزيغ عنها إلا هالك. فلم يدع خيراً إلا دل أمته عليه ولا شراً إلا حذرها منه، ومن جملة ما حذّر منه فتنة المسيح الدجال لأنها أعظم فتنة تواجهها الأمة إلى قيام الساعة ، وكان كل نبي ينذر أمته الأعور الدجال واختص محمد صلى الله عليه وسلم بزيادة التحذير والإنذار وقد بين الله له كثيراً من صفات الدجال ليُحذِّرَ أمته فإنه خارج في هذه الأمة لا محالة لأنها آخر الأمم ومحمد صلى الله عليه وسلم خاتم النبيين. وهذه وهذه بعض الإرشادات النبوية التي أرشد إليها المصطفى صلى الله عليه وسلم أمته لتنجو من هذه الفتنة العظيمة التي نسأل الله العظيم أن يعافينا ويعيذنا منها : ( أولاً ) التمسك بالإسلام ، والتسلح بسلاح الإيمان ومعرفة أسماء الله وصفاته الحسنى التي لا يشاركه فيها أحد. فيعلم أن الدجال بشر يأكل ويشرب، وأن الله تعالى منزه عن ذلك. وأن الدجال أعور والله ليس بأعور. وأنه لا أحد يرى ربه حتى يموت والدجال يراه الناس عند خروجه مؤمنهم وكافرهم. وللحديث بقية .......

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

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

شكراً لك اخي سعد ارجو منك الانتباه اثناء كتابة كلمة ان شاء الله ابواحمد

الاستاذ الفاضل يحياوي المعذرة تم انشاء موضوع جديد يخص وميض النص بشروط وذلك للفائدة. هذا رابطه http://www.officena.net/ib/index.php?showtopic=38622 ابواحمد

اخي الفاضل هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة Sheet1 LR = Sheets("Sheet1").Range("a" & Rows.Count).End(xlUp).Row هذا يعني ان X تساوي قيمة الخلية F2 x = Range("F2").Value يتم إختيار المدى A2 الى D ورقم اخر صف ثم يتم نسخ المضلل ثم ازالة التحديد عن المدى Range("A2:D" & LR).Select Selection.Copy Range("A2").Select إختيار ورقة العمل التي اسمها في الخلية F2 Sheets(x).Select هذا الجزء لتحديد رقم اخر صف يحتوي على بيانات في العمود a من الورقة التي اسمها في الخلية F2 LR1 = Sheets(x).Range("a" & Rows.Count).End(xlUp).Row اخيار المدى A و رقم اخر صف +1 ولصق البيانات فيه Range("A" & LR1 + 1).Select ActiveSheet.Paste إلغاء وضع النسخ واللصق واختيار الخلية C1 وظهور رسالة بكلمة done Application.CutCopyMode = False Range("C1").Select MsgBox ("done") ان شاء الله الشرح وافي ابواحمد

اخي حسن علي ابواحمد ضع هذا الجزء من الكود LastRow = Sheets("data").Range("a" & Rows.Count).End(xlUp).Row Sheets("data").Range("A1:C" & LastRow).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Z1:Z2"), CopyToRange:=Range("A5:C5"), Unique:=False بدلاً عن هذا الجزء وسيصبح المدى مرن ولا حاجة الى تعريفه Sheets("data").Range("Rng").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _ "Z1:Z2"), CopyToRange:=Range("A5:C5"), Unique:=False اخي حسن هذا ليس كود بحث وانما تصفية متقدمة لكن راجع رابط هذه المشاركة لعل فيه ما تريد http://www.officena.net/ib/index.php?showtopic=38530

شكراً ابو نصار على التجاوب السريع وباين انك سهوت فيها كما سهوت في اسمي :frown3: عبدالله المجرب

اخي الفاضل ضع هذا الكود ضمن اكواد الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub وان شاء الله سيلغي عمل زر X شكراً للاستاذ ابو نصار على مساهماته ولي ملاحظة في كتابته لكلمة ان شاء الله ونرجو منه الانتباه الى كتابتها بالشكل الصحيح والله من وراء القصد

السلام عليكم اخي الجزيرة استبدل المعادلة السابقة بهذه =VLOOKUP(J1;dataall;17;FALSE) السبب انك حسبت الاعمدة 18 ابتداء من العمود A والمفترض ان تبداء العد من العمود B ليصبح عمود تاريخ نهاية التغطية هو الرقم 17 والله اعلم ابواحمد

بسم الله الرحمن الرحيم اترككم مع احدى الحكم التي اعجبتني يقول الحكيم الصيني كونفوشيوس: (( ثقوم الحكومة الصالحة على ثلاثة اركان: طعام يسد حاجة الشعب. وجيش يذود حياض الوطن. وثقة تعتمد عليها ﺍﻟﺤﻜﻭﻤﺔ ﻤﻥ ﺍﻟﺸﻌﺏ. ﻭﺇﺫﺍ ﻟﻡ ﻴﻜﻥ ﺒﺩُ ﻤﻥ ﺍﻻﺴﺘﻐﻨﺎﺀ ﻋﻥ ﺃﺤﺩ ﺍﻷﺭﻜﺎﻥ ﺍﻟﺜﻼﺜﺔ، ﻓﻠﻴﻜﻥ ﺍﻟﺠﻴﺵ. ﺜﻡ ﺇﺫﺍ ﺍﻀﻁﺭﺭﻨﺎ ﺇﻟﻰ ﺘﺨﻴﺭ ﺃﺤﺩ ﺍﻟﺭﻜﻨﻴﻥ ﺍﻵﺨﺭﻴﻥ، ﺍﻟﻁﻌﺎﻡ ﻭﺍﻟﺜﻘﺔ، ﻓﺈﻨﻨﻲ ﺃﻭﺜﺭ ﺃﻥ ﻨﺴﺘﺒﻘﻲ ﺍﻟﺜﻘﺔ. ﺫﻟﻙ ﻷﻥ ﺍﻟﺠﻭﻉ ﻴﻤﻴﺕ ﺃﻓﺭﺍﺩﺍ ﻤﻥ ﺍﻷﻤﺔ، ﺃﻤﺎ ﻓﻘﺩ ﺍﻟﺜﻘﺔ ﻓﺈنه يميت الامة كلها)) واترك التعليق لكم ......... ابواحمد

لو استطعنا التغيير لستطعنا عمل اي فورمات للتاريخ نريد انا عن نفسي حاولت ولكن لم استطع فك شفرة الكود والله الموفق ابواحمد