- Katılım
- 17 Kasım 2009
- Mesajlar
- 295
- Excel Vers. ve Dili
- 2010
- Altın Üyelik Bitiş Tarihi
- 24-12-2023
merhaba arkadaşlar aşağıdaki kodu döngü ile abc1 den başlıyor abc20 ye kadar % 18 olarak cba1 den cba20 ye % 8 kadar devam ediyor bunu döngü ile nasıl yapabilirim
'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.ABC1.Value = True Then
veri.ABC1.Value = True
[F10] = " % 18"
[g10] = WorksheetFunction.Sum([E10] * 18 / 100 + [E10])
Else
veri.ABC1.Value = False
[F10] = ""
'---------------YÜZDE DÖNGÜSÜ -------------------
'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.CBA1.Value = True Then
veri.CBA1.Value = True
[F10] = " % 8"
[g10] = WorksheetFunction.Sum([E10] * 8 / 100 + [E10])
Else
veri.CBA1.Value = False
[F10] = ""
End If
End If
'---------------YÜZDE DÖNGÜSÜ -------------------
'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.ABC1.Value = True Then
veri.ABC1.Value = True
[F10] = " % 18"
[g10] = WorksheetFunction.Sum([E10] * 18 / 100 + [E10])
Else
veri.ABC1.Value = False
[F10] = ""
'---------------YÜZDE DÖNGÜSÜ -------------------
'---------------YÜZDE DÖNGÜSÜ -------------------
If veri.CBA1.Value = True Then
veri.CBA1.Value = True
[F10] = " % 8"
[g10] = WorksheetFunction.Sum([E10] * 8 / 100 + [E10])
Else
veri.CBA1.Value = False
[F10] = ""
End If
End If
'---------------YÜZDE DÖNGÜSÜ -------------------