Textboxdaki değer değişimi

[fehdur]

Arkadaşlar merhaba.Aşağıdaki kod ile listbox toplamı alıyorum ama kodu çalştırmak için "Toplam"adlı commandbutton kullanmak zorunda kalıyorum.Listbox'ın click olayına öyle bir kod yazalımki veriyi girdiğimde otomatik olarak textbox^daki değer değişsin.Eğer öyle yapmazsak Textboxdaki eski değeri dikkate alıp yanlışlık yapabiliriz.


Dim i As Long, t1 As Double
For i = 0 To Sheets("Anasayfa").ListBox3.ListCount - 1
topla = topla + CDbl(Sheets("Anasayfa").ListBox3.List(i, 5))

Next i
Sheets("Anasayfa").TextBox9.Text = topla
TextBox9 = Format(TextBox9, vbCrLf & "#,##0 TL")



Listbox'ın click olayı için kodu ekliyorum.İyi çalışmalar
Dim i As Long

If ListBox1.ListIndex = -1 Then Exit Sub

For i = ListBox1.ListCount - 1 To 0 Step -1
If ListBox1.Selected(i) = True Then
ListBox3.AddItem 'ListBox1.List(i, 0)
ListBox3.List(ListBox3.ListCount - 1, 1) = ListBox1.List(i, 0)
ListBox3.List(ListBox3.ListCount - 1, 2) = ListBox1.List(i, 1)
End If
Next i

 

[Orion1]

Şöyle örnek bir ufak kod yazayım.Ona bakarak siz ayarlayın.
listboxın ilk sütununu textbox1 e aktarıyor.

textbox1.value = format(listbox1.column(0),"#,##0.00")

 

[seddur]

.

 

[fehdur]

Listbox click olayında veya selection change olaylarında hata verdi,çalıştıramadım.
TextBox9.Value = ListBox3.List(ListBox3.ListCount - 1, i, 5) bu kod çalıştıracak ama i değerini doğru yazmam gerekiyor.

 

[Korhan Ayhan]

@seddur ve @fehdur aynı kişiler mi?

 

[fehdur]

Evet aynı kişiler altın üyeliğim sona erince uzatmak istedim beceremeyince ikinci kullanıcı adı almak zorunda kaldım.

 

[Orion1]

Listbox click olayında veya selection change olaylarında hata verdi,çalıştıramadım.
TextBox9.Value = ListBox3.List(ListBox3.ListCount - 1, i, 5) bu kod çalıştıracak ama i değerini doğru yazmam gerekiyor.

Şöyle deneyin.

TextBox9.Value = ListBox3.Colomn(5)

 

[fehdur]

Listbox1 click olayında kod hata veriyor.Hata kodu:438

 

[Orion1]

Listbox1 click olayında kod hata veriyor.Hata kodu:438

5nci kolon yok herhade.
Kolonu 4 yaparak deneyiniz.

 

[fehdur]

Dosyayı ekliyorum.Toplam butonuna basmadan textbox9'daki değer değişecek.Kod listbox1 click olayına yazılacak.

yeni.4.xlsm dosyasını indir - download

yeni.4.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s7.dosya.tc

 

[Orion1]

Dosyanızda listbox3 bulamadım.

 

[fehdur]

Düzeltilmiş dosyayı tekrar gönderiyorum.Dosya açıldığında önce MENÜ AÇ butonuna tıklanacak

yeni.internet.xlsm dosyasını indir - download

yeni.internet.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[Orion1]

Dosyanız ektedir.

 

[fehdur]

Çalışmanız için Teşekkür ederim.