Çalışma sayfasına gitme problemi?

[feryat]

Bir for next döngüsünde i değeri ile adlandırılmış çalışma sayfasına gitmem için ne yazmam gerekiyor?

For i = 1 To 40
ActiveCell.Offset(i, 0).Activate
If ActiveCell.Value = "x" Then
Sheets("i").Select

diyorum kabul etmiyor çünkü i isimli sayfa yok

Sheets(i).Select

bunu denedim bu da olmadı

sayfa adlarını bir sütuna yazıp hücre değerine göre de ulaşşam olur ama bunu nasıl yaparım bilemiyorum.

 

[Mahmut Kök]

Bir for next döngüsünde i değeri ile adlandırılmış çalışma sayfasına gitmem için ne yazmam gerekiyor?

For i = 1 To 40
ActiveCell.Offset(i, 0).Activate
If ActiveCell.Value = "x" Then
Sheets("i").Select

diyorum kabul etmiyor çünkü i isimli sayfa yok

Sheets(i).Select

bunu denedim bu da olmadı

sayfa adlarını bir sütuna yazıp hücre değerine göre de ulaşşam olur ama bunu nasıl yaparım bilemiyorum.

Yukarıdaki döngü ' offset ' komutuyla istediğinizi yapıyor mu bilmiyorum; çünkü döngüdeki i değeri 5 olduğunda, 5 satır birden aşağı inecektir, yani satır satır aşağı inmeyecektir.

sheets (i).select komutunda i sayısal değer olduğundan sayfa sırası i olan sayfayı seçer; mesela varsayılan değerlerde Sayfa1 ilk sırada olduğundan değeri 1'dir, Sayfa2'nin sıra değeri 2'dir. Kaç sayfa eklerseniz o şekilde soldan sağa doğru sırasına bakabilir ve i değerine göre seçtirebilirsiniz; ama dediğim gibi offsetten dolayı 40 satırı teker teker değil, her seferinde bir öncekinin iki katı atlayarak tarayacaktır.

Kolay gelsin.

 

[feryat]

Teşekkür

Yardımınız için teşekkür ederim.
ofset konusunda da haklısınız. Problem çıkarmıştı ama sebebini anlayamamıştım.
TEKRAR TEŞEKKÜRLER.

 

[feryat]

Satır satır inmesi için offset yerine ne kullanmalıyın?

 

[feryat]

offset yerine

Satır satır inmesi için offset yerine ne kullanmalıyın?

 

[feryat]

offset yerine

satır satır inmesi için offset yerine ne kullnamalıyım?

 

[Mahmut Kök]

for i=1 to 10

cells(i,1).select

next



döngüsünde A sütununda (1=A sütunu) satır satır aşağı iner. (toplam satırı 10 yazan yere yazarsınız)