Textbox'tan Listbox'a veri alma ve toplama

[teksen]

Arkadaşlar merhaba,

Ekte gönderdiğim dosyada İsim ürün ve adet kısmına girdiğim bilgileri kaydet butonuna basınca Listbox'a almasını ve alttaki textbox'ta adet toplamını vermesini istiyorum.

Birkaç örnek çalışma buldum.Fakat bir türlü beceremedim.

Yardımcı olursanız sevinirim.

Şimdiden teşekkürler.

 

[veyselemre]

Private Sub CommandButton1_Click()
    If IsNumeric(TextBox3.Value) Then
        ListBox1.AddItem TextBox1
        ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2
        ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3
        TextBox4.Value = Val(TextBox4.Value) + Val(TextBox3.Value)
    Else
        MsgBox "Adet kısmına sayısal ifade giriniz"
    End If
End Sub

 

[Mahmut Kök]

aşağıdaki gibi de deneyebilirsiniz.

Private Sub CommandButton1_Click()
If IsNumeric(TextBox3.Value) = False Then GoTo 66
If TextBox1 = Empty Or TextBox2 = Empty Or TextBox3 = Empty Then GoTo 66
ListBox1.AddItem TextBox1
ListBox1.List(ListBox1.ListCount - 1, 1) = TextBox2
ListBox1.List(ListBox1.ListCount - 1, 2) = TextBox3
For a = 0 To ListBox1.ListCount - 1
toplam = toplam + (ListBox1.List(a, 2) * 1)
Next
TextBox4 = toplam
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
66
End Sub

 

[hamitcan]

Bir örnekte benden.

 

[teksen]

yardımlarınız için çok teşekkür ederim

yalnız ben kayıt yaptıktan sonra ListBox'a bir şekilde gelsede

pencereyi kapattığımda bilgiler siliniyor.

sanırım sayfada bir yere kaydetmesi gerkecek

bunun için nasıl bir düzenleme yapılması gerekir?

 

[teksen]

Herkese iyi çalışmalar

Bana bu konuda yardımcı olabilecek birileri varmı acaba?

 

[hamitcan]

Gönderdiğim örneği incelediniz mi?

 

[teksen]

Öncelikle ilginize teşekkür ederim.

Gönderdiğiniz örneği inceledim

Fakat benim istediğim 3 TextBox'ada yazdığım bilgileri kaydet butonuna basınca ListBox'ta görmek

Aynı zamanda sayfayı kapatıp açtığım zaman

UserForm üzerinde daha önce girdiğim ve kaydettiğim bilgilerin

ListBox'ta görünmeye devam etmesi

Birde yukarıdada belirttiğim gibi

Adet kısmının toplamını alttaki TextBox'ta görebilmek

Şimdiden teşekkür ederim

 

[hamitcan]

Bazı hatalar yapmışım.Düzelttim.Bu yüzden eki değiştirdim.Tekrar inceler misiniz?

 

[teksen]

teşekkür ederim

istediğim buydu

elinize sağlık

dosyayı kapattığım zaman bilgiler UserForm'da kalıyor

sadece çözemediğim nokta,toplam aldığımız textBox'ın dosya kapanıp

açıldıktan sonra toplamı tekrar veri girene kadar göstermiyor olması

bu neden kaynaklanır acaba?

 

[hamitcan]

İlgili kodu aşağıdaki ile değiştirin.

Private Sub UserForm_Initialize()
son = [a65536].End(3).Row
ListBox1.ColumnCount = 3
ListBox1.RowSource = "a2:" & "c" & son
TextBox4 = WorksheetFunction.Sum(Range("c2:" & "c" & son))
End Sub

 

[teksen]

Teşekkür ederim,

Birde formu temizle ve sil butonları ekledim

formu temizle tamam

fakat sil için uygun kodları bulamadım

''sil'' için uygun kodlar nelerdir acaba?

 

[hamitcan]

Önce form üzerine bir düğme ekleyin. Sonra Listbox üzerinden silmek istediğiniz satırı seçin ve düğmeye basın.

Private Sub CommandButton2_Click()
cvp = MsgBox("İlgili satırı silmek istiyor musunuz?", vbYesNo)
If cvp = vbYes Then
Rows(ListBox1.ListIndex + 2).Delete
UserForm_Initialize
End If
End Sub

 

[teksen]

teşekkür ederim