istatistik

[hamdi]

Merhaba arkadaşlar..
aşağıdaki gibi kod var.

Private Sub CommandButton1_Click()
Set S2 = Sheets("Sayfa2")
If [BI17] = 1 Then S2.[AJ10] = S2.[AJ10] + 1
If [BI17] = 2 Then S2.[AK10] = S2.[AK10] + 1
If [I66] = 6 Or 7 Or 8 Or 9 Then S2.[Y25] = S2.[Y25] + 1
End Sub

Ancak kodların bu satırı çalışmıyo.
If [I66] = 6 Or 7 Or 8 Or 9 Then S2.[Y25] = S2.[Y25] + 1
Benim yapmak istediğim; butona basınca Sayfa1 I66 hücresine 6,7,8,9 rakamlarından birini girersem Sayfa2 Y25 hücresi 1 artacak

 

[alpi]

Hata veren satırı aşağıodaki ile değiştirin.

If [I66] = 6 Or [I66] =  7 Or [I66] =  8 Or [I66] =  9 Then S2.[Y25] = S2.[Y25] + 1