11 Ayın Sultanı Ramazan Ayı İMSAKİYESİ
İftara Kalan İftar Saati
  • 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ü Dosya 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.

ERDAL

Gold Üye
Katılım
3 Nis 2021
Mesajlar
310
Çözümler
1
Aldığı beğeni
51
Excel V
Office 2013 TR
Gold Bitiş
21 Mart 2026
Konu Sahibi
Merhaba Arkadaşalar,
Yapmak istediğim; Gerçekte 250-500 aralığındaki birleştirilmiş hücre bulunan dosyaları birleştirmek.
Dosyalar birleştirme sonrası 30-40 bin satarı bulmakta ve işlem çok üzun sürmekte. Bu işlemi ADO ile yapmak istedim fakat bazı noktalarda içinden çıkamadım.

Yapılacaklar;
Okul adı ve ilçe adı başlıktan alınacak ve boş olan "E" ve "F" sütunlarına yazdırılacak.
Örnek; "YKS (ÖSYS) YERLEŞTİRME SONUÇLARI DANİŞMENT FEN LİSESİ (TÜRKİYE - DANİŞMENT) 2010 YILI SON SINIF ÖĞRENCİLERİ YERLEŞTİRME LİSTESİ"
Örnek başlıktaki "DANİŞMENT FEN LİSESİ" okul adı, "DANİŞMENT" ise ilçe adı

Yardımlarınız için şimdiden teşekkür ederim.
 
Örnek dosya deneyin
 
Konu Sahibi
Teşekkür ederim. Elinize emeğinize sağlık.
Hocam gerçek tablolarda deneyip dönüş yapacağım
 
Konu Sahibi
Ali Hocam Merhaba,
Gerçek dosyalar üzerinde denedim fakat verileri getiremedim.

Kaynak doya ile hedef dosyalar farklı klasörlerde. Bununla ilgisi olabilir mi
 
Dosyaların bulunduğu klasörün yolunu doğru yazdınız ise veriler gelmesi gerek
 
Konu Sahibi
Hocam maalesef çalışmadı.

Birde bu kod, her dosya başlığı için yazılacak mı

ss = ws.Range("E2")
ss = Replace(Replace(ss, "YKS (ÖSYS) YERLEŞTİRME SONUÇLARI", ""), " 2023 YILI SON SINIF ÖĞRENCİLERİ YERLEŞTİRME LİSTESİ", "")
ws.Range("B10:B" & Son).Value = Replace(Split(Split(ss, "(")(1), " - ")(1), ")", "")

ws.Range("A10:A" & Son).Value = ws.Range("A10:A" & Son).Value
ws.Range("E10:E" & Son).Value = ws.Range("E10:E" & Son).Value
ws.Range("F10:F" & Son).Value = ws.Range("F10:F" & Son).Value
ws.Range("J10:J" & Son).Value = ws.Range("J10:J" & Son).Value
ws.Range("N10:N" & Son).Value = ws.Range("N10:N" & Son).Value
ws.Range("L10:L" & Son).Value = ws.Range("L10:L" & Son).Value

ws.Range("C10:C" & Son).Value = Split(ss, "(")(0)
ws.Range("C10:C" & Son).WrapText = False
ws.Range("T10:T" & Son).Value = File.Name
 
İlçe ve kurum bilgisi dosya başlığında değil mi?
 
Resim1.png
Resimdeki şekilde GERÇEK DOSYA nızın resmini eklermisin
 
Konu Sahibi
Ali Hocam merheba,
Verileri getiriyor fakat okul adı ve ilçe adı gelmiyor. Yyrıca her dosyanın başına başlık geliyor.
 
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Kodlardaki yukarıdaki satırı aşağıdaki satır ile değiştirerek deneyin.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
Hocam okul ve ilçe adlarıda geliyor. Fakat başlıklar her dosya için tekrar ediyor.
 
Fakat başlıklar her dosya için tekrar ediyor.
2021 SONUÇLARI.xlsm de Sonuç sayfasının ilk satırdaki başlıklar ilk yazılanlar mı yoksa diğer dosyalardan gelen başlıklar mı?
 
Konu Sahibi
Diğer dosyaların hepsi başlıklarıyla beraber geliyor.
Okul adı ve ilçe adı başlıklarıda hiç gelmiyor.
 
Deneyin,
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Son düzenleme:
Konu Sahibi
Hocam Teşekkürler. Elinize emeğinize sağlık.
Şu an dışarıdayım. Eve geçince denerim.
 
#16 nolu mesajdaki kodları biraz daha esnek olması için değiştirdim
 
Konu Sahibi
Hocam Teşekkürler. Elinize emeğinize sağlık.
Ara başlıklar dahil tüm tüm başlıklar yok.
Hocam birde kodda yavaşlama oldu.
 
Alternatif olarak deneyiniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst