• 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.

    Giriş yap veya Şimdi kayıt ol

Çö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.
E

ERDAL

Gold Üye
Katılım
3 Nis 2021
Mesajlar
293
Çözümler
1
Aldığı beğeni
51
Excel V
Office 2013 TR
Gold Bitiş
21 Mart 2027
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.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Tarihe göre sırala Oylara göre sırala
Konu Sahibi
Teşekkür ederim. Elinize emeğinize sağlık.
Hocam gerçek tablolarda deneyip dönüş yapacağım
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam okul ve ilçe adlarıda geliyor. Fakat başlıklar her dosya için tekrar ediyor.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Hocam Teşekkürler. Elinize emeğinize sağlık.
Şu an dışarıdayım. Eve geçince denerim.
 
Olumlu oy 0 Negatif oyla
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.
 
Olumlu oy 0 Negatif oyla
Alternatif olarak deneyiniz.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst