كود اضافة رقم ١ الي قيمة خلايا محدده في العمود C

[ابو مارفن]

السلام عليكم 

كود اضافة رقم ١ الي قيمة خلايا محدده من العمود C كما موضح بالمرفق. مع جزيل الشكر 

كود لاضافة رقم.xlsm

[احمدزمان]

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

 

Sub Add_One()
Dim FR
For FR = 10 To 50
Cells(FR, 3) = Val(Cells(FR, 3)) + 1
Next
MsgBox "plus 1 add to all"

End Sub

 

زائد1.xlsm

[ابو مارفن]

شكرا جزيلا استاذ احمد الله يجعلها في ميزان حسناتك تحياتي لحظرتك 

[0d59eacf59]

بارك الله فيكم

 

 

 

 

 

 

192.168.100.1 192.168.1.1