Excel Userform Kaydet ve Çıkış Butonu

[MADCAP]

Arkadaşlar Merhaba,

USerform yeni başladım sayılır. Ve intrenet sitesinden çok araştırdım. Ancak çok fazla kafama girmedi. Ya anlatış biçimi ya da kendimden dolayı. Dünden beri ekteki excel için kaydet butonu için kod yazmaya ve aramaya çalışıyorum.

Ne yaptı isem beceremedim. Bana bu kodda yardımcı olabilirmisiniz. Daha bir sürü alanda ekleyeceğim.

Aynı zamanda buradan bu userformdan bir çok işlem yapabilirsin diyeceğiniz bir site vb. birşey var ise tarafıma iletebilirmisiniz?

 

[vardar07]

Userform daki kodları Aşağıdaki kodla değiştirip inceleyiniz.

Private Sub CommandButton1_Click()
Set Sh = Sheets("İşlemler")
      If TextBox01.Text <> "" And TextBox02.Text <> "" And TextBox03.Text <> "" And TextBox04.Value <> "" Then
    Son = Sh.Range("A65536").End(xlUp).Row
    Bos = Son + 1
    Sh.Range("A" & Bos).Value = TextBox01.Text
    Sh.Range("B" & Bos).Value = TextBox02.Text
    Sh.Range("C" & Bos).Value = TextBox03.Text
    Sh.Range("D" & Bos).Value = TextBox04.Text
'    Ekleme yapılacaksa buradan devam ediniz.
End If
MsgBox ("Kayıt Tamamlandı")
TextBox01.Text = ""
TextBox02.Text = ""
TextBox03.Text = ""
TextBox04.Text = ""
End Sub

 

[MADCAP]

Teşekkürler Hocam oldu. Ellerinize sağlık.

Peki 1 sayfa yetmeyecek. Diğer sayfaları nasıl eklerim.? Yada textbox değilde araya combobax eklesem formül nasıl olurç.

Bir böyle döküman var mı internette bildiğiniz bana yol gösterecek.