تحويل الرقم بالخلية حسب خلية اخرى ( موجب او سالب )

[FoMaNsHeE]

الاخوة الافاضل 

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

الموضوع عبارة عن استلام مبالغ نقدية وعايز اني لما اكتب كود البنك يكتبلي كل الارقام بالسالب 

بمعني انا لما اكتب 50 مثلا لو انا كاتب كود البنك يحولها -50 اما لو كود تاني غير أكواد البنك يكتب الارقام عادي 

الجدول بالمرفقات 

وشكرا

Test.xlsx

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub test()
Dim ro1%, Ro2%, x%, y%, i%
Dim t#
Dim f_rg As Range

Set f_rg = Range("B2:b500"). _
Find("*", LookIn:=xlValues, lookat:=1)

x = 4: y = 12
If Not f_rg Is Nothing Then
     ro1 = f_rg.Row: Ro2 = ro1
      Do
              For i = x To y
               If Ro2 = 2 Then GoTo Again
                 t = Val(Cells(Ro2, i))
                 Cells(Ro2, i) = _
                 IIf(t > 0, -t, Cells(Ro2, i))
              Next i
Again:
        
           Set f_rg = Range("B2:b500").FindNext(f_rg)
           Ro2 = f_rg.Row
           If ro1 = Ro2 Then Exit Do
      Loop
End If

End Sub

الملف مرفق

FoMaNsHeE.xlsm

[FoMaNsHeE]

أستاذي الغالي @سليم حاصبيا

الكود في مشكلة هو اني لما افعل الكود بيعمل على كل الصفوف مو البنك بس بمعنى الصورة المضافة.

دي حاجه ولو في طريقة يبقى بدون ما يتفعل يعني يبقى شغال في حالة وجود رقم البنك يغير الرقم وفي حاله وجود رقم تاني يبقى الرقم زي ما هو 

ده قصدي 

وجزاك الله كل خير