Collection ifadesine sayfaları nesne olarak atama hk.

[tamer42]

Merhaba,
Excel dosyasında Sayfaları nesne olarak Collection' a ekledikten sonra; sayfa isimleri çok
Sayfa isimlerini değiştiriyorum ve yeni sayfa isimlerini isimlerini bir dizi (arr) içinde aldıktan sonra bu sayfalarda bazı işlemleri yaptırıyorum
2. aşamadaki;

sayfa = arr(k)
Set SH = Sheets(sayfa)
atamasını, sayfa adlarını bir diziye almadan doğrudan Collection içinden nasıl yaptırabiliriz?

desteğiniz için şimdiden teşekkürler,
iyi çalışmalar.

Dim SH As Worksheet
Dim arr() As Variant
Dim MyColl As New Collection

MyColl.Add Sayfa4
MyColl.Add Sayfa5
MyColl.Add Sayfa6
MyColl.Add Sayfa7
MyColl.Add Sayfa8
MyColl.Add Sayfa9
MyColl.Add Sayfa10
MyColl.Add Sayfa11
MyColl.Add Sayfa12
MyColl.Add Sayfa13
MyColl.Add Sayfa14
MyColl.Add Sayfa15

ReDim arr(1 To 12)

x = 1
For Each Item In MyColl
    Item.Name = "Rapor(" & x & ")"
    syf = MyColl.Item(x).Name
    
    arr(x) = syf
 x = x + 1
Next

' ' 2

For k = 1 To 12
   
    sayfa = arr(k)
   Set SH = Sheets(sayfa)
   SH.Range("A4:M1000").ClearContents
.......
.......
next k

 

[Korhan Ayhan]

Aradığınız böyle birşey mi?

Option Explicit

Sub Test()
    Dim My_Coll As New Collection, Sh As Worksheet
    
    My_Coll.Add Sheet1
    My_Coll.Add Sheet2
    My_Coll.Add Sheet3
    
    For Each Sh In My_Coll
        Sh.Range("A1:A10").ClearContents
    Next
End Sub

 

[tamer42]

Aradığınız böyle birşey mi?

Option Explicit

Sub Test()
    Dim My_Coll As New Collection, Sh As Worksheet
   
    My_Coll.Add Sheet1
    My_Coll.Add Sheet2
    My_Coll.Add Sheet3
   
    For Each Sh In My_Coll
        Sh.Range("A1:A10").ClearContents
    Next
End Sub

Korhan Hocam teşekkürler,
Sayfa adını indeks numarasına göre nasıl alabiliriz?

myColl(2) gibi....