طلب فى الترحيل

[Abo Sufiyan]

اصدقائى واخوتى ارجو منكم المساعدة فى هذا الملف فانا احتاجة جدا فى مصاريف التغذية فى عملى وكل ما اطلبة طلبان فقط وارجو ان تساعدونى كما تعودت منكم فى هذا المنتدى الرائع

 

1- انة عند الضغط على زرار الترحيل يتم ترحيل فى الصفحة الثانية فى التاريخ المختار فى الشهر

 

2- اذا كان اليوم تم ترحيلة من قبل لا يرحل ويعطى رسالة انة تم الترحيل من قبل

 

وكل ما استطيع قوالة هو الشكر لكم و لكل من يساهم فى هذا المنتدى الرائع

اجمالي شهري تغذية.rar

[ابو سما]

ارجو من الاخوة حل  هذا الملف فانا احتاج لنفس الفكرة

[Abo Sufiyan]

للرفع

[طارق محمود]

السلام عليكم

أخي الكريم

تفضل ماطلبت بالمرفق

اجمالي شهري تغذية.rar

[عبدالله المجرب]

بارك الله فيك استاذ طارق

[احمدزمان]

2- اذا كان اليوم تم ترحيلة من قبل لا يرحل ويعطى رسالة انة تم الترحيل من قبل

 

 

 

 

ماهو الشرط لمعرفة اليوم الذي تم ترحيلة

[احمدزمان]

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

 

الأستاذ طارق محمود

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

لم اشاهد الا بعد اضافة سؤالي السابق

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

 

يابابا

او خليها يابتاه علشان ماتنفهم غلط

واحشنى

واعذرني على التقصير

 

تحياتي وتقديري لكم جميعا

[Abo Sufiyan]

باركك الله واعزك

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

تم تعديل أبريل 11, 2013 بواسطه ابو سارة

[طارق محمود]

استبدل الكود بالتالي

Sub mm()
c = [B1] * 5 - 3
Sheet1.Activate
    x = WorksheetFunction.CountA(Range(Cells(5, c + 1), Cells(200, c + 3)))
    If x > 0 Then MsgBox "يوجد بيانات في هذا اليوم من قبل" & Chr(10) & "لن يتم الترحيل": Exit Sub
    Sheet2.[B4:F200].Copy Cells(4, c)
End Sub 

 

 

[Abo Sufiyan]

الله يبارك لك  ويجعلة لك فى ميزان حسناتك

تم تعديل أبريل 11, 2013 بواسطه ابو سارة

[طارق محمود]

السلام عليكم

 

أخي العزيز عبد الله المجرب (أبا أحمد)

مشكور ياحبيبي علي المرور الطيب

 

 

أخي العزيز  أحمد يعقوب زمان

ماأنا إلا تلميذكم

مشكور ياغالي علي المرور الطيب

 

أخي العزيز أبوسارة

الحمد له أن وفقنا لقضاء حاجة أخ غالي علينا

 

 

ولكم جميعا مثل الدعاء وأكثر

[عبدالله المجرب]

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

 

 

يابابا

او خليها يابتاه علشان ماتنفهم غلط

واحشنى

واعذرني على التقصير

 

تحياتي وتقديري لكم جميعا

 

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

 

بارك الله فيك استاذي ومعلمي أحمد زمان 

ولا اقول الا اعاننا الله وإياك على مشاغل الحياة