user fordan sayfaya kayıt yapma

[mixser]

merhaba arkadaşalar

Yapmak istediğim bir stok takibi proğramı için
yardımınıza ihtiyacım var.

eklediğim dosyamda user form uzerinde bulunan txtboxlardan data sayfasına
veri aktarmak istiyorum. user formdan her veri gönderilişinde data sayfasındaki liste boşluksuz olarak devam etmeli

 

[N.Ziya Hiçdurmaz]

Yanıt

Commandbutton1'e yazınız.

Private Sub CommandButton1_Click()
If txtSatıcı.Value = "" Then
MsgBox "Önce isim girmelisiniz", vbInformation
Exit Sub
End If
SON = Sheets("data").Cells(65536, "b").End(3).Row + 1
Sheets("data").Cells(SON, "B") = txtTarih
Sheets("data").Cells(SON, "C") = txtSatıcı
Sheets("data").Cells(SON, "D") = txtKod
Sheets("data").Cells(SON, "E") = txtCins
Sheets("data").Cells(SON, "F") = txtMiktar
Sheets("data").Cells(SON, "G") = txtFiyat
For sira = 1 To Sheets("data").[b65536].End(xlUp).Row
Sheets("data").Range("a" & sira + 1) = sira
Next
End Sub

 

[mixser]

sn. V.Basic For Applications

verdiğiniz cevap için teşekkür ederim
uygulamada olmayan bir şey var. form üzerindeki tüm txtboxların dolu olduğunu var sayarasak sadece data sayfasına 1 kayıt gelmekte bu sorunu nası aşarız