+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listboxdan Veri Silme (/konu-listboxdan-veri-silme.html)
Listboxdan Veri Silme - fenerli6774 - 19/12/2023
İyi akşamlar kolay gelsin. Aşağıdaki listbox döngüsü doğrumu dur? Doğru ise şartı sağlayan ilgili listbox satırını listboxtan nasıl silebilirim. Çeşitli silme kodlarını denedim. ama hep hata verdi. yardımcı olursanız memnun olurum. kolay gelsin. iyi çalışmalar... (
For i = 0 To Me.listbox1.ListCount - 1
If Me.listbox1.List(i, 0) = textbox1 Then
(ilgili listbox satırının silinmesini istiyorum)
End if
Next i
Sorun Yaşadığım Kodlarımın orjinali şu şekilde
For i = Me.lstGkAidat.ListCount - 1 To 0 Step -1
If Me.lstGkAidat.List(i, 0) = CDbl(Me.txtGkYıl) and Me.lstGkAidat.List(i, 1) = acs.Cells(1, a) and Me.lstGkAidat.List(i, 2) = siteh.Offset(0, 9) Then
If Me.lstGkAidat.List(i, 3) = CDbl(siteh.Offset(0, 10)) and CDbl(Me.lstGkAidat.List(i, 4)) = CDbl(siteh.Offset(0, 5)) Then
(Listboxda eşleşen satırı silme kodu)
End If
End If
Next i
RE: Listboxdan Veri Silme - feraz - 20/12/2023
Me.lstGkAidat.RemoveItem i
Merhaba.Yukardaki mantık olacak hata yapmadıysam.
RE: Listboxdan Veri Silme - fenerli6774 - 20/12/2023
(20/12/2023, 00:16)feraz yazdı: Me.lstGkAidat.RemoveItem iTeşekkür ederim ilginiz için.
Merhaba.Yukardaki mantık olacak hata yapmadıysam.
İlk Yazdığım örnekteki döngüde döngü başladığında (i=0 iken) hata veriyor.
"Unspecified error"
RE: Listboxdan Veri Silme - feraz - 20/12/2023
Rica ederim,mantıken sondan başa sildirmeniniz gerek aynen sayfadada sildirirken olduğu gibi.
Ayrıca dim i as long gibi tanımlayın eğer byte tanımladıysanızda hata verebilir.
RE: Listboxdan Veri Silme - feraz - 20/12/2023
Döngü başına yada öncesine alttaki kodu ekleyin.
Kod:
If Me.lstGkAidat.ListCount = 0 Then Exit SubRE: Listboxdan Veri Silme - feraz - 02/01/2024
Sayın fenerli madem konunuza mesaj yazmayacaksınız neden boşuna yoruyorsunuz insanları.