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

الف مبروك ومنها للاعلى

ما رايك بهذه المشاركة http://www.officena.net/ib/index.php?app=downloads&showfile=136

السلام عليكم الف مليوووووووون مبروك والى الامام دوما.... تحياتي

اليك المرفق بعد التعديل الاقامة_06 (1).rar

السلام عليكم شاهد المرفق سيبقى تاريخ الانتهاء خالياً مالم يتم تسجيل الثلاث الخانات الخاصة بالمدة الاقامة_06.rar

هل تقصد هكذا db1 (3).rar

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

جرب المرفق Database7.rar

سلمت يمينك استاذ عبدالله كنت قد عدلت على الكود السابق ولكن شتان Sub Abu_Ahmed() Dim cl As Range, cel As Range For Each cel In [C9:AG17] If IsNumeric(cel) Then cel = "" Next For i = 4 To [AK1000].End(xlUp).Row For Each cl In [A9:A17] If cl = Cells(i, 37) Then T = Cells(i, 38): K = Cells(i, 39) For ii = 3 To 33 If Cells(7, ii) = "s" Then If Not IsNumeric(Cells(cl.Row, ii)) Then GoTo 1 If T = 1 Then Cells(cl.Row, ii) = 1: T = 0: GoTo 1 If T >= 2 Then Cells(cl.Row, ii) = 2: T = T - 2 End If If Cells(7, ii) = "H" Then If K < 8 Then Cells(cl.Row, ii) = K: K = 0: GoTo 1 If K >= 8 Then Cells(cl.Row, ii) = 8: K = K - 8 End If 1 Next End If Next Next End Sub

شكراً اختي أم عبدالله وان شاء الله نراك خبيرة " أد الدنيا "

دائماً مواضيعك قيمة جداً بارك الله فيك

السلام عليكم اليك المرفق بعد التعديل DATA.rar

السلام عليكم الاخت الفاضلة / ام عبد الله وهنيئا لصرحنا العملاق اول ( عضوة محترفة ) والله بجد تستاهليها عند جدارة واستحقاق ومزيد من التقدم للأعلي بإذن الله وكل الشكر والتقدير للعلامه الخبير ( استاذ الجميع ) ومديرنا الجميل / عبد الله باقشير علي اختياراته وترشيحاته الأكثر من راائعة دائما

الف مبروك والى الامام دائما

الف مبروك والى الامام دائما

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

حمدا لله على السلامة واسمحوا لي على التأخر بالرد

السلام عليكم اعتقد ان كلمة " جمعة مباركة" كانت من بين ما تم التنبيه عليه بأنه بدعه والله أعلم

بارك الله فيك

ضع ملف به توضيح للمطلوب

ضع هذا الكود في حدث الورقة الثانية مع العلم ان اسم الورقة الأولى هو ورقة1 Private Sub Worksheet_Activate() Sheets("ورقة1").Range("B1:B100").Copy [C2] End Sub

جرب هذا الكود Sub PDF_ALL() MyName = "D:\MR_" & Format(Date, "dd-mm-yyyy") & ".pdf" Range("C45").Select Sheets(Array("A", "B", "C", "D")).Select Sheets("A").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True MsgBox "تم الحفظ" Else MsgBox "لم يتم الحفظ" End If End Sub

يمكنك تسجيل ماكرو بهذه الخطوات

تقوم بذلك من محرر الاكواد شاهد الصور

السلام عليكم اليك المرفق Abu_Ahmed_2014.rar