Ç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.
Bir puantaj işlemi sanırım. Şu şekilde işinizi görür mü ?
A1:A20 arası puantajınızın olduğunu varsayıyoruz. A21'e toplam aldırıyor.
Kod:
Sub Düğme1_Tıklat()
[A21] = ""
For a = 1 To 20
If Cells(a, 1) = "ht" Or Cells(a, 1) = "üi" Or Cells(a, 1) = "yi" Then b = b + 7.5
If IsNumeric(Cells(a, 1)) Then [A21] = [A21] + Cells(a, 1)
Next a
[A21] = [A21] + b
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.