Soru Tek Buton İle Sayfa-3 Deki Verileri Sayfa-1 Kaydetme

[robbstrak]

Merhaba arkadaşlar bir konuda yardımınıza ihtiyacım var.

Elimde bir çalışma sayfası var. Sayfa-3 den bir şablon oluşturdum ve müşteri verilerini bu alana giriyorum. Ekte görüldüğü gibi. Ben bu alana da iki tane buton koydum. Birisi
Kaydet diğeri ise temizle. Temizleye basınca Sarı renkli hücreleri temizliyorum bunda bir sorunum yok.

Ben Kaydet butonuna basınca ekte yer alan Sayfa-1 deki satıra bu bilgiler gelsin ve kaydetsin istiyorum ama bir türlü işin içinden çıkamadım. Sayfa-3'te isim girdiğimde (B5) bunu kaydet dediğimde sayfa-1 deki isim(C5) altına yazsın istiyorum. Ve kaydet dediğimde Sayfa-1 Kaydetsin. Eğer farklı bir müşteri geldiyse yine aynı işlemi yapayım ve bu seferde 2 satıra eklesin kaydetsin istiyorum.

Ama gel görelim Temizle butonunu yaptım lakin Kaydet butonunu basamadım. Yardımlarınıza talibim. Şimdiden engin bilgileriniz için çok ama çok teşekkür ederim.

 

[çıtır]

Deneyiniz.

Sub kayıt()
Dim s1 As Worksheet: Dim s3 As Worksheet:Dim son as Integer
Set s1 = Sheets("Sayfa1"): Set s3 = Sheets("Sayfa3")
son = s1.Cells(65355, "B").End(3).Row + 1
say = WorksheetFunction.CountIf(s1.Range("B2:B" & son), s3.Range("B3"))
If say > 0 Then
MsgBox "Bu kayıt var"
Exit Sub
End If
s1.Range("B" & son) = s3.Range("B3")
s1.Range("C" & son) = s3.Range("B5")
s1.Range("D" & son) = s3.Range("B7")
s1.Range("E" & son) = s3.Range("B9")
s1.Range("G" & son) = s3.Range("D5")
s1.Range("H" & son) = s3.Range("D3")

s3.Range("B3") = Empty
s3.Range("B5") = Empty
s3.Range("B7") = Empty
s3.Range("B9") = Empty
s3.Range("D3") = Empty
s3.Range("D5") = Empty

End Sub

 

[robbstrak]

Hocam çok teşekkür ederim ellerinize sağlık. Çok büyük bir dertten kurtardınız bizi.

 

[çıtır]

Hocam çok teşekkür ederim ellerinize sağlık. Çok büyük bir dertten kurtardınız bizi.

Rica ederim.Dönüş yaptığınız için teşekkür ederim.