Sira İle Kayit Makrosu

[iceman20]

Arkadaşlar ekteki tabloda sayfa 1 de girdiğim verilerin icmal sayfasına kaydolmasını istiyorum. Çok bilgili olmadığım için kaydet makrosunu yazamadım.
Sayfaya her müşteri için yeniden bilgi girmeliyim. Kayıt butonuna basınca da icmal sayfasında ilk boş satıra ekleyerek gitmeli. Yardımlarınız için şimdiden teşekkürler...

 

[conari]

İcma sayfasına hangi bilgiler aktarılacak belirtirmisiniz?
Berkant kardeşim.

 

[iceman20]

nokta adı, tarih, aktivite türü, harcama (rekor maliyet yazan sütunun altındaki kırmızı desenli hücre)....
İlgin için çok teşekkürler...

 

[conari]

Birde açıklama vardı ama orda neyse kodu anlyabilesin diye bu şekilde yaptım.

Sub AKTAR()
Set S2 = Sheets("İCMAL")
nokta = Cells(1, 4)
tarih = Cells(4, 4)
AK_TR = Cells(7, 1)
harcama = Cells(22, 14)
sat = S2.[A65536].End(3).Row + 1
S2.Cells(sat, 1) = nokta
S2.Cells(sat, 2) = tarih
S2.Cells(sat, 3) = AK_TR
S2.Cells(sat, 4) = harcama
End Sub

 

[iceman20]

conari eline sağlık ... çok işime yaradı.