Döngünün İstediğim Sayfalarda Dönmesi

[Qene]

Elli sayfalık bir çalışma kitabım var diyelim. Bir döngü yapmak istiyorum ve 18. ile 30. sayfalar arasında dönmesini istiyorum. Başvuru yaptığı sayfanın da mesela A2:C18 hücrelerine istediğim bir değeri yazsın. Bunu nasıl yapabilirim?
Teşekkürler..

 

[baranseren]

Elli sayfalık bir çalışma kitabım var diyelim. Bir döngü yapmak istiyorum ve 18. ile 30. sayfalar arasında dönmesini istiyorum. Başvuru yaptığı sayfanın da mesela A2:C18 hücrelerine istediğim bir değeri yazsın. Bunu nasıl yapabilirim?
Teşekkürler..

döngünü modül olarak ayarlaman gerekli öncelikle , şu şekilde dersek

manuel olarak sayfaları seçtirmen lazım ama sheets. metodunda (i) diye bir deişken kullanılıyormu bilmiyorum ama istediğin kod bloğu şu şekilde olacak
_____________________________________
baslangicsayfasi = 18
BitisSayfasi = 30
for i = baslangicsayfasi -1 to BitisSayfasi
Sheets(i).Select
Range("a2")= değer1
Range("a3")= değer2
next
______________________________________

Kodunuz bu şekilde ama Sheets(i) seçimi yapılıyormu emin deilim inceliyecem ve yazacam tekrar. En azından bi başlangıç olsun bu sizin için

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub DÖNGÜ_İLE_DEĞER_YAZDIR()
    For X = 18 To 30
    Sheets(X).Range("A2:C18") = "DENEME"
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[baranseren]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub DÖNGÜ_İLE_DEĞER_YAZDIR()
    For X = 18 To 30
    Sheets(X).Range("A2:C18") = "DENEME"
    Next
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

aynı olmuş be üstadım fakat seninki 1 sayfa eksik yapar :hihoho:

 

[Korhan Ayhan]

Selamlar,

Sn. baranseren,

Neden bir sayfa eksik yapacağını açıklarmısınız.

 

[baranseren]

" For X = 18 To 30 " bu kod toplam 11 kere döner

 

[Zeki Gürsoy]

" For X = 18 To 30 " bu kod toplam 11 kere döner

Emin misiniz?

Sub Test()
For x = 18 To 30
    Cells(x - 17, 1) = x - 17 & " kez"
Next
End Sub

 

[baranseren]

Emin misiniz?

Sub Test()
For x = 18 To 30
    Cells(x - 17, 1) = x - 17 & " kez"
Next
End Sub

Uyyy pardon yaw kafa i=0 index muhabbetine takıldı benim kusura bakmayın gece biraz fazla kaçırdım VBA yı sapıtmışım biraz

 

[Qene]

Eyvallah arkadaşlar..
Gündüz giremedim.. İyi beyin fırtınası olmuş. Korhan hocama ayrıca teşekkürler..