Listbox click eventi hk.

[ruhadam26]

Userformda temizle butonuna bastığımda listboxda ki veriler ve excelde karşılığı olan hücreler(a9,c9,h9-a10,c10,h10....+++a29,c29,h29 (kaç satır veri varsa) )ve (b2-c5-e5-ı4-j4-k4-ı6-j6-k6 ) silinsin. Sadece bu değerler silinip ezxcelin satır sutun genişlikleri ve formülleri aynı şekilde kalacak. veri girişi olan satırlar silinip yeni veri girişine hazır hale gelecek. yardımlarınızı bekliyorum.

 

[Muzaffer Ali]

Merhaba.

Temizle butonuna aşağıdaki kodları kopyalayın.

Private Sub CommandButton4_Click()
    Range("B2, C5, E5, I4, J4, K4, I6, J6, K6") = " "
    Sheets("fatura").Range("A9:k" & [a65536].End(3).Row).ClearContents
    ListBox1.Clear
End Sub

 

[ruhadam26]

Teşekkürler sorun çözüldü aynı dosyada listboxta sectiğim değeri değiştir butonuyla değiştir derken her zaman verimli sonuç alamıyorum arada bir saçmalaıyor aynı hepsinin adını aynı felan yapiyor değiştir butonunun kodlarını kontrol edebilir misiniz bir yerde hata var ama bulamadım stabil çalışmıyor

 

[Muzaffer Ali]

Değiştir butonuna aşağıdaki kodları kopyalayın.

Private Sub CommandButton2_Click()
    If ListBox1.ListIndex = -1 Then
        MsgBox "Seçim yapınız", vbExclamation
        Exit Sub
    End If
    Set s1 = ThisWorkbook.Worksheets("fatura")
    s1.Cells(ListBox1.ListIndex + 9, 1) = TextBox10.Value
    s1.Cells(ListBox1.ListIndex + 9, 3) = ComboBox1.Value
    s1.Cells(ListBox1.ListIndex + 9, 7) = TextBox11.Value
    ListBox1.List = Sheets("fatura").Range("a9:k" & [a65536].End(3).Row).Value 'For refresh listbox
    MsgBox "Bilgiler güncellendi"
End Sub

 

[ruhadam26]

Çok teşekkür ederim

 

[ruhadam26]

hocam son olarak formu ilk açtığımda listboxta 9 tane index yeri var gözüküyot ve 9. satırda 0 değeri gözüküyor değer girmeden hiç endex göstermeyip 0 değerini nasıl kaldırabilirz. veri girişi yaptıkça listboxta sıralansa. muhtemelen listboxın clik eventinde veya userform initilazeden kaynaklı bir şey ama çözemedim

 

[Muzaffer Ali]

Aşağıdaki kodları ilgili yerlere kopyalayın.

Private Sub ListBox1_Click()
    If ListBox1.ListCount = 0 Then Exit Sub
    TextBox10 = ListBox1.Column(0)
    ComboBox1 = ListBox1.Column(2)
    TextBox11 = ListBox1.Column(6)
End Sub

Private Sub UserForm_Initialize()
    Sheets("fatura").Activate
    ListBox1.ColumnWidths = "40;0;260;0;0;0;50;50"        
    ListBox1.ColumnCount = 8                                        
    ListBox1.List = Sheets("fatura").Range("A9:A" & [a65536].End(3).Row).Value
End Sub

 

[ruhadam26]

Form açıldığında listboxa tıkladıgımda debug hatası veriyor hocam. Bir de başlangıçta listboxta ve excel sayfasında veri kaldıysa sadece A SUTUNU nu gösteriyor diğer sütünları göstermiyor temizle dedikten sonra temizliyor ikinci kez tıklayınca hata veriyor en başta temizleye de tıklayınca yine hata veriyor. Dosyanın son hali ektedir. bu fix hataları düzeltebilir miyiz

 

[Muzaffer Ali]

Dosyanız ekte.

 

[ruhadam26]

çok teşekkür ederim efendim