For Next döngüsü

[yavuzoz]

Bu döngü kodu hücredeki değere bakacak 1 se Boş sıfırsa Dolu yazacak, ancak 2.hücreden sonra birer birer atlamayıp 4.7.11.15...hücreler şeklinde gidiyor..
Lütfen bir arkadaş bunu birer birer atlatabilir mi acaba?

For say = 1 To 20
If ActiveCell(say, 1).Value = 1 Then
ActiveCell(say, 1).FormulaR1C1 = "Boş"
Else
ActiveCell(say, 1).FormulaR1C1 = "Dolu"
End If
Next

 

[mancubus]

Cells(say, 1) şeklinde dener misiniz?

 

[mancubus]

şunun gibi:

For say = 1 To 20
    If Cells(say, 1) = 1 Then
        Cells(say, 1) = "Boş"
    Else 
        Cells(say, 1) = "Dolu"
    End If
Next

 

[yavuzoz]

Arkadaşım ilgilendiğin için sağol, satırlar tek tek atlamaya başladı ancak işlem "A" sütununa kaydı,
ben bunu örneğin "H" sütunu içinde yaptırmak istiyorum ve döngüden önce "Range("H3").Select" komutu ile imleçi "H" sütununa getiriyordum...

Sanırım şimdi ufak bir ekleme daha istiyor ama nasıl?

 

[mancubus]

verdiğiniz örnekte hücre referansı (say, 1) şeklinde olunca (1 bir nolu sütun, yani A sütunudur) ona göre düzenlemiştim.

ya ilk yazdığım mesajdaki hücre referanslarının hepsini (say, 8) şekline getirin veya aşağıdaki kodu uygulayın. ikisi de aynı sonucu üretir. H1:H20 aralığındaki 1'leri "Boş", 1 dışındaki değerleri "Dolu" ile değiştirir.

For say = 1 To 20
    If Range("H" & say) = 1 Then
        Range("H" & say) = "Boş"
    Else 
        Range("H" & say) = "Dolu"
    End If
Next

 

[yavuzoz]

Evet, çok teşekkürler işlem sayende tamam.............

 

[mancubus]

rica ederim. kolay gelsin...