استخراج قيم معينة من داخل نطاقات تجميعية معينة ووضعها داخل موقف تفصيلى

[mka1761975]

الملف دا عبارة عن طريق طوله 35 كم يتم انشاءه

والمحطات دى معناها رقم المتر على الطريق

وارد ان كل يوم بالتاريخ نسلم من رقم متر معين الى رقم متر معين بطبقة تم الوصول اليها المطلوب فى الموقف التفصيلى (اللى هو كل 5 متر) ينزل موقفه طبقا لاحدث تاريخ مسلم به الطبقة لان كل يوم الموقف بيتغير تبعا للانتاج ووارد ان يحصل تداخل فى المحطات بس مش فى نفس الطبفة

http://www.4shared.com/rar/Ymu27VRTce/__online.html

تم تعديل مارس 9, 2015 بواسطه mka1761975

[طارق محمود]

السلام عليكم

تفضل المرفق 

إن شاء الله يكون هو ماتريد وقد أضفت لك أيضا عمود باللون الأحمر في ورقة "موقف تفصيلي" لاظهار آخر تاريخ تم ذكره للمحطة

 

ارشيف الاستلام.rar

[mka1761975]

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

[mka1761975]

فى الشيت السابق ارجو ان يتم عمل خانات احصائية يكتبها للتقارير الشيت على سبيل المثال كالتالى من الى طبقة 260 375 0.25 600 3695 فيرمة وهكذا.............................

[mka1761975]

الملف المراد تعديله

لعمل تقارير مجمعة من الموقف التفصيلى

http://www.4shared.com/rar/jV-XV-PAce/555_.html

لمشكلة فى الرفع للملف

تم تعديل مارس 9, 2015 بواسطه mka1761975

[طارق محمود]

لرفع الملفات ، الموقع لايقبل صيغة الاكسل
فقط اضغطها باستخدام winrar أو winzip

ثم إرفع الملف المضغوط

[mka1761975]

 

لرفع الملفات ، الموقع لايقبل صيغة الاكسل

فقط اضغطها باستخدام winrar أو winzip

ثم إرفع الملف المضغوط

 

حاولت مرة اخري

فعذرا هذا رابط الملف المراد نعديله

http://www.4shared.com/rar/jV-XV-PAce/555_.html

تم تعديل مارس 10, 2015 بواسطه mka1761975

[طارق محمود]

السلام عليكم

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

 

 

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

 

بالمرفق إن شاء الله يكون كل ماتريد

=============

بالمناسبة

يتم الرفع علي الموقع عن طريق 3 خطوات

اضغط الملف باستخدام winrar أو winzip

ثم إختر الملف المضغوط زرChoose File

ثم إرفع الملف المضغوط زر رفع الملف

 

 

ارشيف الاستلام2.rar

[mka1761975]

جزاكم الله خيراااااااااااااااا بارك الله فيك ارجو شرح هذا الكود Sub nn() LR = [A99999].End(xlUp).Row Sheet1.[b2:C7002].ClearContents For r = 2 To LR rw1 = Cells(r, 7) / 5 + 2 rw2 = Cells(r, 8) / 5 + 1 Sheet1.Range("B" & rw1 & ":B" & rw2) = Cells(r, 6) Sheet1.Range("C" & rw1 & ":C" & rw2) = Cells(r, 2) Next

[mka1761975]

هى المشكلة ان ايقونة ارفاق الملفات اللى تحت browse مش شغالة

[طارق محمود]

السلام عليكم

أخي الكريم مرفق شرح وافي مدعم بالصور للكود الذي طلبته
أرجو أن يكون واضح

تفضل

شرح الكود_mka1761975.rar

[mka1761975]

 

السلام عليكم

أخي الكريم مرفق شرح وافي مدعم بالصور للكود الذي طلبته

أرجو أن يكون واضح

تفضل

 

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