veri yönetimi hakkında.2sayfaya keydetme

[hurkanpisirici]

merhabalar eklediğim dosyada da açıkladım 2 hücreye ve 1 açılır kutuya girdiğim verileri 2 sayfaya atması yani kaydet düğmesine bastığımda veri girişi sağlamasını istiyorum? sayfada hücrelerle olunca yapamadım.

 

[hurkanpisirici]

bir sürü örnek var ama istediğimi bulamadım?

 

[baranseren]

Ek olarak yolladığım dosyayı incelerseniz sanırım çözümü bulacaksınız.

 

[hurkanpisirici]

sayın baranseren ilginize teşekkür ederim userformdan kayıt yapabiliyorum sayfa üzerinden yapmayı başaramadım.

 

[hurkanpisirici]

yardım edecek bir arkadaş yokmu acaba

 

[halilsoft]

bi incelermisin?

 

[hurkanpisirici]

sayın halilsoft emeğiniz için çok teşekküre derim aynen isteğim gibi olmuş sağolun

 

[Ayhan Ercan]

Merhaba,

Sayın halilsoft'un kodlarına ilaveten "Boş Hane" olduğunda uyarı vererek kodu sonlandırması bence daha güzel..

Sub kaydet()
son = Sayfa2.[b65536].End(3).Row + 1
If Sayfa1.Range("C5") = "" Then MsgBox "Adı Hanesi Boş Geçilemez", , "UYARI": Exit Sub
If Sayfa1.Range("C6") = "" Then MsgBox "Soyadı Hanesi Boş Geçilemez", , "UYARI": Exit Sub
If Sayfa1.ComboBox1.Value = "" Then MsgBox "Cinsiyeti Hanesi Boş Geçilemez", , "UYARI": Exit Sub
Sayfa2.Cells(son, 1) = son - 1
Sayfa2.Cells(son, 2) = Cells(5, 3)
Sayfa2.Cells(son, 3) = Cells(6, 3)
Sayfa2.Cells(son, 4) = Sayfa1.ComboBox1.Value
Range("C5").Value = "": Range("C6").Value = "": Sayfa1.ComboBox1.Value = ""
End Sub

 

[hurkanpisirici]

sayın ayhan ercan çok teşekkür edeirm döktürmüşsünüz yine sevgiler.