Listbox kayıt silme

[fatihbozkurt58]

Ekte yolladığım çalışmada Userform1 üzerinde bulunan listboxtaki verilere çift tıkladığımda düzeltme yada kayıt silme işlemi yapıyorum. Userform1 açıldığında listboxtan tıklayarak bahsetiğim bu işlemleri sorunsuz yapabiliyorum. Ancak Userform1 üzerindeki comboboxlardan seçim yaparak sıralama yaptığımda listboxta gelen verileri çift tıklama yaptığımda kayıt düzeltme ve silme işlemleri gerçekleşmiyor. Yardımlarınızı rica ediyorum.

 

[forever215]

Merhaba;
Değişikliği Yanlış Yapmasının sebebi şudur;
Siz süzme işlemi yaptıktan sonra ListBox'ın listindexini alıyorsunuz fakat excel sayfasında bu index aynı satıra denk gelmiyor.Kodlarınızı buna göre düzenlerseniz sorun ortadan kalkar.

 

[fatihbozkurt58]

Yardımınız için teşekkür ediyorum ancak yeni başlayan biri olarak hangi kodları ne şekilde düzenlemem gerektiği konusunda bilgim yok bu konuda desteğinizi rica ediyorum

 

[forever215]

UserForm3 te CommandButton3 ün kodlarını şöyle değiştirip denermisiniz;

If TextBox4.Value = "" Then
MsgBox "Lütfen eğitim tarihini seçiniz!"
TextBox4.SetFocus
Exit Sub
End If
If ComboBox4.Value = "" Then
MsgBox "Lütfen listeden eğitim saatini seçiniz!"
ComboBox4.SetFocus
Exit Sub
End If
Worksheets("Veri").Select
Dim sonsat As Range
For i = 2 To Range("A65536").End(3).Row
For j = 0 To UserForm1.ListBox1.ListCount - 1
If Range("B" & i) = UserForm1.ListBox1.List(j) Then
Range("G" & i) = TextBox4.Text
Range("H" & i) = ComboBox4.Text
End If
Next j
Next i
MsgBox "DEĞİŞİKLİK YAPILMIŞTIR"
Unload Me
Unload UserForm1
UserForm1.Show

 

[fatihbozkurt58]

Verdiğiniz kodu denedim olmadı

 

[forever215]

kayıt silme işlemine dikkat etmemişim o yüzden olabilir en kısa zamanda dönüş yapacağım

 

[Tarkan VURAL]

Sanıyorum bu konu çözüldü. Değil mi Fatih bey ?
Bknz: ListBox'ta Seçilen Satırı Silme
Arkadaşların değerli zamanlarını almamak gerek. Çözüldüğüne dair bilgi vermek gerek.

 

[fatihbozkurt58]

Problem çözülmüştür yardımcı olan tüm arkadaşlara gönülden teşekkür ediyorum. İyi çalışmalar.