Label1

[ocamsul]

Arkadaşlar merhaba aşağıdaki kodu sayfa belirtmek suretiyle nasıl düzenlerim?

For c = 1 To [b65536].End(1).Row
Label1 = Cells(c, 1)
For t = 1 To 20000: DoEvents: Next t
Next

 

[algil]

For c = 1 To sheets("Sayfa1").[b65536].End(1).Row 
Label1 = Sheets("Sayfa1").Cells(c, 1) 
For t = 1 To 20000: DoEvents: Next t 
Next

 

[ocamsul]

bu kodları b4 hücresinden aşağıya doğru saymak için ne yapmalıyım?

 

[ocamsul]

arkadaşlar teşekkür ederim. kodları düzelttim. c değerini 2 yapmam yeterli oldu.

 

[Ayhan Ercan]

for next döngüsünü 4 den başlatıp hücre adresinide Cells(c,2) yazıp denermisiniz?
yani:

For c = 4 To sheets("Sayfa1").[b65536].End(1).Row 
Label1 = Sheets("Sayfa1").Cells(c, 2) 
For t = 1 To 20000: DoEvents: Next t 
Next