محتاج كود اضافة رقم لعمود

[abouelhassan]

الاخوة الافاضل الاساتذة جميعا

ارجوا المساعدة فى المرفق

احتاج كود لاضافة الرقم 0.00 فى الخلايا الفارغة فى العمود G

اخر اسم فى العمود A

هو نهاية العمود G

بمعنى لو اخر اسم فى العمود Aفى الخلية 25 يكون نهاية العمود G هو25

احترامى

New Microsoft Excel Worksheet.rar

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

السلام عليكم

اخي ابو الحسن

جرب هذا

Sub Abu_Ahmed_NO()

Dim Cl As Range

LR = Range("A" & Rows.Count).End(xlUp).Row

For Each Cl In Range("G2:G" & LR)

If Cl.Value = "" Then

Cl.Value = 0

Cl.NumberFormat = "0.00"

End If

Next

End Sub

[abouelhassan]

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

ونعم الرجال استاذنا عبدالله المجرب (ابا احمد)

ونعم ونعم والله.

الله لايحرمنا منك ولا من روائعك التى تملئ المتدى نور

احترام وشديد التقدير وشكر فائق الشكررررررر ولا يكفيك والله

ابوالحسن

[خالد القدس]

السلام عليكم

زادك الله علما وفضلا أستاذ عبدالله المجرب

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

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

اخي ابو الحسن

لا شكر على واجب

======

الاستاذ خالد القدس

شكراً لتشجيعك وهذا بعض ما عندكم