VBA ile KAYIT

[ismail0160]

User Form da 4 lü Bir TextBox Yapacam ve bu kayıtların başka bir Sayfaya kayıt olması için bir kod yazmaya çalıştım ama bir yerden sonra ilerleyemedim.
Yardımcı kaynak verecek veya yardımcı olacak varsa sevinirim.
şimdiden teşekkürler.

 

[Selçuk1]

userformunuza bir adet commandbutton ekleyiniz ve kodlarını aşağıdaki gibi yazınız.
ekteki örneği inceleyiniz.

Private Sub CommandButton1_Click()
Set ter = Sheets("Sayfa1")
For a = 1 To 4
If Controls("textbox" & a) = "" Then
MsgBox "Lütfen Bilgileri Eksiksiz ve Tam Giriniz!.."
Exit Sub
End If
Next
ter.[a1:d65535].ClearContents
ter.Cells(1, 1) = Textbox1
ter.Cells(1, 2) = TextBox2
ter.Cells(1, 3) = TextBox3
ter.Cells(1, 4) = TextBox4

x = MsgBox("Verileriniz Sayfa1'e İşlenmiştir!.. ", vbOKOnly + vbInformation, "Tebrikler!..")
End Sub

 

[alpi]

VBA’da Kod Düzeni ve Kod Yazmaya Dair İpuçları

 

[ismail0160]

cellchuq çooook teşekkür ederim.tam olaraka istediğim buydu.eline koluna sağlık.

 

[ismail0160]

cellchuq.teşekkür ettim ama benim istediğim tam olarak şuydu.
kayıt yapıldıktan sonra form temizlenecek ve yeni bir kayıt yapıldığında bu kayıt var olan kayıdın üstüne yazılmayacak,yeni bir kayıt oluşturacak.
fazla şey istiyorum ama yardımcı olursan çok makbule geçer...

 

[Selçuk1]

selamlar;

ekteki dosyayı inceleyiniz. ayrıca sn. alpi'nin verdiği linki incelerseniz tüm bu sorularınıza yanıt bulabilirsiniz.