kayıt işlemi

[galatasaray1981]

sorum şu olacak;
sayfa1 de A1 yazdığım şeyi kaydet butonuna basınca
sayfa2 de ki A1 hücresine yazsın , daha sonra sayfa1 de A1 hücresine başka bir şey yazıp kaydet butonuna basınca, sayfa2 deki A1 hücresi dolu olduğundan
A2 hücresine yazsın ve bu şekilde devam etsin.

yardımcı olabilirseniz sevinirim,

teşekkürler şimdiden

 

[YUSUF44]

Aşağıdaki kodları Sayfa1'in kod bölümüne yapıştırdığınızda Sayfa12in A1 hücresi her değiştiğinde Sayfa2'de A sütunundaki ilk boş hücreye aktarır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
yeni = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
If Sheets("Sayfa2").[A1] = "" Then yeni = 1
Sheets("Sayfa2").Cells(yeni, "A") = Target
Target.Select
End Sub

 

[Muzaffer Ali]

Bu konu ile ilgili forumda o kadar çok örnek varki.
Bir arama yapsanız istemediğiniz kadar çok örnekle karşılaşırsınız.

Özellikle Excel Dershanesi bölümünü inceleyin.

 

[YUSUF44]

İlla düğmeyle olsun istiyorum diyorsanız aşağıdaki kodları bir modüle kopyalayıp, Sayfa1'e düğme ekleyiniz:

Sub aktar()
yeni = Sheets("Sayfa2").Cells(Rows.Count, "A").End(3).Row + 1
If Sheets("Sayfa2").[A1] = "" Then yeni = 1
Sheets("Sayfa2").Cells(yeni, "A") = Sheets("Sayfa1").[A1]
Sheets("Sayfa1").[A1].Select
End Sub