۩◊۩ أبو حنين ۩◊۩

السلام عليكم جزاك الله كل الخير والتقدير اخى الحبيب ياسر خليل تم المطلوب بصورة كامله جزاك الله كل الخير

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

السلا م عليكم اخى الحبيب ياسر خليل اولا وقبل اى شئ كل عام وانت وجميع المسلمين بكل خير تقبل الله من صيامك وقيامك ثانيا اخى الحبيب تم ارفاق الملف ثالثا لا اعلم كيف اضع الكود بين اقواص التنصيص ... ارجو التوضيح جزاك الله كل الخير mail & pdf.rar

السلام عليكم الاخوة الكرام ارجو المساعده فى التعديل على الكود المرفق حيث ان الكود المرفق يقوم بتحويل الشيتات المعنيه الى pdf وحفظها فى مكان محدد ... ثم السوال هل تريد ارسالها اميل واذا كانت الاجابه تعم يتم ارسالها اميل المطلوب عكس ترتيب عمل الشيت اى 1- ارسال الشيتات المعينه pdf اميل اولا ...... ثم السوال اذا ما ارت حفظ الشيتات المعينه pdf فى المكان المعنى للحفظ جزاكم الله كل الخير ()Sub PDF_SALAM Dim MyName As String MyName = "D:\MANAFIST TAREK\PDF\MANAFIST TAREK TO SALAM_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("C45").Select Range("C45").Select Sheets(Array("زراعى", "صحراوى", "طائرة")).Select Sheets("طائرة").Activate MyMsg = MsgBox("هل انت متاكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:\MANAFIST TAREK" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub OutlMail_PDF MyName, "Mohamed.Tawfek@khalda-eg.com;Mohamed.Amria@khalda-eg.com;mohamed.abonour@khalda-eg.com", "مانفست حقول طارق", _ vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False Else MsgBox "لم يتم الحفظ" End If Sheets("طائرة").Select ActiveWindow.SmallScroll Down:=-12 Range("B5").Select End Sub

السلام عليكم الاخ الجليل مختار حسين كل عام وانت بكل خير وعافيه كود جميل جدا سلمت يداك

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

اخى الفاضل خالد الرشيدى جزاك الله كل الخير سلمت يداك بكل خير وجزا الله كل الخير الاخ الفاضل علاء رسلان

السلام عليكم اخى الكريم علاء الاخ الكريم خالد نعم ما ذكرة الاخ علاء هو المطلوب 1- يتم حساب اول 50 كيلو وات بسعر 0.075 وهما 50 كيلو وات يكون قيمتهم 3.75 2- يتم حساب ما فوق 50 كيلو وات والى 100 كيلو وات بسعر 0.145 وهما 50 كيلو وات يكون قيمتهم 7.25 3- يتم حساب ما فوق 100 كيلو وات والى 200 كيلو وات بسعر 0.160 وهما 8 كيلو وات يكون قيمتهم 1.28 وهكذا

السلام عليكم الاخ الكريم خالد كل عام وانت بكل خير نعم اخى الحبيب الشريحة الرابعة من 201 إلى 350 كيلو وات سيكون 39 قرشا للكيلو وات ان السعر من 201 الى 350 يكون سعرة 39 قرش الشريحة السادسة 651 إلى ألف كيلو وات 68 قرشا لكل كيلو وات ان السعر ابتداء من 651 يكون سعرة 39 قرش

السلام عليكم كل عام وانتم بكل خير وزارة الكهرباء حابه تعيد عليا ممكن معادله لضبط عديه وزارة الكهرياء على اساس أولًا: الشرائح الثلاث الأولى -الشريحة الأولى من 0 إلى 50 كيلو وات ستكون 7.5 قروش للكيلو وات. - الشريحة الثانية من 51 إلى 100 كيلو وات 14.5 قرش للكيلو وات. - الشريحة الثالثة من 101 إلى 200 كيلو وات 16 قرشا للكيلو وات. ثانيًا: الشريحة الرابعة من 201 إلى 350 كيلو وات سيكون 39 قرشا للكيلو وات بدلاً من 24 قرشا. - الشريحة الخامسة من 351 إلى 650 كيلو وات سيكون 39 قرشا لكل كيلو وات بزيادة 5 قروش. - الشريحة السادسة 651 إلى ألف كيلو وات 68 قرشا لكل كيلو وات بزيادة 8 قروش. - الشريحة السابعة أعلى من 1000 كيلو وات 78 قرشا للكيلو وات بزيادة 4 قروش. يتم وضع قيمة الاستهلاك على الاساس السابق فى الخليه A15 والاستهلاك الموجود فى الخليه A13 فاتورة الكهرباء.rar

الأخ الكريم ياسر كل عام وأنت بخير .. وتقبل الله منك صيامك وقيامك وسائر اعمالك سلمت يداك

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

الاخ الجليل محمد جزاك الله كل الخير وسلمت واستسمحك فى شرح المعادلة جزاك الله خير

السلام عليكم الاخوة الكرام لقد حث فى المتنتدى الا انى لم اجد حل للمشكله المطلوب ايجاد الفرق بيت وقتين تم الخروج الساعه 8:45 م وتم الرجوع الساعه 1:30 ص فى اليوم التالى ارجو المساعده مرفق الملف جزاكم الله كل الخير بيان بحركة السائقين1.rar

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

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

السلام عليكم الاخوة الكرام وجدت كود يقوم بتحويل كما تم تحديد الى pdf الا انه لا يعمل عند استخدامه فى المرفق اين الخطاء Option Explicit Sub RDB_Selection_Range_To_PDF() On Error Resume Next Dim FileName As String If ActiveWindow.SelectedSheets.Count > 1 Then MsgBox "There is more then one sheet selected," & vbNewLine & _ "ungroup the sheets and try the macro again" Else Dim rng As Range On Error Resume Next Set rng = Application.InputBox("SELECT RANGE", "RANGE TO PDF", Type:=8) ' MsgBox "YOU SELECTED " & "(" & rng.Address(0, 0) & ")" & " TO TURN IT & SAVE IT AS PDF FILE" If Not rng Is Nothing Then Debug.Print rng.Address(external:=True) rng.Select FileName = RDB_Create_PDF(Selection, ActiveSheet.[A1].Value, True, True) If FileName = "" Then Else MsgBox "Not possible to create the PDF, possible reasons:" & vbNewLine & _ "Microsoft Add-in is not installed" & vbNewLine & _ "You Canceled the GetSaveAsFilename dialog" & vbNewLine & _ "The path to Save the file in arg 2 is not correct" & vbNewLine & _ "You didn't want to overwrite the existing PDF if it exist" End If End If End If End Sub

السلام عليكم لو ان الامر .... غير ممكن هل يمكن عند كتابه رقم الصفحه فى خليه محدده مثلا يتم تحويل الصفحه التى تم تحديها الى PDF كانى اقوم بعمل ناطق متغير بدلالة رقم الصفحه هل يمكن تحقيق المطلوب

السلام عليكم الاخوة الكرام ارجو المساعده يوجد كود بالملف بقوم بعمل الشيت كامل بصيغه PDF ( كل الصفحات ) ثم يقوم بارسال اميل ارجو التعديل عليه بحيث يقوم بحفظ الصفحه فقط الى يتم الوقف بداخلها ويكون اسم الملف محتوى الخليه التى يتم الوقوف عليها اى عند الوقف على الخليه B23 يتم حفظ الصفه التى تحتوى على الخليه B23 ويكون اسم الملف عند الحفظ هو محتوى الخليه B23 .... ويتم ايضا ارسالة عن طريق الاميل او هل يمكن اختيار الصفحه المراد حفظها PDF فقط جزاك الله كل الخير PDF اسم الصفحة.rar

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

السلام عليكم الكود فى الملف يقوم بحفظ الشيت pdf ويتم ارساله ميل ارحو المساعده فى اضافه MsgBox للكود فى الملف المرفق يكون الغرض منة السوال هل تريد ارسال المرفق اميل ام لا وعند الاجابه بنعمن يتم اارسال الملف اميل وعند الاجابه بلا ... يتم الغاء ارسال الاميل جزاكم الله كل الخير pdf& mail.rar

السلام عليكم قبل صلاه العشاء والتراويح حبيب اجى واقول جزاك الله كل الخير

السلام عليكم قبل صلاه العشاء والتراويح حبيب اجى واقول جزاك الله كل الخير وجدت ضالتى فى موضوعك (Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean If Not Intersect(Target, Range("h5:g17")) Is Nothing Then Cancel = True Call mas End If End Sub ()Sub mas() ("ActiveCell = Format(Now, "hh:nn ampm End Sub

اخى الحبيب أ/ محمد جزاك الله خير الاخ الكريم محمد وهل يمكن تحديد عمل الكود على العمودين من h5 الى g17

اخى الحبيب ياسر انتى كده هتخلص الدعاء جزاك الله كل الخير ودائما عونا لجميع اخوانك الكرام وتقبل الله صيامك وقيامك بكل خير