ListBox1_Click() hk.

[mumugul]

Merhaba,

Örnek dosya da TextBox' ları doldurup "Ekle" butonuna basınca ListBox1_Click() devreye giriyor ve istenilen sonuç alınamıyor!
Bu durumu nasıl çözebiliriz, yardımcı olur musunuz?

Saygılarımla...

 

[yanginci34]

İstediğiniz sonuç ne ne yapmak istediğinizi daha net açıklarmısınız.

 

[mumugul]

Merhaba,

İstenen, Textbox' lara girdiğim değerleri sayfada denk gelen yere eklemesi.

 

[Muzaffer Ali]

Merhaba.

Bütün kodları silin aşağıdakileri kopyalayın.

Dim Bak As Boolean
Private Sub CommandButton1_Click()
    Bak = False
    With Worksheets("SAYFA1")
        .Cells(ListBox1.ListIndex + 2, 1) = .Cells(ListBox1.ListIndex + 2, 1) + CDbl(TextBox1.Value)
        .Cells(ListBox1.ListIndex + 2, 2) = .Cells(ListBox1.ListIndex + 2, 2) + CDbl(TextBox2.Value)
        .Cells(ListBox1.ListIndex + 2, 3) = .Cells(ListBox1.ListIndex + 2, 3) + CDbl(TextBox3.Value)
    End With
    ListBox1.ListIndex = -1
    CommandButton1.Enabled = False
    Bak = True
    TextBoxSifir
End Sub

Private Sub ListBox1_Click()
    CommandButton1.Enabled = True
    TextBoxSifir
End Sub

Private Sub UserForm_Initialize()
    With ListBox1
        .ColumnHeads = True
        .ColumnCount = 3
        .ColumnWidths = "50;50;50"
        .RowSource = "SAYFA1!A2:C" & Worksheets("SAYFA1").Range("A65536").End(xlUp).Row
    End With
    CommandButton1.Enabled = False
End Sub

Sub TextBoxSifir()
    If Bak Then
        TextBox1.Value = 0
        TextBox2.Value = 0
        TextBox3.Value = 0
    End If
End Sub

 

[mumugul]

Merhaba,

Cevabınız için teşekkürler...
Eklediğim bu kısa örnek bütünü yansıtmıyor aslında.
Bu sebeple ListBox1_Click içeriğini değiştirmeden nasıl yapabiliriz?

 

[Muzaffer Ali]

Yukarıdaki kodları yeniledim. Tekrar deneyin.

 

[mumugul]

Teşekkürler...