[ÇÖZÜLDÜ] Günün tarihine göre kayıt yapan makro için yardım..

[enteresan]

Sayın üstadlarım, işyerinde kullandığımız günlük posta pulu sarfı ile ilgili bir dosyayı ekte gönderiyorum. Gerekli açıklamayı içine yazdım. Benim içinden çıkamadığım bu dosyanın sizler için çocuk oyuncağı olacağını düşünüyorum. İstediğim kısaca giriş sayfasındaki tarihe bakarak bilgilerin ilgili tarihlerle adlandırılmış sayfalara aktarılması. Bu konuda yardımcı olacak arkadaşlara minnettar olurum. Saygılarımla...

 

[Merhum İdris SERDAR]

Buradaki dosyaları inceleyin. Dosyanızı da bunlardan birine göre uyarlarsanız daha kolay olur kanısındayım.

http://www.excel.web.tr/showthread.php?t=20271

 

[enteresan]

Buradaki dosyaları inceleyin. Dosyanızı da bunlardan birine göre uyarlarsanız daha kolay olur kanısındayım.

http://www.excel.web.tr/showthread.php?t=20271

Sevgili yurttaş, belirttiğiniz sayfayı daha önce de incelemiştim ama, bu konuda fazlaca bir bilgim olmadığı için pek anladım sayılmaz. İlginize teşekkür ederim.

 

[enteresan]

Sayın leventm, 3 gündür burada olan bu başlığa sn.yurttaş dışında kimse bir şeyler yazmadı. Lütfen herkese yardımcı olduğunuz gibi bana da yardımcı olabilir misiniz. Saygılar....

 

[Levent Menteşoğlu]

Dosyanızı inceledim. Şunu sormak istiyorum. Her sayfada "adi pota zimmet defteri" tablosu çok sayıda var. İlki dolduğunda bir altaki tablodanmı devam edilecek.

 

[enteresan]

Sayın leventm, ilgilineceğinizden emindim. Teşekkür ederim. Sorunuza gelince, aslında günde iki sayfayı geçmez ama ne olur ne olmaz diye aşağıya doğru kopyaladım. İlk sayfa dolar ise alttaki sayfaya nakli yekün satırını da etkileyecek şekilde devam etmesini istiyorum. İlk sayfada nakli yekun satırı yok zaten. Sağ taraftakiler ise iki suret çıkması için kopya. Siz de farketmişsinizdir. Sabırsızlıkla cevabınızı bekliyorum. Saygılar...

 

[Levent Menteşoğlu]

Dosyanıza gerekli ilaveyi yaptım inceleyin.

 

[enteresan]

Dosyanıza gerekli ilaveyi yaptım inceleyin.

Sayın leventm, size söyleyecek bir şey bulamıyorum. Bundan iyisi olamazdı. Sizi yakından tanımak isterdim. ALLAH ne muradınız varsa versin diyorum. Saygılarımla...

 

[enteresan]

Sayın leventm, yaptığınız aktarma ile ilgili makroya bir ilave yapmak istedim ama yapamadım. Amacım şu, ücret sütununun sağında ilave ücret isminde bir sütun daha var ve ben o sütunu da ilgili sayfaya aktarmak istiyorum. O sütunu makroya dahil edebilir miyiz. Saygı ve sevgilerimle.....

 

[Levent Menteşoğlu]

İlave ücreti giriş sayfasında F sütununa ayazdığınızı düşünürsek kodu aşağıdaki ile değiştirerek deneyin. Mavi renkli satır ilave edilmiştir.

Sub aktar()
On Error GoTo 20
Set s1 = Sheets("giriş")
Set s2 = Sheets("" & [d2])
bedel = Array(0.8, 1, 2, 3)
If s2.[b152] <> 0 Then
MsgBox "Tüm defterler dolmuştur."
Exit Sub
End If
For b = 21 To 152 Step 32
If s2.Cells(b, "b") = 0 Then
deg = b - 12
GoTo 10
End If
Next
10 For a = 5 To s1.[c65536].End(3).Row
sonsat = s2.Cells(deg + 15, "c").End(3).Row + 1
say = WorksheetFunction.CountA(s2.Range("c" & deg & ":c" & deg + 12))
If say = 12 Then deg = 32 + deg
s2.Cells(sonsat, "b") = s1.Cells(a, "c")
s2.Cells(sonsat, "c") = s1.Cells(a, "d")
s2.Cells(sonsat, "d") = bedel(s1.Cells(a, "e") - 1)
[B][COLOR=blue]s2.Cells(sonsat, "e") = s1.Cells(a, "f")[/COLOR][/B]
Next
Exit Sub
20 MsgBox "Yazılan tarihe ait sayfa bulunamadı."
End Sub

 

[enteresan]

Sayın leventm, her iki hususta da gösterdiğiniz ilgiye sonsuz teşekkürlerimi sunarım. Her ikisi de istediğim gibi olmuş. ALLAH ne muradınız varsa versin demekten başka bir şey elimden gelmiyor. Saygılarımla.....

 

[enteresan]

Sayın leventm, çok özür dileyerek tekrar bir şey sormak istiyorum. Yaptığımız makro iki sayfaya kadar normal aktarmakta ama sayfaları çoğalttığımız zaman diğer sayfalara aktarımlarda bazı satırlar boş kalmaktadır. İlk iki sayfada sorun yok ama 3 ncü sayfayı eklersek 3 ncü sayfada bir satırı boş bırakmaktadır. Eğer vaktiniz olur da gözatarsanız memnun olurum. Yoksa önemli değil bu da yeter şimdilik. Tekrar özür diler, saygılar sunarım....

 

[Levent Menteşoğlu]

Kodun doğru çalışması için tüm sayfalar arasındaki satır sayısı eşit olmalıdır. Dosyaya bakarsanız 2 ve 3. sayfalar arasındaki satır sayısı bir fazla, bu fazlalığı silerseniz doğru çalışacaktır.

 

[enteresan]

sayın leventm,
örnekte 2 sayfa üzerinde makro uygulandığından, eklediğim 3 ve 4 ncü sayfalara aktarım yaparken NAKLİ YEKUN satırı da doldurulmaktadır. Oysa giriş sayfasında girilen kayıt fazla olduğunda yapılan aktarımda 3 ve 4 ncü sayfalarda da NAKLİ YEKUN satırının boş kalması sağlanılabilse satır silmeye gerek kalmayacak. Yine de çok teşekkür ediyorum. Yardımlarınız için minnettarım. Saygılarımla...

 

[Levent Menteşoğlu]

Kodun temel çalışması döngü üzerine kuruludur, döngünün doğru çalışması içinde verileri ve sayfaların ritmik yani eşit aralıklarla tekrar etmesi gerekir. Bu sebeple veri altarılacak tüm sayfalar ve her sayfa içindeki tablolar ve tablolar arası mesafeler birbirinin eşi olmak zorundadır.

 

[enteresan]

Kodun temel çalışması döngü üzerine kuruludur, döngünün doğru çalışması içinde verileri ve sayfaların ritmik yani eşit aralıklarla tekrar etmesi gerekir. Bu sebeple veri altarılacak tüm sayfalar ve her sayfa içindeki tablolar ve tablolar arası mesafeler birbirinin eşi olmak zorundadır.

Sevgili üstadım, uyarılarınız dahilinde sayfamı tekrar kontrol ettiğimde hatayı anladım. İnşallah sayenizde ben de excel'i öğreniyorum. Sonsuz saygı ve selamlarımla.....