Soru For döngüsü sayacı 3 satırdan ve 0 değerinden başlatmak

[k0081]

satirsayisi = Worksheets(ActiveSheet.Name).Range("B65536").End(xlUp).Row

For sayac = 1 To satirsayisi
 Cells(sayac, 6) = "If CmbOzgul.ListIndex =  " & sayac & " Then  " & vbCrLf _
& Chr(39) & Range("B" & sayac) & vbCrLf _
& "Araclar.Lblozgul.Caption = " & Chr(34) & Range("C" & sayac) & Chr(34) & vbCrLf _
& "End if"
Next

Bu kodu şu şekilde nasıl düzenleyebilirim ;

F3 hücresinden itibaren ve de sayac 0 değerinden başlamalı... = " & sayac & bu kısım 0 dan başlamalı..

Yardımcı arkadaşa şimdiden Teşekkürler.

 

[Muzaffer Ali]

Merhaba.
For için aşağıdaki gibi yapın.

For sayac = 3 To satirsayisi

sayac = 0 yapmak için
sayac -3 yazın

Örneğin

& Chr(39) & Range("B" & sayac-3) & vbCrLf _

 

[k0081]

Runtime error 1004 hatasını veriyor.

 

[ÖmerFaruk]

Range("B" & sayac-3)= Range("B0")

Sadece tahmin ederek yazıyorum. Burası sayac-3 yerine sayac olarak kalacak.
& Chr(39) & Range("B" & sayac) & vbCrLf _

 

[k0081]

Muzaffer Ali

= " & sayac - 3 &

yazdığımda sorun çözüldü.

Çok Teşekkür ederim . Tamamdır...

 

[k0081]

Range("B" & sayac-3)= Range("B0")

Sadece tahmin ederek yazıyorum. Burası sayac-3 yerine sayac olarak kalacak.
& Chr(39) & Range("B" & sayac) & vbCrLf _

peki neresi değişecek..?

 

[ÖmerFaruk]

Range("B" & sayac-3)= Range("B0")

Sadece tahmin ederek yazıyorum. Burası sayac-3 yerine sayac olarak kalacak.
& Chr(39) & Range("B" & sayac) & vbCrLf _

Eğer sonuç şu anda doğruysa ki #5 nolu mesajda çözüdü demişsiniz bişey yapmanıza gerek yok.

 

[k0081]

Eğer sonuç şu anda doğruysa ki #5 nolu mesajda çözüdü demişsiniz bişey yapmanıza gerek yok.

Evet sonuç doğru.., sadece -3 değerindeki verileri de yazıyor.. F3 üzerine F2 F1 yani..

Fakat benim istediğim F3 ün sıfırdan başlamasıydı... bu da #5 nolu mesajımda belirttiğim gibi...

Çok Teşekkürler.