Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Private Sub CommandButton1_Click()
toplam = 0
For i = 1 To 10
If Cells(i, "a") = "x" Then toplam = toplam + 1
If Cells(i, "a") = "y" Then toplam = toplam + 2
Next i
Cells(1, "b") = toplam
End Sub