Makro ile Mizan oluşturma

[walabi]

Tekrardan merhaba,

En son yazdığım cevap üzerinden biraz düşününce şu aklıma geldi. İstediğim şeylerin anlaşılabilir ve yapılabilir olduğunu varsayaraktan, elimizde ham veri zaten varken bu verileri tekrardan Mizan kitabına getirmenin ne gerekliliği var die düşünülebilir.

Oluşabilecek bu düşünceye karşılık şöyle bir cevap vereyim. Aslında gereği yok. Direk ham veri üzerinden direk Mizan oluşturabilir. Ancak şöylesi bir durum olabilir. Bu muavinleri farklı şekilde de işleme ihtiyacı doğabilir. Ve ayrıca bunu öğrenmek istemem.

Teşekkürler,

 

[walabi]

Bu konuya cevap verilecekmidir acaba. Yapılabilir mi yapılamaz mı.

 

[Korhan Ayhan]

Yapılır...

Dosyalarınızı indirdim. Fakat işlerim çok yoğun...

Malûm ay sonu işlemleri... İlk fırsatta dönüş yapacağım.

 

[walabi]

Teşekkürler, bende merakla bekliyorum.

Kolay gelsin.

 

[Korhan Ayhan]

Merhaba,

Veri alma işlemi tamam gibi. Kontrol edip eksikleri belirtir misiniz?

 

[walabi]

Korhan Hocam merhaba,

Öncelikle teşekkürler zahmet edip vakit ayırdığınız için. İlk baktığımda şunu gördüm. Seçmeli olarak sütunları getirebiliyoruz. Muavin verileri gelmekte. Mizan ile ilgili kısma sanırım siz dokunmamışsınız. Bunu sanırım ben de uyarlayabilirim verdiğim örnekten yola çıkarak. Genel itibari ile tamam diyebilirim.

Yalnız burada karşıma yeni çıkan daha doğrusu yeni farkettiğim bir durumu sormam gerek. Bahsettiğim ham verilerin olduğu excel tablosu xls formatında gelmekte sistemden. Elimde böylesi bir excel döküm vardı. Bu ham verilerin olduğu kitapta muavin sayfalarının haricinde macro1 şeklinde bir sayfa var. Ancak görünmüyor, sanırım gizli.

Sizin hazırlamış olduğunuz bu çalışma macro1 adlı sayfanın verilerini de getirmekte.

Şuan evden yazdığım için tam kontrol etmem imkanım olmadı, şirkette tam olarak kontrol edip yeni mesaj atacağım.

Teşekkürler tekrardan ilginize,

 

[walabi]

Hocam tekrardan merhaba,

Yol kısmına şu adresi nasıl tanımlayabiliriz.
"C:\Documents and Settings\AdemPc\Muavin.xls"

Tam anlamış değilim ama aynı klasör içinde olduğu zaman işlem yapabiliyorum ancak pc de farklı yerlerde olduğu zaman hata veriyor. Yukarda verdiğim adres Ham verinin alındığı excel kitabının sabit adresidir.

 

[Korhan Ayhan]

Kod içinde "Yol = ...." ile başlayan satırı bulun ve aşağıdaki gibi değiştirin.

Yol = "C:\Documents and Settings\AdemPc\Muavin.xls"

 

[walabi]

Kod içinde "Yol = ...." ile başlayan satırı bulun ve aşağıdaki gibi değiştirin.

Yol = "C:\Documents and Settings\AdemPc\Muavin.xls"

Hocam , son mesajınıza göre düzeltme yaptım. İlk başlarda veri alabiliyordum, ancak sonradan nedense verileri aktaramaz oldu. Ekte muavin dosyasından verileri mizan kitabına aktaramadım nedense. Kontrol edebilir misiniz. Ben bir anlam veremedim. Makro çalışıyor ama veri getirmiyor.

 

[walabi]

Hocam sık sık yazmaktayım , kusura bakmayın, 11 sayfalık veri almıştım. Şöylesi bir durum görünüyor, En son muavin sayfası hariç diğerlerinin ilk hareketini getiriyor, son muavin sayfasının ise tüm verilerini,

Örnekleyeceksem,

Muavin sayfasının 2. satırı
Muavin_1 sayfasının 2. satırı
Muavin_2 sayfasının 2. satırı
Muavin_son tüm satırları

 

[Korhan Ayhan]

Kodları eklediğiniz örnek dosyalara göre yazmıştım.

Şimdi Mizan dosyanızdaki bir sayfayı silmişsiniz. Bu sebeple kod istenilen sonucu vermiyor.

Kod içindeki "For X = ....." ile başlayan satırı düzeltmeniz gerekiyor.

For X = 2 To K1.Worksheets.Count

Buradaki 2 nin anlamı data sayfalarının sıra numarasıdır. İkinci sayfa olduğu için 2 den işleme başla diyoruz.

 

[walabi]

Kodları eklediğiniz örnek dosyalara göre yazmıştım.

Şimdi Mizan dosyanızdaki bir sayfayı silmişsiniz. Bu sebeple kod istenilen sonucu vermiyor.

Kod içindeki "For X = ....." ile başlayan satırı düzeltmeniz gerekiyor.

For X = 2 To K1.Worksheets.Count

Buradaki 2 nin anlamı data sayfalarının sıra numarasıdır. İkinci sayfa olduğu için 2 den işleme başla diyoruz.

Korhan Hocam gece gece tekrardan merhaba,

Uyarınıza göre sizin göndermiş olduğunuz örnek dosyaya göre kendime bir dosya uyarladım. Daha doğrusu kopyala-yapıştır yaparak bir excel kitabı oluşturdum.

Şuan benim istediğime yakın gibi. Ancak iki önemli eksiklik var.

1-) Önceki bir mesajımda dediğim gibi bugün istemden tam 12 sayfalık veri aldım xls olarak. 11 sayfanın tamamı dolu. 12. sayfa ise 639 satırdan oluşmakta. Buna göre ben xls kitabındaki sayfalardan veri aldığım zaman tüm satırların toplamı ( satır başlıklarından sadece birini sayarak ) 65535*11+639 = 721.524 satır veri olmalı aktarılan sayfada. Oysa aktarım işlemini başlattıktan sonra her seferinde ekte görünen dosyada olduğu gibi 650 satır aktarılmakta. Sebebini anlamadım ama bu düzeltilebilirse harika olacak.
2-) Birde aktarılan veriler kenarlıklı, dolgulu v.s şeklinde gelmekte. Bu verilerin sadece Değerlerinin aktarılmasını sağlayabilir miyiz.
3-) En son aklıma gelen aktarım bittikten sonra karşımıza çıkan kutucuğa aktarımın nekadar sürede bittiğini gösteren bir sayaç da eklenebilir mi.

Mümkünse bunların da yapılmasını rica edeceğim.

Vakit ayırıp emek harcadığınız için teşekkürler.

 

[walabi]

Korhan Hocam gece gece tekrardan merhaba,

Uyarınıza göre sizin göndermiş olduğunuz örnek dosyaya göre kendime bir dosya uyarladım. Daha doğrusu kopyala-yapıştır yaparak bir excel kitabı oluşturdum.

Şuan benim istediğime yakın gibi. Ancak iki önemli eksiklik var.

1-) Önceki bir mesajımda dediğim gibi bugün istemden tam 12 sayfalık veri aldım xls olarak. 11 sayfanın tamamı dolu. 12. sayfa ise 639 satırdan oluşmakta. Buna göre ben xls kitabındaki sayfalardan veri aldığım zaman tüm satırların toplamı ( satır başlıklarından sadece birini sayarak ) 65535*11+639 = 721.524 satır veri olmalı aktarılan sayfada. Oysa aktarım işlemini başlattıktan sonra her seferinde ekte görünen dosyada olduğu gibi 650 satır aktarılmakta. Sebebini anlamadım ama bu düzeltilebilirse harika olacak.
2-) Birde aktarılan veriler kenarlıklı, dolgulu v.s şeklinde gelmekte. Bu verilerin sadece Değerlerinin aktarılmasını sağlayabilir miyiz.
3-) En son aklıma gelen aktarım bittikten sonra karşımıza çıkan kutucuğa aktarımın nekadar sürede bittiğini gösteren bir sayaç da eklenebilir mi.

Mümkünse bunların da yapılmasını rica edeceğim.

Vakit ayırıp emek harcadığınız için teşekkürler.

Korhan Bey merhaba,

Son yazmış olduğum mesajı gördünüz mü acaba.

 

[Korhan Ayhan]

Ekteki örnek dosyayı inceleyiniz.

 

[walabi]

Korhan bey ve üstadlar merhaba tekrardan.

Korhan Bey, sizin en son göndermiş olduğunuz örnek dosyayı inceledim. Muavin ayağı istediğim şekilde olmuş. Ellerinize sağlık.

Son olarak Muavin verilerini özetleyip Mizan oluşturma kısmı kaldı. Bunu daha önce konuya cevap veren Halit beyin kodlarını sizin örnek dosyanıza uyarlayarak yapmaya çalıştım. Ekteki örnekte olduğu gibi kısa verilerde hemen işlem yapılabiliyor. Ancak 700.000 satırdan fazla bir veriyi denedim excel donma yaptı. Excel çalışıyor mu, kilitlendi mi anlayamadım. Uzun verilerde çok kasmakta sanırım. Bunun önüne geçme imkanı var mıdır. Bir de Mizan adlı sayfaya da muavin başlıklarını nasıl getirebiliriz.

 

[walabi]

Ekteki örnek dosyayı inceleyiniz.

Tekrardan merhaba,

Korhan bey, tek tek sütun seçimlerinde olduğu gibi, bir aralık vererek de veri getirebilecek bir kod mevcutmudur. Yani hazırlamış olduğunuz örnekte sütun seç formuna bir bölğm daha koyup Örneğin A-E sütunları arasındaki verileri getirmek.

 

[walabi]

Teşekkürler

Korhan Bey , Halit Bey ve tüm üstadlar selamlar.

Açmış olduğum konu başlığı ile ilgili olarak genel itibari ile sonuca ulaştım sayılır. Bu vesile ile Özellikle Korhan Bey ve Halit Beye teşekkürlerimi sunarım.

Ufak rütuşlarla son şeklini verdiğim örnek dosya da ektedir. Benim gibi VBA ve programlamaya yeni başlayan ve özellikle muhasebeci arkadaşlara tavsiye ederim.

Sitede emeği geçen herkeze Saygılarımı sunarım.

Tekrardan Teşekkürler.

 

[Korhan Ayhan]

Bende dosyada biraz değişiklik yaptım. Zamandan dolayı tam olarak test edemedim.

Aralık seçme işlemi şimdilik çalışmıyor. Eve gidince fırsat bulursam tamamlarım.

Son aşamada ise mizan oluşturma işlemi kalıyor.

 

[walabi]

Korhan Hocam son örnek dosyanızı ben test etmeye çalıştım. Tek tek sütun seçimi normal çalışmakta. Hatta şöyle örnek verebilirim. Elimde bir xls dosyası mevcuttu. 14 sayfalık . Dosya boyutu 287.631 KB . 21 sütundan oluşmakta. Toplamda 858.155 satırı yaklaşık 1 Dakikadan daha kısa sürede tek bir sayfaya aktarabiliyor. Benim bu veriyi sistemden almam yaklaşık yarım saat sürmüştü. Kıyaslarsak ( 1/30 ) harika bir sonuç.

Sadece mizanı oluşturma ve aralıklı seçim kaldı dediğiniz gibi. Özellikle mizanı oluşturma süresinin kısaltılmasını sağlamak mümkün olursa gayet işlevsel bir çalışma çıkmış olacak diye düşünüyorum.

 

[Korhan Ayhan]

Aralık seçme kodlarıda eklenmiştir.

Sadece mizan oluşturma kodları kaldı. Onuda test ettikten sonra foruma ekleyeceğim.