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

[alihgrvdad123]

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

أو ابدال تاريخ الصرف في شيت التحميل الى كلمة احرى ولتكون (صرف المبلغ) ..جزيتم خيرا .. تـــم التعديل على الملف 

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

[محمد يوسف ابو يوسف]

السلام عليكم

ما هو الشرط اذا تحقق يتم كتابة تم الصرف...واين يوجد

[alihgrvdad123]

السلام عليكم...ممكن كود يحذف تاريخ الصرف من شيت التحميل وابداله بكلمة تم الصرف عند القيام بالضغط على زر طبع الوصل على أساس رقم المستند

حتى لا اطبع الوصل مرتين وادفع المبلغ مرتين

عدم طبع الوصل مرتين.xlsm

[أ / محمد صالح]

حسب فهمي للمطلوب يمكنك إضافة هذا الكود في نهاية إجراء الطباعة Sub PRINT_OUT

lr = Cells(Rows.Count, 1).End(xlUp).Row
For r = 8 To lr
rw = Application.WorksheetFunction.Match(Range("A" & r).Value, Sheets("التحميل").Range("A:A"), 0)
Sheets("التحميل").Range("Q" & rw).Value = "تم الصرف"
Next r

وهو للحصول على رقم الصف الذي يحتوي على رقم المستند الموجود في الخلية A8 وما بعدها عند البحث عنه في العمود A في شيت التحميل

ثم تغيير قيمة الخلية Q في نفس الصف إلى تم الصرف

بالتوفيق

[alihgrvdad123]

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

 

[أ / محمد صالح]

جميعا بإذن الله