Textbox'tan, ListBox'a alfabetik sıralı veri almak

[kmlpyrz]

Aynı form üzerinde
1 tane CommandButton1
1 tane TextBox1
1 tane ListBox1 oluşturdum.

Yapmak istediğim CommandButton1'i tıklayınca Textbox1'deki değeri Listbox1'e alfabetik sıralı halde eklesin. Sonrada TextBox1'i temizlesin. Aşağıda yapmaya çalıştığım kodu nasıl düzeltebilirim.

Private Sub CommandButton1_Click()
ListBox1.AddItem TextBox1.Value
TextBox1.value = ""
End Sub

 

[Mahmut Kök]

Çalışma sayfasında belirleyeceğiniz bir alan ile listekutusunu ilişkilendirirseniz istediğiniz işlemi daha kolay yapabilirsiniz. (Doğrudan listekutusuna alfabe sırasına göre ekleme konusunda fikrim yok.)

 

[udentr2002]

ekli dosyayı inceleyiniz

basit bi program ama umarım istediğiniz konu hakkında fikir verebilir

 

[udentr2002]

unutmuşum

textbox1'in silinmesi için
Next kodundan hemen sonra
TextBox1.Text = ""
kodunu yapıştırınız

 

[kmlpyrz]

O zaman şöyle bir sorun olacak.

Öncelikle ilginizden dolayı teşekkürederim. Sizin gönderdidiğiniz dosya sayesinde excel sayfasındaki verilerin listbox'a nasıl alınacağını öğrendim. Bu seferde şöyle bir sorunla karşılaştım. Textboxtaki verileri excel sayfasına nasıl yazdıracağım. Siz verileri excel sayfasına doğrudan girmişsiniz, ben excel sayfasına verileri textbox'tan yazdırabilirmiyim. Tabiki altalta yazacak.

Örnek: İnce Kum
Mucur
03 Kum gibi

 

[veyselemre]

Ekteki örnek Textboxtan listbox'a alfebetik sıralı ekler.

 

[kmlpyrz]

Yardımda bulunan tüm arkadaşlara teşekkürederim. Sayın veyselemre gönderdiğiniz dosya benim tam aradığım gibi yardımlarınız için sizede çok teşekkürederim.

 

[udentr2002]

ekli doyayı inceleyiniz

Dosyada değişiklikler yaptım biraz kayıt girdikten sonra kayıt ara butonuna basarsanız istediğni kaydı aramak istediğinizde textboxa yazdığınız an listboxda listelenecektir umarım işinizi görür dediğim gibi basit olarak hazırladım siz hayal gücünüze göre süslewyebilğr değişiklikler yapabilirsiniz

 

[kmlpyrz]

Sayın veyselemre VBA kodlarını programıma ekledim, çalıştı ama dosyayı kapatıp açınca textboxtaki değerler kayboluyor. Ben kalıcı olarak orda hep kalmasını istiyorum.
İyi çalışmalar.

 

[kmlpyrz]

Textbox değerinin excel hücrelerinde listelenmesi

Üzerinde CommandButon ve TextBox bulunan bir formda, CommandButonu her tıkladığımda, TextBoxtaki değeri, Sayfa1! A1 hücresinden başlayarak, A2,A3,A4........ hücrelerine altalta nasıl yazdırabilirim?

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

sat=worksheetfunction.counta([sayfa1!a:a])+1
sheets("sayfa1").cells(sat,"a")=textbox1

 

[kmlpyrz]

Levent Bey, verdiğiniz kodu denedim, ama hep aynı hücreye değer giriyor. Altalta liste oluşturması için ne yapmalıyım.

 

[Levent Menteşoğlu]

Levent Bey, verdiğiniz kodu denedim, ama hep aynı hücreye değer giriyor. Altalta liste oluşturması için ne yapmalıyım.

Herhalde bir şeyi yanlış yapıyorsunuz, butona her basışınızda bir alt hücreye kaydedecektir.

 

[kmlpyrz]

Levent Bey benim excel sayfasının adı "EKLE MUS". Ben sizin verdiğiniz kodda, sayfa1 yazan yerlere EKLE MUS yazdım. Sayfa adının arasında boşluk olması sonucu etkileyebilir mi?

 

[Levent Menteşoğlu]

Levent Bey benim excel sayfasının adı "EKLE MUS". Ben sizin verdiğiniz kodda, sayfa1 yazan yerlere EKLE MUS yazdım. Sayfa adının arasında boşluk olması sonucu etkileyebilir mi?

İlk satırda evet, bu durumda ilk satırı aşağıdaki değiştirerek kullanabilirsiniz.

[LEFT]sat=worksheetfunction.counta(sheets("EKLE MUS").[a:a])+1
sheets("EKLE MUS").cells(sat,"a")=textbox1[/LEFT]

 

[kmlpyrz]

Çok teşekkürederim Levent Bey. Sağolun.