Listboxtan arama sonucu verinin silinmesi

[vBlue]

Listboxtan arama sonucu ilgili veriyi buluyorum. Çift tıklayarak ilgili textbox ve comboboxlara veriyi gönderdikten sonra "sil" dediğimde veri silinmiyor ya da başka bir veri siliniyor. Ayrıca ilgili sıra no da silinmiş oluyor.

Listboxtan arama sonucu olsun veya aramadan direk listboxa çift tıklama sonucu verilerin bulunması ile "sil" dediğimde sadece o veri silinmeli ve sıra no da ona göre ayarlanabilmeli.

Böyle bir ayarlama yapılabilir mi?

 

[asi_kral]

Listboxtan arama sonucu ilgili veriyi buluyorum. Çift tıklayarak ilgili textbox ve comboboxlara veriyi gönderdikten sonra "sil" dediğimde veri silinmiyor ya da başka bir veri siliniyor. Ayrıca ilgili sıra no da silinmiş oluyor.

Listboxtan arama sonucu olsun veya aramadan direk listboxa çift tıklama sonucu verilerin bulunması ile "sil" dediğimde sadece o veri silinmeli ve sıra no da ona göre ayarlanabilmeli.

Böyle bir ayarlama yapılabilir mi?

Merhaba
Userform'daki Commandbutton1'deki kodu bununla değiştirip deneyin.

Private Sub CommandButton1_Click()
'Konu       :   Listbox'ta Seçilen Veriyi Silme
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
'Not        :   Kodda Düzenleme yapılmıştır.
sor = MsgBox("Seçtiğiniz Veriyi SİLMEK İstediğinizden Emin Misiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Sheets("data").Select
sat = WorksheetFunction.Match(ListBox1, [COLOR="Red"]Range("B:B")[/COLOR], 0)
Range("A" & sat).Interior.ColorIndex = 0
Range("A" & sat & ":G" & sat).Delete
Range("A2") = 1
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
UserForm_Initialize
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
End Sub

 

[vBlue]

İlginiz için teşekkürler "asi_kral_1967"!

Kodlar sayesinde veriyi arayıp bularak veya direk seçerek silebiliyoruz. Ancak verilerin sıra numarası da değişmiş oluyor. örneğin 3 tane veri var diyelim. 2. veriyi siilince sıralama 1, 3 diye gidiyor. sıralamayı da düzeltmek mümkün müdür?

Bir de yazdığınız kodlarda "sat = WorksheetFunction.Match(ListBox1, Range("B:B"), 0)" kodu var.Buradaki B:B adından arama sonucu silme anlamına geliyor. yani örneğin tc sine göre arasaydık o zaman silmez miydi?

 

[asi_kral]

İlginiz için teşekkürler "asi_kral_1967"!

Kodlar sayesinde veriyi arayıp bularak veya direk seçerek silebiliyoruz. Ancak verilerin sıra numarası da değişmiş oluyor. örneğin 3 tane veri var diyelim. 2. veriyi siilince sıralama 1, 3 diye gidiyor. sıralamayı da düzeltmek mümkün müdür?

Bir de yazdığınız kodlarda "sat = WorksheetFunction.Match(ListBox1, Range("B:B"), 0)" kodu var.Buradaki B:B adından arama sonucu silme anlamına geliyor. yani örneğin tc sine göre arasaydık o zaman silmez miydi?

Üstteki kodu güncelledim.
Kırmızı boyalı olan yer arama yaptığı sütundur. Bilginize

 

[vBlue]

Çok başarılı.
Çok teşekkür ederim.
Sanırım TC'ye göre arama koyduğumda sil için başka bir sil combobox'ı tanımlamam gerekecek.

 

[asi_kral]

Çok başarılı.
Çok teşekkür ederim.
Sanırım TC'ye göre arama koyduğumda sil için başka bir sil combobox'ı tanımlamam gerekecek.

Kolay Gelsin.

 

[erkanselek]

Merhaba
Userform'daki Commandbutton1'deki kodu bununla değiştirip deneyin.

Private Sub CommandButton1_Click()
'Konu       :   Listbox'ta Seçilen Veriyi Silme
'Mail       :   m.batu.1967@gmail.com
'Coder By   :   asi_kral_1967
'Not        :   Kodda Düzenleme yapılmıştır.
sor = MsgBox("Seçtiğiniz Veriyi SİLMEK İstediğinizden Emin Misiniz?", vbYesNo)
If sor = vbNo Then Exit Sub
Sheets("data").Select
sat = WorksheetFunction.Match(ListBox1, [COLOR="Red"]Range("B:B")[/COLOR], 0)
Range("A" & sat).Interior.ColorIndex = 0
Range("A" & sat & ":G" & sat).Delete
Range("A2") = 1
Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, step:=1, Trend:=False
UserForm_Initialize
MsgBox "SEÇİLEN VERİ SİLİNMİŞTİR"
End Sub

Asi kral hocam bu durumu listviev de nasıl yapabiliriz

 

[asi_kral]

Asi kral hocam bu durumu listviev de nasıl yapabiliriz

Lütfen yeni konu açarak sorunuzu sorunuz.