• DİKKAT

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

Tarihe göre faklı sayfalara yazdırma

Katılım
11 Aralık 2008
Mesajlar
25
Excel Vers. ve Dili
2007
Bütün ustalara ve kullanıcılara kolay gelsin

Uzun zamandır bu forumu takip ediyorum buradan öğrendiklerimle 2010 yılı ocak ayı için kasa defteri yaptım herkeze yararlı olacağını düşünüyorum ama bazı kısımlarına aklım yetmedi ilgili kişilerin yardımlarından mutlu olacağım.

Program kasa girdi fişi, kasa çıktı fişi, avans kredi fişi, ve 31 günlük kasa defterinden oluşuyor. Kasa defterinin 31 günlük sayfalarından haftasonu olanlarını kırmızı yaptım mesela tüm sayfalar birbirine bağlı devrediyor özet sayfasında güncel kasa durumu, girdilerin toplamı, çıktıların toplamı yazıyor

Kısacası yaptığım formlarla kasa girdi fişi,çıktı fişi ve avans kredi fişi doldurarak bu fişlerin çıktısını almak aynı anda kasa defterine kayıt yapmak istedim.

SORUNLARIM:

1.mesela kasa girdi ve çıktı fişini 1 nolu sayfaya kayıt yapabilecek hale getirdim ama istediğim seçilen tarihe göre ilgili sayfadaki kısma kaydetmesi
Sayfa1 de bir kayıt örneği var

2.alınan tutar veya teslim edilen tutar haneleri #12,00# yada #1234,50#gibi formatlarda yazılabilirmi

3.program açılınca hız açısından bir problem yok ama açılması biraz problemli yani zaman alıyor şimdi ben bunu yıllık yapayım diyorum acaba o zaman daha zor açılırmı

Herkese kolay gelsin bilgi paylaşıp öğrenmemize yardımcı olan ustalara ve acemilere teşekkürler
 

Ekli dosyalar

Selamlar,

İlk olarak ÖZET sayfasındaki formülleri kısaltalım.

H7 hücresine;
Kod:
=TOPLA('1:31'!D106)-TOPLA('1:31'!D6)

H8 hücresine;
Kod:
=TOPLA('1:31'!E106)


Kayıt işlemi için sayfaya veri aktarırken aşağıdaki kod satırını kullanmışsınız. Buradaki 1 değerini değişken yapmak için tarih seçtiğiniz nesne kullanılabilir.

Eski hali;
Kod:
Sheets("1").Cells(yer, 3) = Sheets("KGF").Cells(9, 5)

Yeni hali;
Kod:
Sheets("" & Day(DTPicker1.Value)).Cells(yer, 3) = Sheets("KGF").Cells(9, 5)


Ayrıca dosyanızın yedeğini aldıktan sonra bir kopyasını oluşturun. 1 nolu sayfayı tamamen kayıtla doldurduktan sonra 365 gün için kopyalayın. Dosyanızı kaydedip kapatın. Sonra tekrar açmayı deneyin. Eğer performansta çok fazla kaybınız yoksa kullanabilirsiniz. Yok sisteminizde çok kasma yapıyorsa dosyanızı yıllık olarak kullanmanızı tavsiye etmem.
 
Geri
Üst