كود لكتابة نص مثل التنسيق الشريطي

[Anwar]

الاخوة الاعزاء السلام عليكم

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

طلبي هو كود يقوم بكتابة كلمة " هذة نهاية بيان الاسماء لهذا اليوم " وذلك عند اول خلية ينتهي عند بيان الاسماء

ولتوضيح الطلب اكثر

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

ارجو المساعدة وتقبلوا تحياتي وكل الشكر لكم

[محمد طاهر عرفه]

بافتراض أن التطبيق سيتم علي العمود B

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = "2" Then
  Currcell = "B" & Trim(Str(Target.Row))
  nextcell = "B" & Trim(Str(Target.Row + 1))
  If Range(nextcell).Value = "" And Range(Currcell).Value <> "Last cell" Then
   Range(nextcell).Value = "Last cell"
  End If
 End If
End Sub

و الكود معد علي أساس أن الاسماء متصلة فى هذا العمود ، أي لا تترك خلايا خالية

LastCell.rar

[حسام نور]

- أكثر من رائع أستاذنا محمد طاهر ...

[Anwar]

كود مع مثال

الف الف شكر استاذ محمد طاهر كل الكلمات مارايح ترد لكل حق

بصراحة اكثر اكثر من رائع ربنا يخليك للمنتدي ولنا