دالة او كود لنسخ خلية معينة في حالة اذا طابق تاريخ اليوم

[838383mohamed]

السلام عليكم

 

 ارجو المساعدة

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


هل هناك طريقة .. جزاكم الله خيرا وبارك فيك

[838383mohamed]

كيف ارفع الملف

[عبدالله باقشير]

كيف ارفع الملف

 

اضغط الملف باي برنامج ضغط (RAR -ZIP)

ثم قم برفعة

[838383mohamed]

هذا هو الملف ...ارجو المساعدة

تقرير.rar

[838383mohamed]

يا جماعه 51 مشاهدة ولم يرد احد الا الاستاذ عبد الله ... ولم يتم حل المشكلة

 

ارجو المساعده

[عبدالله باقشير]

السلام عليكم

من قواعد المشاركة اذا كنت تريد استعجال الرد يكفيك كتابة كلمة "للرفع"

 

عموما

تم استخدام الكود التالي:

Sub Macro1()
Dim cel As Range

For Each cel In Range("A4:A117,C4:C117").Cells
    If cel.Value = Date Then
        cel.Offset(0, 1).Value = Sheets("تجميعي").Range("F25").Value
        Exit For
    End If
Next
End Sub

شاهد المرفق 2010

تقرير.rar

[838383mohamed]

الاخ والاستاذ الكريم عبد الله ... جزاك الله خيرا وبارك فيك 

وابشرك بحديث النبي صلي الله عليه وسلم 

قال رسول الله صلى الله عليه وسلم: " من أغاث ملهوفاً كتب الله له ثلاثاً وسبعين حسنة: واحدة منها يصلح بها آخرته ودنياه والباقي في الدرجات"

و قال رسول الله صلى الله عليه وسلم: " إن لله خلقاً خلقهم لقضاء حوائج الناس، آلى على نفسه أن لا يعذبهم بالنار، فإذا كان يوم القيامة وضعت لهم منابر من نور يحدثون الله تعالى والناس في الحساب "

قال رسول الله صلى الله عليه وسلم: " من قضى لأخيه المسلم حاجة كنت واقفاً عند ميزانه، فإن رجح وإلا شفعت له " . 

ا فجزاك الله عني خيرا وبارك فيك ...  

واسف ان كنت الحيت واستعجلت فهذا من رجائنا في كرم اخلاقكم

جزاك الله خير

 

 

[عبدالله باقشير]

السلام عليكم

بشرك الله بالخير وجزاك خيرا وبارك فيك

تقبلوا تحياتي وشكري .