• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

excel ile veri ambarı oluşturulması.

M

mybluecat

Katılım
19 Mayıs 2015
Mesajlar
239
Excel Vers. ve Dili
2010 türkçe
Merhaba,

Öncelikle istediğim şeyin Excel ile yapılıp yapılamadığını bilmiyorum.Birden fazla sayfadaki veriyi sıralı biçimde tek bir sayfada toplamak istiyorum.Ek te 3 adet dosya var.Dosya 1 de 'Numune kayıt no' sütunundaki verilerin altına dosya 2 de 'Numune kayıt no' sütunundaki verileri sıralı biçimde Dosya 3 deki aynı sütunda toplamak istiyorum.Dosya 1 ve dosya 2 deki veri sayısı sabit olmayacağı için dosya 1 deki veriler atıldıktan sonra ilk boş satırdan başlayarak dosya 2 deki verilerin atılmasını istiyorum.Bu şekilde 25,30 sayfa veriyi bir sayfada toplamak istiyorum.
Mümkün mü? Eğer mümkün ise nasıl?

Teşekkürler.
 

Ekli dosyalar

Merhaba
Bunu makro ile yapabiliriz. Yalnız bir kaç tane sorum olacak.
1 - Bir araya getireceğiniz dosya ile diğer dosyalarınız aynı yer de mi ?
Değil ise lütfen pc'ye göre yol bilgisi veriniz ? Ör : D:\mybluecat
2 - Orjinal dosya adlarınız bu şekilde mi olacak. Bir araya toplanacak dosya adınızla aynı şekilde.
3 - Mesela bir excel sayfasından fazla veri olursa ne yapacak. ( Bu kadar çok veri olmayabilir ) Kullandığınız excel'de satır sayısı 1.048.576
 
Dosyalar aynı yerde olacak. Dosya isimleri Analiz Sonuç 1,Analiz Sonuç 2.... Analiz Sonuç 30 gibi her gün için bir dosya ve Ocak , Şubat... Aralık gibi 12 aylık klasörler içerisinde bulunacak.
Toplamda bir yılda 15000-20000 satırlık veri bir Excel sayfasında birleşecek.
Benim yapmak istediğim en azından bu şekilde. Önereceginiz Makro ile bunlar mümkün mü bilmiyorum.
Biraz karışık bir talep olabilir.
 
Umarım yanlış anlamamışımdır.
Şimdi sizde 12 farklı klasör var. İçlerinde ise ay bazında 30 tane excel dosyası olacak.
Peki bu şekilde olursa toplanacak excel dosyasının adı ne olacak. Her ay için mi aynı şeyi planlıyorsunuz. Yıl bazında da aynı bilgileri alacak mısınız?
Bunları sormamın sebebi makroyu sürekli değişirmemek için tek sefer de yazıp göndereyim.
Bir de 1 ay için 3 excel dosyası ve bir de sürekli kullanacağınız hepsini bir arada olacak olan excel dosyasını gönderin kodu düzenleyip göndereyim.
 
Doğru anlamışsınız. Hedefim 12 faklı klasör içerisindeki 30 veya 31 tane excel dosyasındaki verileri yıllık olarak tek bir tabloda 1 Ocak tan 31 Aralık tarihine kadar sıralı biçimde düzenli olarak aktarabilmek.
Verilerini almak istediğim dosyalarda(Analiz Sonuç 1 ...30) bulunan tablodaki hücreler de formüller bulunmakta.Bazı veriler başka kaynaklardan otomatik gelecek bazı veriler elle girilecek. (Kırmızı renkli hücrelere elle veri girilecek,sarı renkli sütundaki sayılar kendi gelecek.)
Çok oluyorsun demez iseniz eğer, verilerin yıllık tabloya aktarılmasını kontrol etmek amacıyla bir "Verileri Aktar" gibi bir buton oluşturulabilir mi? Sürekli veri akışı yerine belirli zamanda yıllık tabloya akması gerekiyor.
 

Ekli dosyalar

mybluecat' Alıntı:
Doğru anlamışsınız. Hedefim 12 faklı klasör içerisindeki 30 veya 31 tane excel dosyasındaki verileri yıllık olarak tek bir tabloda 1 Ocak tan 31 Aralık tarihine kadar sıralı biçimde düzenli olarak aktarabilmek.
Verilerini almak istediğim dosyalarda(Analiz Sonuç 1 ...30) bulunan tablodaki hücreler de formüller bulunmakta.Bazı veriler başka kaynaklardan otomatik gelecek bazı veriler elle girilecek. (Kırmızı renkli hücrelere elle veri girilecek,sarı renkli sütundaki sayılar kendi gelecek.)
Çok oluyorsun demez iseniz eğer, verilerin yıllık tabloya aktarılmasını kontrol etmek amacıyla bir "Verileri Aktar" gibi bir buton oluşturulabilir mi? Sürekli veri akışı yerine belirli zamanda yıllık tabloya akması gerekiyor.
Genişletmek için tıkla ...

Merhaba
Yıllıktaki butona tıklayın sonuçları gözlemleyin.

Not : Aradaki boşluklarda veri olduğunu görüyor makro bunun için o hücrelerdeki verileri silerek deneyin.
Ben ANALİZ SONUÇ 1 bu dosyada yaptım. Gayet güzel çalıştı.
 

Ekli dosyalar

Dosyayı açtım fakat resimlerdeki gibi uyarılar alıyorum.
Notta yazdığınız boşluklar kısmını tam anlayamadım.
 

Ekli dosyalar

  • UYARI 1.jpg
    UYARI 1.jpg
    218.1 KB · Görüntüleme: 8
  • UYARI 2.jpg
    UYARI 2.jpg
    33.6 KB · Görüntüleme: 4
Bende problem yok.
Butona tıklıyorum direk çalışıyor.
Tüm excel dosyalarını kapatın. Sadece yıllık olanı açın ve butona tıklayın.
 
Bende aynı uyarılar devam ediyor. Tek başına yıllık olanı da açtım aynı. Versiyon la alakalı olabilir mi?
 
mybluecat' Alıntı:
Bende aynı uyarılar devam ediyor. Tek başına yıllık olanı da açtım aynı. Versiyon la alakalı olabilir mi?
Genişletmek için tıkla ...

Merhaba
Dosyayı denedim hatta bazı arkadaşlara denettirdim. Yapıştırma kodunda problem olduğunu ama ikinci denemesinde normal çalıştığını söylediler.
Bir diğer arkadaşta benim farketmediğim bir noktayı söyledi bunu bir daha gösterme tik'ini işaretleyip denemeni tavsiye etti.
 
Hepsini denedim.
Üstte gönderdiğim resimlerden 2. deki hatayı veriyor.Kaynak uygulama meşgul olabilir diyor.Sayfa donuyor müdahale de edemiyorum. İptal dediğim de resimdeki hatayı alıyorum.
 

Ekli dosyalar

  • 1479213387491138181577.jpg
    1479213387491138181577.jpg
    478.3 KB · Görüntüleme: 6
  • UYARI 3.jpg
    UYARI 3.jpg
    165.4 KB · Görüntüleme: 5
Son düzenleme:
Başka bir bilgisayar da denedim çalışıyor. Çalışmayan da 2016 kuruluydu. Çalışanda 2007 kurulu belki versiyondan fark ediyordur.
1) Veri aldığımız sayfalar yeni veriler girdiğimizde getir butonuna basınca kaç sayfadan veri çekmiş ise hepsi için " .... sayfa zaten var değiştirilsin mi?" diye soruyor tek tek. Veri çektiği sayfa sayısı çok olduğunda sıkıntı olabilir.Bu otomatik olarak geçilebilir mi?
2) 2. aya ait dosyaya geçtiğimizde sayfalar yine analiz sonuç 1 den başlayarak 30 veya 31 e kadar gideceği için 1. aydaki dosya adları ile aynı olacağından çakışma yaşanır mı?Bu şekilde 12. aya kadar devam edecek.
3) Makro isimlere bağımlı mı? İsimler değiştirilebilir mi?
 
mybluecat' Alıntı:
Başka bir bilgisayar da denedim çalışıyor. Çalışmayan da 2016 kuruluydu. Çalışanda 2007 kurulu belki versiyondan fark ediyordur.
1) Veri aldığımız sayfalar yeni veriler girdiğimizde getir butonuna basınca kaç sayfadan veri çekmiş ise hepsi için " .... sayfa zaten var değiştirilsin mi?" diye soruyor tek tek. Veri çektiği sayfa sayısı çok olduğunda sıkıntı olabilir.Bu otomatik olarak geçilebilir mi?
2) 2. aya ait dosyaya geçtiğimizde sayfalar yine analiz sonuç 1 den başlayarak 30 veya 31 e kadar gideceği için 1. aydaki dosya adları ile aynı olacağından çakışma yaşanır mı?Bu şekilde 12. aya kadar devam edecek.
3) Makro isimlere bağımlı mı? İsimler değiştirilebilir mi?
Genişletmek için tıkla ...

1. Sorunuz için ben böyle bir sorgu eklemedim. ( Ayrıca yıllık verileri attığı sayfayı temizliyor o veriler orada kayıtlı değil getir dediğinizde tüm veriler silinir yerine yenileri gelir. )
2. İse dosyaları klasöre koyacaksanız bu kod bunu algılamaz. Klasörleri tanıtmak gerek koda ondan sonrasında ise çakışma olmaz.
3. Hangi isimlerden bahsediyorsunuz. Bunu anlamadı. Dosya isimlerini zaten kendisi otomatik alıyor. Tek sabit olan açtığınız yıllık dosyanın ismi
 
Dosyalar iç içe 2 klasör de bulunacaklar.Yıllık olarak kullanmak istediğim yapıyı tümüyle göstermek isterdim fakat boyutu biraz büyük ( 90 mb ) olduğu için buraya ekleyemiyorum.Tarif etmeye çalışayım;

*Birinci olarak ana bir klasör var.Ana klasörün içerisinde 12 adet, ayların isimlerinin yazıldığı klasörler ve tüm verilerin toplanacağı excell dosyası var.Her bir ayın içerisinde de 1.GÜN , 2.GÜN .... isimli ait olduğu ayın gün sayısı kadar klasör var.Bu klasörler içerisinde de Analiz Sonuç dosyaları bulunuyor.Veriler de bu dosyalardan alınarak tüm verilerin toplanacağı excel dosyasına aktarılacak.

* Diğer bir husus ise verileri çekeceğimiz "Analiz Sonuç" isimli dosyanın her bir hücresinde başka yerlerden veri almak üzere formüller tanımlı durumda.Yani hücreler boş değil.

Biraz karışık gibi duruyor sanırım.Umarım anlatabilmişimdir.
 
Merhaba
Şöyle yapın. Ana Klasör ve İçindeki klasörleri oluşturun her birinin içerisine bir tane dosya ekleyip upload sitesinden yükleyin ve link verin. Ona göre çözüm bulayım.
 
Yıllık tablonuz nerde :)
Ayların olduğu yerde mi duruyor
 
Ana klasörü açtığınızda ayların altında yıllık analiz sonuçları adıyla sizin yaptığınız Makrolu dosya var.Kullanırken de orada kalacak.
Bir de getir tuşunu tablo dışına alabilirsiniz. Sağ tarafta bir yere.
 
Merhaba
Dosyanızdaki kodu bununla değiştirin.
Kod: 
Option Explicit
Sub veri_getir()
Dim XLS As Excel.Application, KTP As Workbook, KTP2 As Workbook
Dim SYF As Worksheet, SYF2 As Worksheet, STR As Long, STR2 As Long
Dim KTF As String, TRH As Long, GN As Long
Dim YOL As String, DSY As String
Application.ScreenUpdating = False
Range("B10:AS" & Rows.Count).ClearContents
Set XLS = CreateObject("Excel.Application"): XLS.Visible = False
For TRH = 1 To 12
For GN = 1 To Day(DateSerial(Year(Date), TRH + 1, 0))
YOL = ThisWorkbook.Path & "\" & Replace(Replace(UCase(Format(DateSerial(Year(Date) _
, TRH, 1), "mmmm")), "ı", "I"), "i", "İ") & "\" & GN & ". GÜN\"
Set KTP = ActiveWorkbook
Set SYF = KTP.ActiveSheet
KTF = ActiveCell.Address
DSY = "ANALİZ SONUÇ " & GN & ".xlsx"
'MsgBox YOL & DSY
Set KTP2 = XLS.Workbooks.Open(YOL & DSY)
Set SYF2 = KTP2.Sheets("Sonuç Giriş")
STR = SYF.Range("B" & Rows.Count).End(xlUp).Row + 1
STR2 = SYF2.Range("B" & Rows.Count).End(xlUp).Row
SYF2.Range("B10:AS" & STR2).Copy
SYF.Range("B" & STR).PasteSpecial (xlPasteValues)
SYF2.Range("B10").Select
Application.DisplayAlerts = False
KTP2.Save: KTP2.Close
Application.DisplayAlerts = True
SYF.Range(KTF).Select
Next: Next
Application.ScreenUpdating = True
End Sub

Bu linkten indirebilirsiniz.
 
Son düzenleme:
Linkini verdiğim dosyaya "Yıllık analiz sonuç" dosyasını koymayı unutmuşum sanırım.Özür dilerim. Daha önceden yaptığınız dosyadaki kodu değiştirdim ve dosyayı belirttiğim yere koydum.Fakat açıp getir butonuna bastığımda imlec dakikalarca dönüyor ve sayfa donuyor.Müdehale edemiyorum.Rica etsem yeni eklediğim linkten deneyebilirmisiniz.Çıkart butonunu da sağ tarafa tablo dışına alabilirseniz sevinirim.

http://s4.dosya.tc/server3/t21vff/Numune_Kabul_Kayit_ve_Raporlama.rar.html
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst