حسونة حسين

السلام عليكم ورحمة الله وبركاته وبها نبدأ جربى هذا التعديل Sub SaveInvoiceBothWaysAndClear() Dim NewFN As String Dim Sh As Worksheet Application.DisplayAlerts = False Set Sh = ThisWorkbook.Worksheets("INVOICE") ' Path and Name of the Files NewFN = "C:\Users\A12\Documents\invoice\Inv" & Sh.Range("E5").Value With Sh ' Create the PDF First .ExportAsFixedFormat Type:=xlTypePDF, Filename:=NewFN & ".pdf" ' Export the Excel File .Copy End With ' Deleting Shapes With ActiveSheet With .Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 5", "Rounded Rectangle 6", "Button 1", "Button 2")) .Select .Delete End With ' Save the Excel File .SaveAs NewFN & ".xlsx", FileFormat:=xlOpenXMLWorkbook End With ' Close the Excel File ActiveWorkbook.Close ' Increment the invoice number Sh.Range("E5").Value = Sh.Range("E5").Value + 1 ' Clear out the invoice fields Sh.Range("A21:f37").ClearContents Application.DisplayAlerts = True End Sub

السلام عليكم ورحمة الله وبركاته عدل ActiveSheet.DisplayRightToLeft = False الى ActiveSheet.DisplayRightToLeft = True ستجد ان اتجاه الصفحه الجديدة من اليمين الى اليسار

وعليكم السلام ورحمة الله وبركاته =COUNTIF(F5:AJ5;"غ")

ولو محتاج يحفظ الشيت كملف نصي عدل ActiveWorkbook.SaveCopyAs MyPathDirectory & MyNime الى ActiveWorkbook.SaveAs MyPathDirectory & MyNime, xlTextWindows

وعليكم السلام ورحمة الله وبركاته عدل ".txt" الى ".xlsm"

وعليكم السلام ورحمة الله وبركاته استاذنا الغالى ابو يوسف آمين يارب العالمين وإياكم اخى الغالى وجزاكم مثله استاذنا 🤲

وعليكم السلام ورحمة الله وبركاته ضع هذه المعادله في العامود j واسحب المعادله لاسفل =If(D2="نقدى";H2;G2+H2) وان شاء الله تفي بالمطلوب

وجزاكم مثله اخى ياسين الحمد لله الذي بنعمته تتم الصالحات

Cells(2, 3) = "" تمسح الخليه c2 فقط

منور استاذنا الغالى ابو يوسف بارك الله فيك

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

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

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

وعليكم السلام ورحمة الله وبركاته تفضل اخى للكشف عن القيم المكررة.xlsx

وعليكم السلام ورحمة الله وبركاته Range("c2:d4").clearcontents

السلام عليكم ورحمة الله وبركاته وبها نبدأ اخى الكريم صاحب السؤال هذه الملف موجود في موقعه الرسمي هنا كل ما عليك الا ان تضغط download سوف تاتى لك مكان تكتب فيه اسمك والاميل الذي سوف يرسل لك الرابط عليه وستجد الاكواد ظاهرة ليست محميه

وعليكم السلام ورحمة الله وبركاته عدل xlDescending الى xlAscending

جرب هذا التعديل اخى ياسين ملف جديد.xlsm

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

يمكنك اختصار كود الطباعه هكذا ActiveSheet.PrintOut Copies:=1 لطباعه الشيت المفتوح امامك ActiveSheet.PrintOut العدد المطلوب Copies:=1

اخى ظبط اعدادات الويندوز كما في في هذا الرابط مشكلة اللغه العربية

تفضل اخى عربي ملف جديد.xlsm

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

وجزاكم مثله اخى الكريم والحمد لله الذي بنعمته تتم الصالحات

السلام عليكم ورحمة الله وبركاته تفضل اخى رابط اخر على الميديا فاير