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

    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

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
3 Nis 2021
Mesajlar
262
Çözümler
1
Aldığı beğeni
44
Excel V
Office 2013 TR
Konuyu Başlatan
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

  • DANİŞMENT FEN LİS..xlsx
    10.9 KB · Gösterim: 9
  • FATİH AND. LİS..xlsx
    10.9 KB · Gösterim: 4
  • MES. VE TEK. AND. LİS..xlsx
    10.7 KB · Gösterim: 4
  • YAVUZ SULTAN SELİM ANADOLU LİS..xlsx
    10.7 KB · Gösterim: 3
  • 2021 SONUÇLARI.xlsm
    71.7 KB · Gösterim: 7
Tarihe göre sırala Oylara göre sırala
Teşekkür ederim. Elinize emeğinize sağlık.
Hocam gerçek tablolarda deneyip dönüş yapacağım
 
Olumlu oy 0 Negatif oyla
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
Dosyaların bulunduğu klasörün yolunu doğru yazdınız ise veriler gelmesi gerek
 
Olumlu oy 0 Negatif oyla
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
İlçe ve kurum bilgisi dosya başlığında değil mi?
 
Olumlu oy 0 Negatif oyla
Resim1.png
Resimdeki şekilde GERÇEK DOSYA nızın resmini eklermisin
 
Olumlu oy 0 Negatif oyla
Ali Hocam merheba,
Verileri getiriyor fakat okul adı ve ilçe adı gelmiyor. Yyrıca her dosyanın başına başlık geliyor.
 

Ekli dosyalar

  • DOSYA_BAŞLIĞI.PNG
    DOSYA_BAŞLIĞI.PNG
    17.4 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Kodlardaki yukarıdaki satırı aşağıdaki satır ile değiştirerek deneyin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Hocam okul ve ilçe adlarıda geliyor. Fakat başlıklar her dosya için tekrar ediyor.
 
Olumlu oy 0 Negatif oyla
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
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
#16 nolu mesajdaki kodları biraz daha esnek olması için değiştirdim
 
Olumlu oy 0 Negatif oyla
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.

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • DÜZENLENDİ-2021 SONUÇLARI.xlsm
    375.1 KB · Gösterim: 5
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst