Kaydet Butonu ile veri girişi

[Mahmut ŞAHİN]

Arkadaşlar, C2 hücresine yazılan konu adlarının kaydet tuşuna basıldıktan sonra, alt kısımdaki konular başlığı altında tek tek sıralanmasını istiyorum. Örnek dosyayı ekledim. Yardımcı olabilirseniz sevinirim. Teşekkürler.

 

[AdemCan]

Merhaba, kaydet ve temizle kodları.

Sub test_kaydet()

Dim s1 As Worksheet, son As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 2).End(3).Row

s1.Cells(son + 1, 2).Value = s1.Range("C2")

Set s1 = Nothing: son = 0
End Sub

Sub test_temizle()

Dim s1 As Worksheet, son As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 2).End(3).Row + 1

s1.Range("B10:I" & son).ClearContents

Set s1 = Nothing: son = 0
End Sub

 

[Mahmut ŞAHİN]

Merhaba, kaydet ve temizle kodları.

Sub test_kaydet()

Dim s1 As Worksheet, son As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 2).End(3).Row

s1.Cells(son + 1, 2).Value = s1.Range("C2")

Set s1 = Nothing: son = 0
End Sub

Sub test_temizle()

Dim s1 As Worksheet, son As Long
Set s1 = Sayfa1
son = s1.Cells(Rows.Count, 2).End(3).Row + 1

s1.Range("B10:I" & son).ClearContents

Set s1 = Nothing: son = 0
End Sub

Hocam çok teşekkür ederim. Ellerinize sağlık.

 

[AdemCan]

Rica ederim.