userform hakkında

[dreamymost]

arkadaşlar sizden bir yardım isticem excel vb de userform oluşturdum bana

adını
soyadı
adres

alanları olup kaydet dediğinde sayfa 2 ye kaydeden kodları verirmisiniz ben ona göre değiştirerek bi form yapıcam yardımcı olursanız cok sevinirim

 

[Excelmy]

Buyurun kodlarınız;

Önce 3 adet TextBox ve 1 adet CommandButton ekleyin.

Private Sub CommandButton1_Click()
Dim sat As Long
sat = ActiveWorkbook.Sheets("Sayfa2").Cells(65536, "A").End(xlUp).Row + 1
ActiveWorkbook.Sheets("Sayfa2").Cells(sat, "A").Value = TextBox1.Text ' Adı
ActiveWorkbook.Sheets("Sayfa2").Cells(sat, "B").Value = TextBox2.Text ' Soyadı
ActiveWorkbook.Sheets("Sayfa2").Cells(sat, "C").Value = TextBox3.Text ' Adresi
End Sub