set e döngü kurmak

[burhanyildirim11]

mutlu günler dilerim

kendimce kod yazmaya çalışıyorum

bir noktada takıldım.
30 tane set işlemim var bunu for dongusu ıle yapmak ıstıyorum

Set ws1 = Workbooks(i).Worksheets("Sheet1")
i yi başa yazdım sona yazdım olmadı

yukarıdaki set etme işlemine for döngüsü kurulabiliyor mu ?

ip ucu verebilirseniz öğrenmek adına gerisini getirebilirim sanırım

teşekkur ederim

 

[Korhan Ayhan]

Merhaba,

Eğer dosyalarınız açık durumda ise kurmak istediğiniz döngüyü kullanabilirsiniz.

 

[burhanyildirim11]

Merhaba,

Eğer dosyalarınız açık durumda ise kurmak istediğiniz döngüyü kullanabilirsiniz.

for i=1 to 30

Set ws1 = Workbooks(i).Worksheets("Sheet1")

next i


diyorum burda hata veriyor , Set ws(i) filan yaptım olmadı

musaıtsenız bu kod blokunu yazarmısınız tşkler

 

[Korhan Ayhan]

Merhaba,

10 adet boş excel kitabı açtım ve aşağıdaki kodu denedim.

Option Explicit

Sub Test()
    Dim WB As Workbook, Sh As Worksheet, X As Byte

    For X = 1 To Workbooks.Count
        Set WB = Workbooks(X)
        Set Sh = WB.Worksheets("Sayfa1")
        MsgBox WB.Name & vbTab & Sh.Name
    Next
End Sub

 

[burhanyildirim11]

Merhaba,

10 adet boş excel kitabı açtım ve aşağıdaki kodu denedim.

Option Explicit

Sub Test()
    Dim WB As Workbook, Sh As Worksheet, X As Byte

    For X = 1 To Workbooks.Count
        Set WB = Workbooks(X)
        Set Sh = WB.Worksheets("Sayfa1")
        MsgBox WB.Name & vbTab & Sh.Name
    Next
End Sub

Korhan bey teşekkür ederim elinize sağlık ,

işlem tamam

 

[Korhan Ayhan]

Bu da alternatif olarak elinizin altında bulunsun..

Option Explicit

Sub Test()
    Dim WB As Workbook, Sh As Worksheet

    For Each WB In Application.Workbooks
        Set Sh = WB.Worksheets("Sayfa1")
        MsgBox WB.Name & vbTab & Sh.Name
    Next
End Sub

 

[burhanyildirim11]

Bu da alternatif olarak elinizin altında bulunsun..

Option Explicit

Sub Test()
    Dim WB As Workbook, Sh As Worksheet

    For Each WB In Application.Workbooks
        Set Sh = WB.Worksheets("Sayfa1")
        MsgBox WB.Name & vbTab & Sh.Name
    Next
End Sub

üstad teşekkür ederim , elinize sağlık sağlıcakla kalın