حسونة حسين

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

السلام عليكم ورحمة الله وبركاته اخى الرابط في اول الموضوع list all files and folders in path.rar

جربها بهذا الشكل اخى ضع هذه المعادله في c6 =IF(AND(ISNUMBER('شيت الرابع'!P12);ISNUMBER('شيت الرابع'!Q12));'شيت الرابع'!P12+'شيت الرابع'!Q12;IF(ISNUMBER('شيت الرابع'!P12);'شيت الرابع'!P12;'شيت الرابع'!Q12)) تغير العلامه , الى ;

اخى عمر ضع هذه المعادله =B2&C2 في العامود f في الخليه f2 في المخزن ثم اسحب المعادله الى اخر سطر في اكواد وهو f48 ثم اذهب الى الورقه باسم ورقه ١ ثم ضع الكود الخاص بالاستاذ @lionheart ستجد ان الرساله التى تريدها ستظهر لك ان شاء الله

وعليكم السلام ورحمة الله وبركاته اجعل المعادله هكذا =IF(ISNUMBER('شيت الرابع'!P14);'شيت الرابع'!P14+'شيت الرابع'!Q14;'شيت الرابع'!P14)

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

الخطأ في اي سطر اخى الكريم لو تقصد السطر رقم j5 حضرتك كاتب ٢٨٠+٢٨٠=٥٦٠ ولكن حضرتك كاتب في الرصيد السابق في نفس السطر في الخليه h5 المبلغ بالسالب -280 وفي الخليه g5 مبلغ بالموجب 280

بارك الله فيك استاذنا الفاضل ابو يوسف

اخر عمليه في الملف المرفق ولا ملف اخر

بعد اذن أستاذنا الفاضل ابراهيم الحداد تفضل اخى الكريم =(B1/2*1.4)+(B1/2*2.4) وان شاء الله تفي بالمطلوب

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

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

تفضل ابو يوسف Save As Text.xlsm

وعليكم السلام ورحمة الله وبركاته موضوع مكرر https://www.officena.net/ib/topic/112828-لا-اريد-تغير-اسم-الملف-الرئيسي/ https://www.officena.net/ib/topic/112797-تعديل-كود-حفظ-ملف-نصي/

اخى الكريم @محمد يوسف ابو يوسف تمام انت صح في هذه النقطه انت مخطئ في هذه النقطه لان الكود جميل جدا ويفي بالمطلوب تماما وقد جربته ويعمل جيدا على ملفك جزاه الله خيرا الاستاذ @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 فقط

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