For Each

[mesudiye_052]

Selamlar

for each dongüsü ile aşağıdaki 3 diziyi sırayla Sayfa1,Sayfa2 ve Sayfa 3'e atıyor
benim öğrenmek istediğim acaba Dizideki veriler yine for each döngüsüyle Sayfa2 den itibaren başlatmak
yardımcı okursanız sevinirim

 Option Base 1
Sub Deneme1()
Dim Syf As Byte, i As Byte
Dim Tablo As Worksheet
Dim Rng As Range
Dim Gun(3)
    Gun(1) = Array(1, 2, 3, 4, 5, 6, 7)
    Gun(2) = Array("Pazartesi", "Salı", "Çarşamba", "Perşembe", "Cuma", _
          "Cumartesi", "Pazar")
    Gun(3) = Array("Paz", "Salı", "Çar", "Per", "Cuma", _
          "Cumartesi", "Paz")
    
    Set Tablo = Worksheets(1)
    For Each Tablo In Workbooks("Kitap1.xls").Worksheets
        Syf = Syf + 1
        For Each Rng In Tablo.Range("A1:A7")
            i = i + 1
            Rng.Value = Gun(Syf)(i)
        Next Rng
        i = 0
    Next Tablo
    Set Tablo = Nothing
End Sub

Saygılarla;

 

[Ömer]

Merhaba,

İlave kırmızı ile işaretli.

    For Each Tablo In Workbooks("Kitap1.xls").Worksheets
        [COLOR=red]If Tablo.Index > 1 Then[/COLOR]
            Syf = Syf + 1
            For Each Rng In Tablo.Range("A1:A7")
                i = i + 1
                Rng.Value = Gun(Syf)(i)
            Next Rng
            i = 0
        [COLOR=red]End If[/COLOR]
    Next Tablo

.

 

[mesudiye_052]

Selam
Sn Ömer;

Çok teşekkür ederim


Saygılarla