VBA da İsimle Tanımlı Sayfalar Üzerinde İşlem Yapma

[selimsayar]

Merhaba Arkadaşlar,

Makro içinde aşağıdaki şekilde tanımlı sayfaları; daha fazla sayfa eklemek veya değiştirmek için bir isim altında tanımlamak istiyorum. Bu durumda aşağıdaki komut satırı nasıl yazılır?

syf = Array("Data1", "Data2", "Data3")


Teşekkürler,

 

[Korhan Ayhan]

Deneyiniz.

Array dizisi içine dilediğiniz kadar sayfa ekleyebilirsiniz.

Sub TEST()
    Dim Sayfa As Variant, X As Byte
    
    Sayfa = Array("Data1", "Data2", "Data3")

    For X = 0 To UBound(Sayfa)
        MsgBox Sayfa(X)
    Next
End Sub

 

[selimsayar]

Teşekkürler.

 

[mancubus]

diziler hakkında bir fikir vermesi için:

Sub test1()

    Dim syf
    
    ReDim syf(2)
    syf = Array("Data1", "Data2", "Data3")
    MsgBox Join(syf, vbLf)
    
    ReDim syf(5)
    syf = Array("Data1", "Data2", "Data3", "Data4", "Data5", "Data6")
    MsgBox Join(syf, vbLf)

End Sub

veya

Sub test2()

    Dim syf
    
    ReDim syf(2)
    syf(0) = "Data1"
    syf(1) = "Data2"
    syf(2) = "Data3"
    MsgBox Join(syf, vbLf)
    
    ReDim Preserve syf(5)
    syf(3) = "Data4"
    syf(4) = "Data5"
    syf(5) = "Data6"
    MsgBox Join(syf, vbLf)

End Sub