vba yüzde hesaplama kodu hk.

merhaba arkadaşlar aşağıdaki döngü içine % 1 döngüsü ekleyemedim .% 8 ve % 18 de sorun yok
' ABC = % 18 döngüsü
'CBA = % 8 Döngüsü
'BAC % 1 Döngüsü


For Each Cbx In veri.Controls
If TypeName(Cbx) Like "CheckBox" Then
If Cbx Then
If Cbx.Name Like "ABC*" Then
KDV = 18: KDVm = "% 18"
Rw = Val(Replace(Cbx.Name, "ABC", Empty)) + 9
ElseIf Cbx.Name Like "CBA*" Then
KDV = 8: KDVm = "% 8"
Rw = Val(Replace(Cbx.Name, "CBA", Empty)) + 9
Else
GoTo Stepp
End If
If IsEmpty(Cells(Rw, "E")) Or Cells(Rw, "E") = "" Then
Cells(Rw, "G") = Empty
Cells(Rw, "F") = Empty
ElseIf Not IsNumeric(Cells(Rw, "E")) Then
Cells(Rw, "G") = "#Hata!"
Cells(Rw, "F") = "#Hata!"
Else
Cells(Rw, "G") = Cells(Rw, "E") + (Cells(Rw, "E") * KDV / 100)
Cells(Rw, "F") = KDVm
End If
Cbx = False
End If
End If
Stepp:
Next Cbx

sorunu çözdüm