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

[ابو طيبه]

السلام عليكم محتاج التعديل على الكود للاستاذ احمد اضافه رقم ١ الى قيمة خلايا محدده في العمود لكي لا يتم إضافة اي قيمه في حال كانت الخليه فارغه"" او " " وان لا يتم تنفيذ الكود إلا اذا كانت صفحة data نشطه كما هو موضح بالملف المرفق مع جزيلا الشكر 

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

كود اضافة رقم الي قيمة الخلية من الخلية الى الخلية.xlsm

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

تم إضافة الشرطين

شرط اسم الشيت يكون data

وشرط قيمة الخلية لا تساوي "" أو " "

يفضل فهم الكود أولا قبل تطبيقه في الملف حتى يمكنك تنفيذ هذه الشروط بمفردك بعد هذا

Sub Add()
If ActiveSheet.Name = "data" Then
Dim FR
For FR = 10 To 50
If Cells(FR, 3) <> "" And Cells(FR, 3) <> " " Then
Cells(FR, 3) = Val(Cells(FR, 3)) + 1
End If
Next
MsgBox "plus 1 add to all"
End If
End Sub

بالتوفيق

[ابو طيبه]

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

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

جميعا بإذن الله 👍🌹😍

[ابو طيبه]

طلع عندي هذا الخطآ ممكن اعرف شنو السبب

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

ربما لأنك كتبت الشرط على سطرين 

يجب جعل السطرين باللون الأحمر في سطر واحد