ملف للأستاذ / هشام شلبي بالمعادلات ممكن عمله بالكود

[KHMB]

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

خواتم مباركة وعتق رقابنا ورقاب امهاتنا وآبائناء من النار

اخواني الأفاضل

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

hh.rar

تم تعديل أغسطس 25, 2011 بواسطه KHMB

[جمال الفار]

السلام عليكم

كيف حالك اخى كل عام وانت بخير

تفضل المرفق لا تنسانا من دعائك

الكود للفار.rar

[heshamsh]

السلام عليكم

=======

ستضع هذا الكود فى الورقة 2

Option Explicit[/b][/font][/size]

[size=5][font=tahoma,geneva,sans-serif][b]Sub hh()

	Range("F2").FormulaR1C1 = _

	"=IF(RC[-1]="""","""",RC[-1]-NOW())"

	Range("G2").FormulaR1C1 = _

   "=IF(RC[-1]="""","""",IF(RC[-1]<=7,""&#200;&#199;&#222;&#236; &#218;&#225;&#236; &#227;&#230;&#218;&#207; &#199;&#225;&#202;&#211;&#225;&#237;&#227; 7 &#199;&#237;&#199;&#227; &#199;&#230; &#199;&#222;&#225;"",""""))"

	Range("F2").AutoFill Destination:=Range("F2:F1500"), Type:=xlFillDefault

	Range("G2").AutoFill Destination:=Range("G2:G1500"), Type:=xlFillDefault

  Range(Range("F2"), Range("G2").End(xlDown)).Select

	Selection.Value = Selection.Value

End Sub[/b][/font][/size]


[size=5][font=tahoma,geneva,sans-serif][b]

hh.rar

تم تعديل أغسطس 26, 2011 بواسطه heshamsh

[ياسر الحافظ]

الاخوة الاعزاء جمال الفار & heshamsh

كل الشكر للحلول الرائعة والمتنوعة

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

وفقكم الله

ابو الحارث

[KHMB]

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

إخواني في الله

جمال الفار

هشام شلبي

جزاكم الله خير الجزاء وغفر الله لنا ولكم ولسائر المسلمين

وكل عام وانتم بخير

[ياسر الحافظ]

الاخ KHMB

لااعرف ان كان صاحب الرد هو الاستاذ الكبير هشام شلبي ( وبالعموم هذا اسلوبه )

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

نرجو من الاخ HESHAMSH التوضيح

نشكرك

ابو الحارث

[heshamsh]

السلام عليكم

=======

اخى الحبيب ياسر انا هو ذا

ولكن لظروف خاصة سجلت باسم جديد