• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

bulentkars

Bronz Üye
Kullanıcı Bilgileri
Katılım
30 May 2022
Mesajlar
406
Çözümler
3
Aldığı beğeni
66
Excel Versiyonu
Office 365 TR
Konuyu Başlatan
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
 

Ekli dosyalar

  • Otomobil Yakıt.xlsx
    50.8 KB · Gösterim: 2
  • Özmal Yakıt.xlsx
    59.8 KB · Gösterim: 2
  • Sözleşmeli Yakıt.xlsx
    50.5 KB · Gösterim: 3
  • Tümü Petrol Ofisi Birleştirme.xlsm
    15.2 KB · Gösterim: 4
Çö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
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
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
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
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.
 
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ı
 
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.

Konuyu okuyanlar

Geri
Üst