حسونة حسين

اخى الكريم  @محمد يوسف ابو يوسف

كيف تجعل اجابتى افضل اجابه وما هى الا ان وضعت لك الكود الخاص بالاستاذ @lionheart فاجابته هى التى تكون افضل اجابه وليس اجابتى 

اعطى كل زى حق حقه اخى الكريم 

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

حل مشكلة اللغة العربية

تفضل ابو يوسف 

Save As Text.xlsm

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

https://www.officena.net/ib/topic/112828-لا-اريد-تغير-اسم-الملف-الرئيسي/

https://www.officena.net/ib/topic/112797-تعديل-كود-حفظ-ملف-نصي/

اخى الكريم  @محمد يوسف ابو يوسف

16 ساعات مضت, محمد يوسف ابو يوسف said:

لاادري مذا تقصد بهذه الاكواد

تمام انت صح في هذه النقطه

16 ساعات مضت, محمد يوسف ابو يوسف said:

وهي لم  تفي بالمطلوب

انت مخطئ في هذه النقطه

لان الكود جميل جدا ويفي بالمطلوب تماما وقد جربته ويعمل جيدا على ملفك

جزاه الله خيرا الاستاذ @lionheart على هذا الكود 

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

جربى هذا التعديل

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