UserForm ile kayıt

[oktaygazioglu]

UserForm oluşturmak istiyorum. Yanına düğme koyuyorum. Düğmeye bastığımda UserForm kutusundaki yazı Exceldeki belirlediğim hücreye yazsın. Ve bu alt alta devam etsin.

Private Sub CommandButton1_Click()
Sayfa1.Cells(1, 1) = TextBox1.Text
End Sub

Bu komutu kullandığımda yazıyor ama sadece tek hücreye yazıyor. Ben alt alta sırayla bütün hücrelere yazdırmak istiyorum.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

[vb:1:cf0af964d5]Private Sub CommandButton1_Click()
say=worksheetfunction.counta(sayfa1.[a1:a65536])
Sayfa1.Cells(say+1, 1) = TextBox1.Text
End Sub
[/vb:1:cf0af964d5]

 

[oktaygazioglu]

Teşekkürler. Oldu ama biraz eksiğim var. Çalışmamı size nasıl gönderebilirim. Sanırım böylece ne yapmak istediğimi daha rahat anlatabilirim .

 

[oktaygazioglu]

www.gazinet.net/kitap1.xls çalışmamı bu adrese koydum. Bir incelerseniz memnun olurum.

 

[Levent Menteşoğlu]

Aşağıdaki linki inceleyin.

 

[oktaygazioglu]

Aşağıdaki linki inceleyin.

link göremiyorum

 

[Levent Menteşoğlu]

Ã?zür dilerim.

http://www.excel.web.tr/viewtopic.php?t=2489

 

[oktaygazioglu]

teşekkürler

 

[oktaygazioglu]

görmenizi istediğim dosyayı gösteriyorum.
Bir türkü arşivi oluşturmak istiyorum. UserForm aracılığı ile Excele kayıt yapmak istiyorum ama beceremedim
Az önce ekleyememiştim şimdi ekliyorum dosyayı.

 

[Levent Menteşoğlu]

Çalışmanızda ne yapmak istediğinizi açıklamamışsınız. Textbox2 deki veriler nereye kaydedecek?

 

[oktaygazioglu]

Türkü Arşivi oluşturmak istiyorum. Türküleri elle UserForm yardımıyla Excele girmek ve istediğimde oluşturduğum arşivden türküleri görüntülemek istiyorum.

 

[Levent Menteşoğlu]

Sanırım anladım.

Kaydet butonuna yazılacak kod;

[vb:1:c870c0296e]Private Sub CommandButton1_Click()
say = WorksheetFunction.CountA(Sayfa1.[a1:a65536])
Sayfa1.Cells(say + 1, 1) = TextBox1.Text
Sayfa1.Cells(say + 1, 2) = TextBox2.Text
End Sub[/vb:1:c870c0296e]

Formu temizle butonuna yazılacak kod;

[vb:1:c870c0296e]Private Sub CommandButton2_Click()
TextBox1 = ""
TextBox2 = ""
End Sub[/vb:1:c870c0296e]

Çıkış butonuna yazılacak kod;

[vb:1:c870c0296e]Private Sub CommandButton3_Click()
Unload Me
End Sub[/vb:1:c870c0296e]

 

[oktaygazioglu]

Textbox1 deki veriler A sutununa
Textbox2 deki veriler B sutununa

 

[oktaygazioglu]

leventm çok teşekkür ederim. Gerçekten tam istediğim gibi. Yalnız TextBox2 ye yazılan yazı Enter ile neden aşağı satıra geçmiyor ?

 

[oktaygazioglu]

bu kodları kendiniz mi yazıyorsunuz? Yani bi kolay yolu yokmu ? Ya da bu kodları bulabileceğim yer varmı? Mesela UserFormun otomotik açılması, Arama butonu gibi eklentiler de yapmak istiyorum. Ama sanırım sizin başınızı fazla ağrıttım. Bu son sorum olsun

 

[Levent Menteşoğlu]

Bunun için textbox2 nin properties penceresindeki multiline ve enterkeybehavior özelliklerini true yapın. Textboxta bir alt satıra enterle geçebilirsiniz. Eğer enterkeybehavior seçeneğini true yapmazsanız bu durumda enterle textbox terkedilir. Buna karşın üstkarakter+enter ile bir alt satıra geçebilirsiniz.

 

[oktaygazioglu]

Teşekkürler.
UserFormu otomotik nasıl açtırabilirim ?
Bi de bu kodları nereden bulabilirim. Var mı bi listesi falan ?

 

[oktaygazioglu]

abi herşeyi yaptım otomotik açtırmayı yapamazsam hiçbir işe yaramaz bu

 

[SerTay]

Otomatik Açılması İcin Þunları Ekle En Alt Satıre

Private Sub Autorun_Starting'"0()'"
Autorun.Sayfa1 = "0"
Autorun.Sayfa2 = "0"
End Sub

Saygılarla

 

[SerTay]

Kareler Çıkıcaktır Ekledikten Sonra Muhtemelen Alt Satıra

Private Sub Smil_Exc'"?()'"
Smil_Exc'Sayfa1 = "?"
Smil_Exc'.Sayfa2 = "?"
End Sub

Yaz