• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

Çözüldü Klasör Altındaki Dosyaları Birleştirme

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

bulentkars

Yeni Üye
Katılım
30 May 2022
Mesajlar
605
Çözümler
5
Aldığı beğeni
104
Excel V
Office 365 TR
Konu Sahibi
Arkadaşlar Merhaba;

C:\PETROL OFİSİ\ Klasörü içerisinde

Otomobil Yakıt.xlsx
Özmal Yakıt.xlsx
Sözleşmeli Yakıt.xlsx

Tümü Petrol Ofisi Birleştirme.xlsm dosyasında dosyaları birleştir makrosunu çalıştırdığımda sadece sarıya boyadığım başlıkları alt alta almak ve plakları satır sayısına göre çoğaltmasını istiyorum.
Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürker
 
Çözüm
aşağıdaki kodu dener misiniz?
Not: veri alınacak dosyaların içinde birleştirilecek dosya ile aynı klasör içinde olan PETROL OFİSİ klasöründe olması gerekiyor
eğer "C:\PETROL OFİSİ\ " sabitse
xAdres = ThisWorkbook.Path & "\PETROL OFİSİ\"
yukardaki satırı
xAdres ="C:\PETROL OFİSİ\"
olarak değiştirebilirsiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Arkadaşlar Merhaba;

C:\PETROL OFİSİ\ Klasörü içerisinde

Otomobil Yakıt.xlsx
Özmal Yakıt.xlsx
Sözleşmeli Yakıt.xlsx

Tümü Petrol Ofisi Birleştirme.xlsm dosyasında dosyaları birleştir makrosunu çalıştırdığımda sadece sarıya boyadığım başlıkları alt alta almak ve plakları satır sayısına göre çoğaltmasını istiyorum.
Yardımcı olabilirseniz sevinirim. Şimdiden Teşekkürker
Plakaları satır sayısına göre çoğaltmaktan kasıt tam olarak nedir?
 
Her bir satır için ayrı kayıt mı alacağız? Örnek olarak;

01AA01 16/08/2023 5000tl
01AA01 17/08/2023 6000tl
02BB02 16/08/2023 9000tl
02BB02 17/08/2023 7000tl

gibi mi?
 
aşağıdaki kodu dener misiniz?
Not: veri alınacak dosyaların içinde birleştirilecek dosya ile aynı klasör içinde olan PETROL OFİSİ klasöründe olması gerekiyor
eğer "C:\PETROL OFİSİ\ " sabitse
xAdres = ThisWorkbook.Path & "\PETROL OFİSİ\"
yukardaki satırı
xAdres ="C:\PETROL OFİSİ\"
olarak değiştirebilirsiniz
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Çözüm
1 - adresi doğru yazdınız mı?
resimde "C:\PETROL OFİSİ\" adresinde fazladan bir boşluk var gibi
2 - tüm excel dosyalarınız örnek dosyalardakiyle aynı yapıda mı?
3 - tüm dosyalarınızdaki alan adları birebir aynı mı?
not: isterseniz çalışmayan dosyalar ile ekleyin deneyelim.
 
Konu Sahibi
Merhaba;
Doğrudur adreste boşluk vardı, Düzeldi
tam istediğim gibi olmuş elinize emeğinize sağlık.
 
rica ederim))
iyi çalışmalar
Not - 1: bu tür işlemler çok hassastır, herhangi bir excel dosyanızda alan adlarındaki ufacık bir farklılık bile sistemi işlemez hale getirebilir
ayrıca plaka kontrolü sadece yandaki hücrenin boş olup olmamasına göre yapılıyor plaka olmamasına rağmen yandaki hücre boşsa plaka gibi algılanabilir isterseniz verinin plaka şablonuna uyup uymadığı kontrol edilip işlem ona göre de yapılabilir
Not - 2:işlem yapılırken önce sayfa temizlenip veriler boş sayfaya ekleniyor, eğer mevcut veriler silinmeden alt satırdan devam etmesi isteniyorsa yapı değiştirilip önce son satırın bulunması sağlanmalı
 
Konu Sahibi
Sayın halily
Detaylı açıklamadan dolayı çok teşekkür ederim.
Dosya bu şekilde işimi görüyor. Çok teşekkür ederim.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst