ارجو المساعدة فى طرح قيمتين من شيتين مختلفين

[ايمن جباره]

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

اليوم وقف معايا شئ وهوه انى اريد اخذ قيمه (رقم) من شيت 1 واطرحها من قيمه اخره من شيت 2

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

للتوضيح
انا عملت كود ومتأكد انو غلط بس يمكن يفهمكو انا محتاج ايه

Dim a As Integer
Dim b As Integer
Remin_33
Macro1255
Macro1266

Sheets("Sheet1").Activate
a = Cells(6505, 8)
Macrosum
Sheets("Sheet2").Activate
b = [b20004]
TextBox1.Value = (a - b)

 

الماكروز اللى فوق دوول عمليات بتتم على كل شيت قبل اظهار الرقم اللى انا محتاجه وعاوز اخده فى متغير اسمه a

وهكذا فى الشيت الاخر

[ايمن جباره]

up plz

[سليم حاصبيا]

صديقي ايمن 

لا حاجة الى الكود في مثل هذه الحالة

الحل مرفق

عددين من صفحتين.rar

[ايمن جباره]

شكراااااااااااااا جزيلا اخى

سليم حاصبيا


يجعله الله فى ميزان حسناتك

تم حل المشكله بفضل الله ثم مساعدتك


 

[احمد ابوزيزو]

شكرا للاستاذ سليم

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

جزاك الله خيرا

دائما سباق للخير

[سليم حاصبيا]

استاذ احمد/ صباح الخير

انت تُعتبر من المتقدمين في هذا المجال / و ما أجمل التواضع

ربما كان صاحب العلاقة بحاجة ماسة الى المساعدة و لا وقت لديه للانتظار

لذلك ارجو المعذرة 

[احمد ابوزيزو]

الاستاذ / سليم

السلام عليكم

فقط كانت مداعبة

ولا داعي ابدا للاعتذار

بارك الله فيك واكثر من امثالك