For Döngüsünü Workbooks içinde kullanma hk.

[bluesbant]

Merhaba

Makroya yeni yeni başladım sayılır, yalnız şurada takılıp kalıyorum.

Şu şekilde bir kod yazıyorum ve aşağıda gösterdiğim yerde hata alıyorum Yardımcı olur musunuz?

For i = 1 to 10

dosyayolu = Sheets("ayar").Cells(i, 1)
Workbooks.Open Filename:=dosyayolu

    Workbooks("dosya_i.xlsm").Activate [COLOR="Yellow"]hata verilen kısım[/COLOR]
    Sheets("örnek_sayfa").Activate
    cek = Application.WorksheetFunction.SumIfs(Range("h:h"), Range("c:c"), Order)
    Workbooks("dosya_i.xlsm").Close

 

[Orion1]

Bir dosyayı açtığınızda zaten active olur.
Tekrar active etmenize gerek yok.

 

[Muzaffer Ali]

"dosya_i.xlsm" adında açık bir dosya olmadığından hata alıyorsunuz.
Yazdığınız dosya adını kontrol edin.

 

[bluesbant]

Bir dosyayı açtığınızda zaten active olur.
Tekrar active etmenize gerek yok.

hocam teşekkür ederim bunu öğrendigim iyi oldu, sağolun. peki döngü kullanımında sorun yok değil mi?

"dosya_i.xlsm" adında açık bir dosya olmadığından hata alıyorsunuz.
Yazdığınız dosya adını kontrol edin.

dosyayolu = Sheets("ayar").Cells(i, 1)
Workbooks.Open Filename:=dosyayolu

hocam şurada dosyayı açtırıyorum zaten

 

[Muzaffer Ali]

Dosyayı zaten yeni açmışsanız #Orion1'in dediği gibi aktif etmenize gerek yok. Son açılan dosya zaten aktif olur.

Workbooks("dosya_i.xlsm").Activate 'satırını silin.

 

[bluesbant]

Dosyayı zaten yeni açmışsanız #Orion1'in dediği gibi aktif etmenize gerek yok. Son açılan dosya zaten aktif olur.

Workbooks("dosya_i.xlsm").Activate 'satırını silin.

Hocam teşekkür ederim o noktada hemfikiriz. Ama dediğim gibi sorun şu bana bu şekilde döngü kullanmayı göstermeniz lazım. Çünkü açtığım dosyanın bir de kapatması var.

Workbooks("dosya_i.xlsm").close ' aynı mantıkla bu kısımda da hata verecektir.

 

[Muzaffer Ali]

Sanırım "i" harfi For döngüsündeki değişken eğer doğruysa aşağıdaki kodu kullanın.

Workbooks("dosya_" & i & ".xlsm").close