أبو محمد أشرف

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

يا أخي هذا الملف غير الأول أرجو عندما تطلب شيئا توضح كل شيء لأن الأول في بعض بعض الخلابا مدمجة 

ثانيا ماذا تقصد بصف 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

تقبل تحياتي وهو منقول للأخ الراحل عماد الحسامي رحمه الله