أبو قاسم

Sub Export_PDF_in_most()

Application.ScreenUpdating = False

 

ActiveSheet.ExportAsFixedFormat xlTypePDF, "C:\Users\DESKTOP\Dropbox" _
& "\  Escorts Date   " & N & UserForm1.TextDate1 & ".PDF"
Application.ScreenUpdating = True
End Sub

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

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

كل عام وأنت بخير و جميع المسلمين و الامة العربية

جميل بارك الله فيك

الف مبروك يستاهل كل خير  

منذ ساعه, البرنس النصراوي said:

طريق إضافة الأطراف  كيف تتم 

اذا عندك شرح مفصل ممكن توافيني

 

تفضل

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

17 دقائق مضت, البرنس النصراوي said:

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

ارجو توضيح كيف اعمل مشاركة ملف اكسل 

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

تفضل عساني وفقت في العمل يارب ياكريم

2in1.rar

منذ ساعه, وليد زقزوق said:

الاستاذ هشام 

طريقه جوجل درايف لحد الان هي اسهل واسرع واجدي طريقه لذلك

بس بشرط انت تظبط الاعدادات صح علي الجهازين

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

هل يوجد طريقة افضل من جوجل درايف ومن دروبكس؟

يوضع في حدث المصنف الرئيسي

Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.Save
End Sub

اليك الملف تم الغاء الحماية عن التاريخ ورقم المستند

WAREHOUSE-1 - UN AND PW 123.rar

ربنا يحفظك دنيا واخرة ويبارك فيك صحيح كود جاب المطلوب ماقصرت ربنا يكثر من امثالك

جزاك الله خير على هذة المعلومة لاكن انا محتاج عدم ظهور بياناتة نهائي لان الفورم يصدر الى ورقة جانبية ثم طباعة

فاذا كان مخفي من الظهور سوف يصدر ويظهر في ورقة الطباعة

3 ساعات مضت, سمير نجار said:

السلام عليكم

السادة الكرام

هذا الكود لا يعمل على   2007  أليس كذلك ؟؟؟

 

 

يعمل بشكل ممتاز

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

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

C:\Users\new\Desktop\nam

ولكم جزيل الشكر 

Book1.rar

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

طبعاً المطلوب تحويل الساعات الى دقائق فقط

تشكر الف شكر

ارجو المساعدة بكود تحويل الساعات الى دقائق

تحويل الساعات الى ثواني.rar

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

الموضوع:

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

مع شكري وتقديري للجميع

طبعاً الاعمدة التي احتاج الى الغاء ظهورها ملونة باللون الاصفر

ملف بحث بفورم ممتاز.rar

 الله يوفقك دنيا واخرة وربنا يزيدك من فضلة 

الف شكر تعجز كلماتي عن شكرك الف شكر 

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

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

يكون اكواد او معادلات  يوجد توضيح اكثر في المرفقات 

Book1.rar

محتاج طباعة حسب تاريخ اليوم

جميل بارك الله فيك

7 ساعات مضت, أخوكم في الله said:

السلام عليكم

كلما تمت التجربة كلما قلت الاخطاء

بالفعل لم اضع الاجمالي في آخر صفحة الطباعة

امسح الموديل 2 و انسخ مكانه الكود التالي

 

Sub iPageSetup()

Application.ScreenUpdating = False
Dim sh As Worksheet, Lr As Integer, Last As Integer
Set sh = Sheets("sPrint")
With sh
Last = .Range("A" & Rows.Count).End(xlUp).Row + 1
.PageSetup.PrintArea = ""
.Range("A8:E" & Last).Borders.Value = 0
'-----------------------------------------------------
.Range("A8:E" & Last).ClearContents
'-------------------------------------------------------
        .PageSetup.LeftMargin = Application.InchesToPoints(0.5)
        .PageSetup.RightMargin = Application.InchesToPoints(0.5)
        .PageSetup.TopMargin = Application.InchesToPoints(0.5)
        .PageSetup.BottomMargin = Application.InchesToPoints(0.5)
        .Columns("A:A").ColumnWidth = 8: .Columns("B:B").ColumnWidth = 18
        .Columns("C:C").ColumnWidth = 25: .Columns("D:D").ColumnWidth = 14
        .Columns("E:E").ColumnWidth = 15: .Cells.Font.Size = 12
End With
sh.Range("A8").Resize(UserForm2.ListBox1.ListCount, 5).Value = UserForm2.ListBox1.List
Lr = sh.Range("A" & Rows.Count).End(xlUp).Row
sh.Range("A8:E" & Lr).Borders.Value = 1
sh.Range("C" & Lr + 2) = "المجمــوع :"
sh.Range("D" & Lr + 2) = UserForm2.T_Total.Value
sh.Range("C" & Lr + 2 & ":D" & Lr + 2).Borders.Value = 1
sh.PageSetup.PrintArea = "A1:E" & Lr + 3
Application.ScreenUpdating = True

sh.PrintOut

End Sub

 

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

ثانيا ComboBox3 لايظهر في اللستة اذا كان تنسيق تاريخ

طريقة تصميم فورم بحث عن طريق لست بوكس2.rar

الله يبارك فيكم هذا هو المطلوب ماقصرتوا ربنا يزيد ويبارك