Merhaba arkadaşlar
veri formunda checkboxların isimlerini değiştirdim. aşağıdaki işlem doğru yapıyor bunu döngü ile abc1 den 20 ye kadar cba 1 den 20ye kadar devam edecek excel sayfasında f10dan başlıyor f29 da bitiyor. aşağıdaki işlemi döngü ile devam ettirmek istiyorum.
If veri.ABC1.Value = True Then
veri.ABC1.Value = True
[F10] = " % 18"
Else
veri.ABC1.Value = False
[F10] = ""
If veri.CBA1.Value = True Then
veri.CBA1.Value = True
[F10] = " % 8"
Else
veri.CBA1.Value = False
[F10] = ""
End If
End If
If veri.ABC2.Value = True Then
veri.ABC2.Value = True
[F11] = " % 18"
Else
veri.ABC2.Value = False
[F11] = ""
If veri.CBA2.Value = True Then
veri.CBA2.Value = True
[F11] = " % 8"
Else
veri.CBA2.Value = False
[F11] = ""
End If
End If
veri formunda checkboxların isimlerini değiştirdim. aşağıdaki işlem doğru yapıyor bunu döngü ile abc1 den 20 ye kadar cba 1 den 20ye kadar devam edecek excel sayfasında f10dan başlıyor f29 da bitiyor. aşağıdaki işlemi döngü ile devam ettirmek istiyorum.
If veri.ABC1.Value = True Then
veri.ABC1.Value = True
[F10] = " % 18"
Else
veri.ABC1.Value = False
[F10] = ""
If veri.CBA1.Value = True Then
veri.CBA1.Value = True
[F10] = " % 8"
Else
veri.CBA1.Value = False
[F10] = ""
End If
End If
If veri.ABC2.Value = True Then
veri.ABC2.Value = True
[F11] = " % 18"
Else
veri.ABC2.Value = False
[F11] = ""
If veri.CBA2.Value = True Then
veri.CBA2.Value = True
[F11] = " % 8"
Else
veri.CBA2.Value = False
[F11] = ""
End If
End If
