أبو محمد أشرف

جزاك الله خيرا يا أبا عيد وفعلا أخي أبو البراء هذا ما قصدته تجميع كل الأرقام التي يمكن أن تؤدي للنتيجة المرجوة وليس كل رقمين فقط ..

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

السلام عليكم أخي هل هذا هو المطلوب ؟ Trhel.rar Trhel.rar Trhel.rar

يا أستاذ أنا عاوز معادلة أو كود اطلع بيه الرقم ده يعني اجمع ايه علي ايه بحيث يديني الرقم دا 120073.66 فأي خلايا اجمعها ليطلع الرقم اللي فوق وشاكر للجميع تعاونهم

دوما للأمام جاري التحميل

Up

يعني اجمع ايه علي ايه بحيث يديني الرقم دا 120073.66 ده في العمود amount وناتج الجمع نهاية العمود

export.rar أول 34 قيمة في عمود amount 120071 ا المجموع

هذا تصور للملف وفيه المطلوب وجزاكم الله خيرا حساب احتمالات.rar

أشكرك أخي الكريم وجزاك الله خيرا جاري التحميل

ضروري الناس ال فاهمه احصا عندي 20 قيمة عايز احسب كل الاحتمالات الممكنه لجمع القيم دي مع بعضها بشرط عدم حساب مجموع القيمة مع نفسها هاااا حد محاسب هنا يساعدني وياريت لو تتعمل ازاي اكسيل يبقا كدا عنب :) محتاج دعم

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

up

up

بعد إن الاستاذ ياسر الأخ أكرم جلال أنا نزلت الملف وجربته كله شغال تمام ووبخصوص السطر ده .ExportAsFixedFormat Type:=xlTypePDF, Filename:=MyFile لازم تروح على بارتشن d وتعمل ملف باسم new وهو ده اللي بيتحفظ فيه الملف بصيغة pdf

أشكرك هجرب وهشوف إن شاء الله

أخي الحبيب أبو البراء أتوقع مقصد أبو جنى انه معرفش يغير اسمه من انجلش لعربي

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

دائما أخي الحبيب والرائع ياسر خدوم بارك اللهفيك وفي أولادك جربت الكود وشغال معي تمام ما فيه اي مشكلة

ما فهمتك ؟!

انا جربت الكود شغال عندي انت بس مكان حفظ الملف في الكود اعلاه لأني عملته في السي مفيش عندي برتشن d جرب وبلغني "c:\NEW\"

السلام عليكم ورحمة الله وبركاته هذا كود لإخفاء وإظهار صفحة معينة في الإكسيل تقبلوا تحياتي ............. إخفاء وإظهار ورقة صفحة معينة في الإكسيل.rar

استدعاء منين لفين

أخي الحبيب بالنسبة لإخفاء صفحة الترحيل اليي هي sheet1 قف عليها ثم كليك يمين واختار اخفاء أو Hide أم تقصد اخفائها بكود وإذا أردت الاخفاء بكود فضع هذا السطر في آخر الكود الذي أنت عملته Sheet4.Visible = xlSheetHidden Sub PDF() myfile = "c:\NEW\" & sheets(2).Range("F3") & "-" & sheets(2).Range("F2") & ".pdf" lrow = sheets(4).Range("g" & Rows.Count).End(xlUp).Row + 1 sheets(4).Range("a1:z12").Value = sheets(2).Range("a1:z12").Value sheets(4).Range("C14:U22").Value = sheets(2).Range("AC1:AU9").Value sheets(4).Range("A26:A177").Value = sheets(1).Range("A3:A154").Value sheets(4).Range("C26:C177").Value = sheets(1).Range("B3:B154").Value sheets(4).Range("E26:E177").Value = sheets(1).Range("C3:C154").Value sheets(4).Range("F26:F177").Value = sheets(1).Range("D3:D154").Value sheets(4).Range("G26:G177").Value = sheets(1).Range("E3:E154").Value sheets(4).Range("I26:I177").Value = sheets(1).Range("H3:H154").Value sheets(4).Range("J25:J177").Value = sheets(1).Range("L2:L154").Value sheets(4).Range("K25:K177").Value = sheets(1).Range("M2:M154").Value sheets(4).Range("L25:L177").Value = sheets(1).Range("N2:N154").Value sheets(4).Range("M25:M177").Value = sheets(1).Range("O2:O154").Value sheets(4).Range("N25:N177").Value = sheets(1).Range("P2:P154").Value sheets(4).Range("O25:O177").Value = sheets(1).Range("Q2:Q154").Value sheets(4).Range("P25:P26").Value = sheets(1).Range("R2:R3").Value sheets(4).Range("Q25:Q26").Value = sheets(1).Range("S2:S3").Value sheets(4).Range("F23").Value = sheets(1).Range("F1").Value sheets(4).ExportAsFixedFormat Type:=xlTypePDF, Filename:=myfile Sheet4.Visible = xlSheetHidden End Sub وإذا أردت إخفاؤه نهائيا بحيث لا يظهر فضع كلمة very Sheet4.Visible = xlSheetVeryHidden وإذا أردت إظهاره فاستخدم هذا الكود Sheet4.Visible = True تقبل تحياتي وهو منقول للأخ الراحل عماد الحسامي رحمه الله