ListBox yardım

[aisha]

listboxa excelden istediğim sutunların içindeki bilgilerin yazılmasını istiyorum.örneğin A11 ile A19 arasındaki hücrelerde yaş grupları yazıyo ve ben liste halinde görünsün istiyorum.ve bunlardan birinin üzerine tıkladıgımda bu yaş grubu ile ilgili bilginin oldugu hücredeki değer textboxta görüntülensin istiyorum.yardımlarınızı bekliyorum

 

[mami68]

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 1
ListBox1.ColumnWidths = 80
ListBox1.RowSource = "Sayfa1!A2:A50"
End Sub

 

[aisha]

burdaki kodları yazdım ama hic bi değişiklk olmadı yani listboxta görünen hic bişey yok ve burdaki koda göre texbox ta listedeki secimim sahip oldugu deger görünmez

 

[Orion1]

burdaki kodları yazdım ama hic bi değişiklk olmadı yani listboxta görünen hic bişey yok ve burdaki koda göre texbox ta listedeki secimim sahip oldugu deger görünmez

Ekli dosyayı inceleyiniz.

Private Sub ListBox1_Click()
On Error Resume Next
TextBox1.Text = ListBox1.Column(0)
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.RowSource = "A11:A19"
End Sub

 

[aisha]

Çok Teşekkür ederim Syn Evren Gizlen bu kodda listboxta istediğim verileri görüntülüorum ama textBox ta görünmesini istediğim şeyi şöyle tarif edeyim A11 hücresinde kent yazdıgını farzedin.B11 hücresindede 1.09 değeri oldugunu varsayalım.yani kentlerdeki engelli nufüs oranı 1.09 a eşit.ben listboxta A11 e tıkladıgımda texbox bana B11deki değeri gösterecek

 

[Orion1]

Çok Teşekkür ederim Syn Evren Gizlen bu kodda listboxta istediğim verileri görüntülüorum ama textBox ta görünmesini istediğim şeyi şöyle tarif edeyim A11 hücresinde kent yazdıgını farzedin.B11 hücresindede 1.09 değeri oldugunu varsayalım.yani kentlerdeki engelli nufüs oranı 1.09 a eşit.ben listboxta A11 e tıkladıgımda texbox bana B11deki değeri gösterecek

Dosya ekte.

Private Sub ListBox1_Click()
On Error Resume Next
TextBox1.Text = Format(ListBox1.Column(1), "#,##0.00")
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "A11:B19"
End Sub

 

[akavak]

Merhaba

Private Sub ListBox1_Click()
On Error Resume Next
TextBox1.Text = Format(ListBox1.Column(1), "#,##0.00")

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "A11:B19"
End Sub

TextBox1.Text = Format(ListBox1.Column(-3)
-3 diyerek nasıl yapabiliriz.

 

[Orion1]

Merhaba

Private Sub ListBox1_Click()
On Error Resume Next
TextBox1.Text = Format(ListBox1.Column(1), "#,##0.00")

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.RowSource = "A11:B19"
End Sub

TextBox1.Text = Format(ListBox1.Column(-3)
-3 diyerek nasıl yapabiliriz.

Lİstboxta kolon sıaralaması indisi 0(sıfırdan) başlar.
ilk kolon indisi 0(sıfırdır) ondan sonrakiler birere artarak gider .-3 olamaz.

 

[akavak]

Evren Bey
listbox a aldığım verilerin solunda kalan kısmına da ihtiyacım olduğu için acaba dedim.
Teşekkürler

 

[aisha]

Evren Bey cok teşekkürler tam istediğim sonucu aldım.Son olarak bişey daha sormak istiyorum fazla oldum biliyorum ama ben bir userform olusturdum ve üzrerinde commandbuttonlar var.button1 e tıkladıgımda userform2 görüntüleniyo.Button2 ye tıkladıgımda userform3 görüntüleniyor.Makroyu calıstırdıgımda buttun1 e basıyorum ve userform2 karşımda ancak kapattıgımda makro düzenleme sayfası acılıyor.benim istediğim şey tam olarak şu ben userform2yi kapattıgımda userform penceresinden diger butonlara tıklayıp diğer userformlarıda görüntüleyebileyim.yani her seferinde kapanıp düzenleme sayfasına girmesin.yoksa her userformu görüntülemem için defalarca makroyu baştan başlatmam gerekicek.bunun önüne nasıl gecebilirm?

 

[Orion1]

Userform2'yi açar.

Userform2.Show