Çalışma Sayfalarını döngüde kullanma

[SerkanF1]

Sayfa1
Sayfa2
....
SayfaN

gibi Ayların bulunduğu çalışma sayfalarım var döngü içerisinde. Seçtiğim aylara göre çalışma sayfalarından veri çektirmem gerekiyor.

Sayfa 1'den N'e kadar çalışma sayfalarını döngü içerisinde nasıl kullanabilirim.

Örnek: Mesela aşağıdaki sayfa3 değilde başka bir sayfadan veri çekmek istiyorum. Sayfa3 yerine sayfa(i) gibi bir değişken kullanabilirmiyim. Formülleri tekrar tekrar yazmaktan beni kurtarabilir misiniz...




For satir = 6 To 36

For sutun = 1 To 2
'satır,sütun
'If Cells(10, 5) = Cells(6, 7) Then
If Cells(10, 5) = Sayfa3.Cells(satir, sutun + 2) Then

Cells(ser + 19, 2) = ser
Cells(ser + 19, 3) = Sayfa3.Cells(satir, 1)
Cells(ser + 19, 4) = Sayfa3.Cells(satir, 2)
Cells(ser + 19, 5) = "Okul Pansiyonu"

Cells(ser + 47, 2) = ser
Cells(ser + 47, 3) = Sayfa3.Cells(satir, 1)
Cells(ser + 47, 4) = Sayfa3.Cells(satir, 2)
Cells(ser + 47, 5) = "Okul Pansiyonu"

If sutun = 1 Then
Cells(ser + 19, 6) = Sayfa3.Cells(satir, sutun + 3)
Cells(ser + 47, 6) = Sayfa3.Cells(satir, sutun + 3)
ElseIf sutun = 2 Then
Cells(ser + 19, 6) = Sayfa3.Cells(satir, sutun + 1)
Cells(ser + 47, 6) = Sayfa3.Cells(satir, sutun + 1)
End If



ser = ser + 1
End If

Next sutun

Next satir

 

[Ömer]

Merhaba,

Kullandığınız döngülerin başına;

For syf = 1 To Worksheets.Count

sonuna da,

Next syf

yazıp sayfaları döngüye sokabilirsiniz.

Kodlarda Sayfa3 yazdığınız bölümlerede,

Sheets(syf)

yazarsanız istediğiniz olacaktır.

.

 

[SerkanF1]

Merhaba,

Kullandığınız döngülerin başına;

For syf = 1 To Worksheets.Count

sonuna da,

Next syf

yazıp sayfaları döngüye sokabilirsiniz.

Kodlarda Sayfa3 yazdığınız bölümlerede,

Sheets(syf)

yazarsanız istediğiniz olacaktır.

.

Teşekkürler hocam çok işime yaradı