do while- yardım

[tuval]

merhaba, ben bir sayaç tutup kimin ne kadar kitap okuduğunu yazdırmak istiyorum. bunun için şöyle bir kod yazdım :

Do While sno < 675

If Cells(sno, 3) = "name" Then
sayac = sayac + Cells(sno, 9)
sno = sno + 1
End If

If Cells(sno, 3) <> "name" Then
sno = sno + 1
End If

Loop

Ancak program ilk if bloğuna hiç girmiyor. hatası nedir bulamıyorum. yardım ederseniz sevinirim..

 

[Zeki Gürsoy]

Büyük - küçük harf duyarlılığını veya hücre değerinin başında veya sonunda boşluk (space) olup olmadığını kontrol edin.

 

[tuval]

Hepsine baktım olmuyor

Sub denemee()
Dim sayac As Integer
sayac = 0
Dim name As String
name = InputBox("isim giriniz")
Dim sno As Integer
sno = 242
Do While sno < 675
If Cells(sno, 3) = "name" Then
sayac = sayac + Cells(sno, 9)
sno = sno + 1
End If
If Cells(sno, 3) <> "name" Then
sno = sno + 1
End If
Loop
MsgBox sayac
End Sub

Proramın tamamı bu başka ne olabilir?

 

[Zeki Gürsoy]

Dosyanızı eklemeniz mümkün mü?

 

[Necdet]

Merhaba,

name bir değişken fakat siz karşılaştırırken tırnak içine almışsınız. Aşağıdaki gibi kullanınız.

If Cells(sno, 3) = name Then

 

[tuval]

dosyayı yüklerken sürekli hata veriyor :s yükleyemiyorum.
dosyada belirli bir aralığın ilk satırından başlayarak b kolonundaki isimle kullanıcıdan aldığım ismi karşılaştırıyorum.
eşleşen satırların j kolonundaki sayıları topluyorum.
ilgilendiğiniz için teşekkür ederim

 

[tuval]

Teşekkür ederim Necdet Bey bu sefer oldu. Sağolun