Çözüldü Kapalı dosyalardan ilgili hücrelere aktarma

[xmenx]

Merhaba üstadlar ekte anapuantaj dosyasındaki tclere bakarak ve gazipaşa,sefakoy dosyalarındaki tc leri kontrol ederek ilgili günlerdeki hücrelere yazması . Yardımlarınızı rica ediyorum .Dosya ismindeki gazipaşa şubat puantaj ismindeki şubat ismini kontrol ederek anapuantaj dosyasındaki ay eşitse aktarım yaparsa çok iyi olur teşekkür ederim

 

[xmenx]

yardımcı olan olursa cok sevinirim

 

[Caylak]

Merhaba
Ekli dosyayı inceleyin
Yol = Thisworkbook.path olarak ayarlandı, siz olması gereken yolu yazarsınız.

 

[xmenx]

deniyorum hemen hocam

 

[xmenx]

Caylak denedim şimdi tam istediğim çalışıyor fakat aktarırken alttaki gibi diğer hücreleride aktarıyor. AL sütununa bakarsanız

 

[Caylak]

Caylak denedim şimdi tam istediğim çalışıyor fakat aktarırken alttaki gibi diğer hücreleride aktarıyor. AL sütununa bakarsanız

Merhaba, aceleden fazla saydım sanırım,
Döngülerin içerisindeki 38'i 35 yaparsanız sorun çözülecektir sanırım.
For x = 6 To 38 yerine For x = 6 To 35
iki adet döngü var ikisini de bu şekilde değiştirip dener misiniz?

 

[xmenx]

Birde hocam ben örnek olarak 2 dosya olarak ekledim fakat 6 adet daha dosya var kodu onlara göre alt alta eklemem gerekiyor sanırım

 

[xmenx]

O şekilde yapınca düzeldi hocam süpersiniz ya gerçekten

 

[Caylak]

Birde hocam ben örnek olarak 2 dosya olarak ekledim fakat 6 adet daha dosya var kodu onlara göre alt alta eklemem gerekiyor sanırım

Hayır onu da döngü ile halledebiliriz.
Dosya adlarınızı ya da klasör içeriklerinizi bilmediğim için ben bu şekilde yaptım.
Dosya = Dosyaadı
İf Dosya = Buysa then
Sayfa = Budur
deyip tek bir bağlantıya yönlendirilebilir.

 

[xmenx]

makroyu çalıştırdıktan sonra işlem bitince hocam dosyaları açmaya çalışınca alttaki gibi uyarı veriyor

 

[xmenx]

Yani hocam anadosyanın bulundugu dizindeki xlsx dosyalarındaki ana dosyadaki ay hangisi ise diyelim şubat Gazipasa Şubat Puantaj sadece şubat içerenleri aktarsın çünkü yanlışlıkla mart dosyasınıda oraya atılabilir oyuzden böyle olması daha iyi olur

 

[Caylak]

Sanırım bağlantıyı kapatmadığımız için oluşuyor bu hata, bende görünmüyor ama siz PtjAktar sub'ının en altına;
Rss.Close
Cnn.Close
Set Rss = Nothing
Set Cnn = Nothing
End Sub
şeklinde yazar mısınız?

 

[Caylak]

Yani hocam anadosyanın bulundugu dizindeki xlsx dosyalarındaki ana dosyadaki ay hangisi ise diyelim şubat Gazipasa Şubat Puantaj sadece şubat içerenleri aktarsın çünkü yanlışlıkla mart dosyasınıda oraya atılabilir oyuzden böyle olması daha iyi olur

Mart dosyası orada olsa bile aktarım gerçekleşmez, çünkü kodlarda AnaPuantaj dosyasındaki Ay ve Yıl, puantaj dosyasındaki ay ve yıl ile karşılaştırılıyor.

 

[xmenx]

Rss.Close
Cnn.Close
Set Rss = Nothing
Set Cnn = Nothing
End Sub bunu ekleyince düzeldi oda

• #13 ozaman çok iyi sadece şunuda yaparsak hocam sorun kalmıcak sanırım . diğer dosyalar için nasıl ekleme yapmam gerekiyor . eğer uğraştırırsa sizi ben uzun yoldan kodları alt alta eklicem

 

[Caylak]

Dosyanızı güncelledim, inceleyin

 

[xmenx]

çok teşekkür ederim şimdi olmuştur çok sağolun