[Yardım]  ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

Verilerinizi listeleyebileceğiniz liste kutusu

ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#1)  Hsn55 » 28 Nis 2021 09:43

Merhabalar;
Ekli dosyada Listbox1 de seçili satırı çift tıklayınca kayıtlar sayfasındaki veriyi silebilir miyiz?. Yardımcı olursanız sevinirim. Saygılarımla
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Hsn55
Yeni Başlamış
 
Kayıt: 07 Şub 2021 06:24
Meslek: Memur
Yaş: 41
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#2)  veyselemre » 29 Nis 2021 13:58

Kod: Tümünü seç
Private Sub ListBox1_Click()

    On Error Resume Next

    If ListBox1.ListCount > 0 And ListBox1.ListIndex <> -1 Then
        sat = ListBox1.ListIndex
        For i = 0 To 50
            Cells(i + 4, 4) = ListBox1.List(sat, i)
        Next i
    End If
    Range("E42") = Range("D43")
    Range("F42") = Range("D44")

End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    sira = ListBox1.ListIndex
    If vbYes = MsgBox(ListBox1.List(sira, 6) & vbCr & "Kişiye Ait Kayıt Silinecektir, Emin misiniz?", _
                      vbYesNo, "Kayıt Silme İşlemi") Then
        sira = ListBox1.List(sira, 51)
        Set SK = Sheets("KAYITLAR")
        SK.Rows(sira).Delete
        al = TextBox1.Text
        TextBox1.Text = "test"
        TextBox1.Text = al
        If ListBox1.ListCount > 0 Then ListBox1.ListIndex = 0
    End If
End Sub

Private Sub TextBox1_Change()
    On Error Resume Next
    Dim SK As Worksheet, Tbl()
    Set SK = Sheets("KAYITLAR")
    son = SK.Cells(Rows.Count, 3).End(3).Row
    If son > 3 Then
        Tbl = SK.Range("B3:AZ" & son).Value
        If ComboBox1.ListCount > 0 And ComboBox1.ListIndex <> -1 Then
            aranan = "*" & UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I")) & "*"
            sutun = ComboBox1.ListIndex + 1
            Dim v()
            For i = 2 To UBound(Tbl)
                If UCase(Replace(Replace(Tbl(i, sutun), "i", "İ"), "ı", "I")) Like aranan Then
                    SAY = SAY + 1
                    ReDim Preserve v(1 To 52, 1 To SAY)
                    v(52, SAY) = i + 2
                    For j = 1 To 51
                        v(j, SAY) = Tbl(i, j)
                    Next j
                End If
            Next i
            If SAY > 0 Then
                ListBox1.Column = v
            Else
                ListBox1.Clear
            End If
        End If
    End If
End Sub

Private Sub Worksheet_Activate()

    On Error Resume Next
    Dim SK As Worksheet
    Set SK = Sheets("KAYITLAR")
    son = SK.Cells(Rows.Count, 3).End(3).Row


    'ListBox1.Clear
    If son > 3 Then
        ComboBox1.Column = SK.[B3:AZ3].Value
        '    ComboBox1.ListIndex = -1
    End If
    Sheets("VERİ GİRİŞİ").ListBox1.Width = 950   'Sayfa Listbox genişilği

End Sub
Kullanıcı avatarı
veyselemre
Site Dostu
 
Kayıt: 28 Nis 2015 17:53
Meslek: SERBEST
Yaş: 107
İleti: 503
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#3)  Hsn55 » 29 Nis 2021 16:41

Veysel Emre bey teşekkür ederim
Kullanıcı avatarı
Hsn55
Yeni Başlamış
 
Kayıt: 07 Şub 2021 06:24
Meslek: Memur
Yaş: 41
İleti: 67
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ordu

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#4)  kmlerg » 09 Oca 2022 17:31

Merhaba Arkadaşlar,
Ekteki dosyada listbox üzerinden kayıt silme işlemi yapmak istiyorum. Ancak forumdaki ve internet üzerinde paylaşılan bir çok kodu denememe rağmen başaramadım. Ekteki dosyada en son uğraştığım kod mevcut. Listbox da veri silinince option boxla seçili olan excel sayfasında gerekli hücrelerin silinmesini istiyorum. Benzer konu varken yeni konu açmak istemediğimden Hsn55 Arakdaşımız konusunun altına yazdım. cevaplarınız ve ilginiz için şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
kmlerg
Yeni Başlamış
 
Adı Soyadı:Kemal ERGUN
Kayıt: 17 Tem 2013 14:37
Konum: KONYA
Meslek: MUHASEBE
Yaş: 46
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya / Karatay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#5)  yusuf43 » 09 Oca 2022 23:12

Kod: Tümünü seç
If OptionButton1 = True Then

If ListBox1.ListIndex < 0 Then MsgBox "SİLİNECEK VERİYİ SEÇİNİZ...", vbOKOnly + vbInformation, "SEÇ": Exit Sub


silme1 = MsgBox("SEÇİLİ FATURA SİLİNECEKTİR...", vbYesNo, "DİKKAT")
If silme1 = vbYes Then

For a = Sheets("Bolez_Palet").Range("A1000000").End(3).Row To 1 Step -1
If Sheets("Bolez_Palet").Cells(a, 1) = ListBox1 Then
Sheets("Bolez_Palet").Rows(a).Delete
End If
Next



End If
End If


Sayın kmlerg bey göndermiş olduğum kod tüm satırı siliyor sana tavsiyem listbox ta gösterdiğin bilgileri aya ayrı sayfalara çek. Senin için veri kaydı daha kolay olur hemde gönderdiğim kodu rahat kullanırsın.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#6)  yusuf43 » 09 Oca 2022 23:26

Sayın kmlerg bey istersen yarın senin programı çok kullanışlı bir halde düzenleyip göndereyim. İstiyorsan vecap yaz ve burayı takip et.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri

İleti#7)  kmlerg » 10 Oca 2022 08:30

yusuf43 yazdı:Sayın kmlerg bey istersen yarın senin programı çok kullanışlı bir halde düzenleyip göndereyim. İstiyorsan vecap yaz ve burayı takip et.

Çok sevinirim. Teşekkür ederim.
Kullanıcı avatarı
kmlerg
Yeni Başlamış
 
Adı Soyadı:Kemal ERGUN
Kayıt: 17 Tem 2013 14:37
Konum: KONYA
Meslek: MUHASEBE
Yaş: 46
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya / Karatay

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#8)  okutkan » 10 Oca 2022 11:12

Hata veren "Removeitem " ile başlayan satırı aşağıdaki kod satırı ile değiştirip deneyin.

Sheets("Bolez_Palet").Rows(satir + 5).EntireRow.Delete
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1519
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#9)  yusuf43 » 10 Oca 2022 14:14

Sayın Kemal ERGUN bey program ektedir. Açıklamaları okuyun eğer kafanıza bir şey takılırsa yeniden yazın. Kolay gelsin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri

İleti#10)  kmlerg » 10 Oca 2022 14:35

yusuf43 yazdı:Sayın Kemal ERGUN bey program ektedir. Açıklamaları okuyun eğer kafanıza bir şey takılırsa yeniden yazın. Kolay gelsin.

Çok teşekkür ederim. Ellerinize sağlık.
Kullanıcı avatarı
kmlerg
Yeni Başlamış
 
Adı Soyadı:Kemal ERGUN
Kayıt: 17 Tem 2013 14:37
Konum: KONYA
Meslek: MUHASEBE
Yaş: 46
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya / Karatay

Cevap: Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri

İleti#11)  kmlerg » 10 Oca 2022 14:45

yusuf43 yazdı:Sayın Kemal ERGUN bey program ektedir. Açıklamaları okuyun eğer kafanıza bir şey takılırsa yeniden yazın. Kolay gelsin.

Öcelikle tekrar teşekkür etmek isterim. programı açınca user form açılmıyor user formu çalıştırdığımda "run time error tür uyuşmazlığı" diye bir hata veriyor. bunu nasıl çözebilirim.
Kullanıcı avatarı
kmlerg
Yeni Başlamış
 
Adı Soyadı:Kemal ERGUN
Kayıt: 17 Tem 2013 14:37
Konum: KONYA
Meslek: MUHASEBE
Yaş: 46
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya / Karatay

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#12)  yusuf43 » 10 Oca 2022 14:56

Evet haklısınız ilk açıldığında ekrana gelmesini unutmuşum onu hallettim ancak hata mesajı neden kaynaklanıyor anlamadım bende hiçbir hata vermiyor.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#13)  yusuf43 » 10 Oca 2022 15:00

Bir değişiklik yaptın son gönderdiğime bir bakın inşallah çalışır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA

Cevap: Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri

İleti#14)  kmlerg » 10 Oca 2022 15:32

yusuf43 yazdı:Bir değişiklik yaptın son gönderdiğime bir bakın inşallah çalışır.

Çok Teşekkür ederim. Elleriniz dert görmesin. gayet güzel olmuş.
Kullanıcı avatarı
kmlerg
Yeni Başlamış
 
Adı Soyadı:Kemal ERGUN
Kayıt: 17 Tem 2013 14:37
Konum: KONYA
Meslek: MUHASEBE
Yaş: 46
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Konya / Karatay

Cevap: ListBox ta Seçili Satırı Çift Tıklayarak Veri Silmek

İleti#15)  yusuf43 » 10 Oca 2022 16:46

Çalıştığına sevindim güle güle kullanın.
Kullanıcı avatarı
yusuf43
Siteye Alışmış
 
Kayıt: 19 May 2021 12:00
Meslek: EV HANIMI
Yaş: 45
İleti: 295
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: KÜTAHYA


Forum ListBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe