- Katılım
- 18 Ekim 2010
- Mesajlar
- 63
- Excel Vers. ve Dili
- Excel 2003 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 08/08/2019
Değerli Üstadlar,
Banka tahsilatlarını yazdığım bir günlük kasa fişi şablonum var. Bankadan yapılan tahsilatları Kredikartı sayfasına alt alta aktarmak istiyorum. Bir sonraki gün için doldurduğum bilgiler de son satırdan devam etmesini.
Tek bir hücreyi başka sayfaya aktarmayı şu kodlarla yapabiliyorum;
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("krediKartı")
s2.Cells(s2.[A65536].End(3).Row + 1, 1) = s1.Cells(9, 2)
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(12, 2)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(10, 2)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = s1.Cells(11, 2)
s2.Cells(s2.[E65536].End(3).Row + 1, 5) = Now
Ancak 15 satırlık bilgi alanında verilerin sayısı sürekli değiştiğinden bu formülü kullanamıyorum. Banka tahsilatları kısmında dolu olan hücreleri KrediKartı sayfasına aktarıp daha sonra aynı yere tekrar bilgi girdiğimde KrediKartı sayfasının son satırdan eklemeye devam ederek bilgi havuzu oluşturmak istiyorum. Yardımcı olabilir misiniz ?
Excel Dosyası;
GÜNLÜK KASA FİŞİ DENEME.xlsm - 39 KB
Banka tahsilatlarını yazdığım bir günlük kasa fişi şablonum var. Bankadan yapılan tahsilatları Kredikartı sayfasına alt alta aktarmak istiyorum. Bir sonraki gün için doldurduğum bilgiler de son satırdan devam etmesini.
Tek bir hücreyi başka sayfaya aktarmayı şu kodlarla yapabiliyorum;
Dim s1 As Worksheet: Set s1 = Sheets("Sayfa1")
Dim s2 As Worksheet: Set s2 = Sheets("krediKartı")
s2.Cells(s2.[A65536].End(3).Row + 1, 1) = s1.Cells(9, 2)
s2.Cells(s2.[B65536].End(3).Row + 1, 2) = s1.Cells(12, 2)
s2.Cells(s2.[C65536].End(3).Row + 1, 3) = s1.Cells(10, 2)
s2.Cells(s2.[D65536].End(3).Row + 1, 4) = s1.Cells(11, 2)
s2.Cells(s2.[E65536].End(3).Row + 1, 5) = Now
Ancak 15 satırlık bilgi alanında verilerin sayısı sürekli değiştiğinden bu formülü kullanamıyorum. Banka tahsilatları kısmında dolu olan hücreleri KrediKartı sayfasına aktarıp daha sonra aynı yere tekrar bilgi girdiğimde KrediKartı sayfasının son satırdan eklemeye devam ederek bilgi havuzu oluşturmak istiyorum. Yardımcı olabilir misiniz ?
Excel Dosyası;
GÜNLÜK KASA FİŞİ DENEME.xlsm - 39 KB
Son düzenleme: