Kaydet butonu

[rkoroglu]

Merhabalar. kaydet butonu ile ilgili sıkıntı yaşamaktayım. Kaydet butonuna bastığım zaman girdiğim isim ve noları alt alta yazmasını istiyorum ama bir türlü beceremedim. Dosya ekte. Yardımlarınıozı bekliyorum.

 

[aydın3838]

bakmak için dosya lazım

 

[rkoroglu]

Pardon hemen ekledim

 

[aydın3838]

dosya ekte

 

[aydın3838]

pardon

açılışta işim zor oluyor diye silmiştim exceli gizleyen kodu silmiştim

Application.Visible = False

 

[rkoroglu]

elinize sağlık ama benim istediğim isimler a sütununa nolar b sütununa yani alt alta liste oluşturmak istiyorum. Ve her kaydettiğimde bir alta kaydetmesini istiyorum.
Yani : Ahmet 50505
Mehmet 54585
Ali 58745
Veli 57489 gibi.

 

[turk-x]

Örnek Dosya Ektedir.

Sayın rkoroglu ;
Excel ve makroları öğrenmek istiyorsanız uygulamalı excel eğitimi bölümünü incelemelisiniz.
diğer türlü bu şekilde bir öğrenim pek mümkün değil

 

[rkoroglu]

Sn:aydın 3838 teşekkürler yanlış dosyayı açmışım da Tekrar eline sağlık güzel olmuş....
Sn: turk-x sana da teşekkürler tavsiye ve güzel çalışman için.

 

[aydın3838]

kaydet butonundaki kodların silin bunları yazın

Private Sub CommandButton1_Click()
For D = 1 To 2
D = Sheets("SAYFA1").Range("A65536").End(xlUp).Row + 1
Sheets("SAYFA1").Range("A" & D).Value = TextBox2.Text
Sheets("SAYFA1").Range("B" & D).Value = TextBox1.Text
Next
TextBox1.Text = ""
TextBox2.Text = ""
MsgBox "İŞLEM TAMAM"

End Sub

 

[aydın3838]

üstatlar sağolsun

her şey içim excel wep e teşekkürler bunlar buranın eseri

 

[mnurnisli]

arkadaşlar peki seçenekleri artırdığımızda ne yapmamız lazım. Burada isim ve telefon seçenekleri var. userformda tab tuşuyla kutulara atlıyoruz. Ama userforma yeni bir kutu yapınca tab tuşu önce kaydet butonuna geliyor sonra yeni eklenen kutuya geliyor. bunu nasıl hallederiz. teşekkürler.

 

[turk-x]

nesnelerin özellikleri kısmında tab değeri vardır
o değerini kendinize göre sıralarsınız