• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü excel vba Listbox çoklu seçim ile sildirme

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
B

Beyza

Yeni Üye
Kullanıcı Bilgileri
Katılım
9 Haz 2021
Mesajlar
5
Aldığı beğeni
1
Excel Versiyonu
Office 2007 TR
Konuyu Başlatan
excel de listbox da olan kayıtları çoklu seçim ile sildirme işlemi nasıl yapılır? listbox_lostfocus özelliği kullanarak bu işlemi nasıl yapabilirim?

görüntüde silinecek çoklu seçim listbox için örnek mevcut

CSS:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

bu kod ile çoklu seçim yaptırıp yazdırıyorum. benzer şekilde çoklu seçim yaptırıp sondan silmeye başlayan formülü nasıl elde edebilirim?

Ekran Görüntüsü (84).png
Ziyaretçiler için gizlenmiş link,görmek için Giriş yap veya üye ol.
 
Çözüm
Suskun
Her zaman uygun olamıyoruz. Üzgünüm.
İşlemlerinizde bazı değişiklikler yapmanız gerekiyor.
1-Öncelikler listbox_lostfocus prosedürünü Kaldırın yada adını xlistbox_lostfocus yaparak iptal edin. Her hangi listbox işlemin de çalışmasın. Eğer bunu yapmazsanız sonraki işlemlerimizde hatalı sonuç alırız. Zaten işlemlerde lostfocus'a gerek kalmayacak.
2.ListBox DblClick prosedurundeki Combobox Listbox olarak düzeltildi Tek kayıt silme işlemi yapıyor.
3. Private Sub Worksheet_Activate() prosedürüne aşağıdaki kodları ekleyin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

4. Aşağıdaki Kodu...
Tarihe göre sırala Oylara göre sırala
Çoklu seçim yaptıktan sonra silme tuşuna kodu eklerek deneyin
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
fakat bu işlemi listbox_lostfocus komutu ile yapmam gerekiyor. onun için bir yol var mıdır? Bir de listbox a çektiğim yerdeki verilerin de silinmesi gerekiyor aynı zamanda. veriler müşteriler sayfasında A-C arasında 2. hücreden başlıyor, bir de ürünler için de ürünler sayfasında aynı şekilde A-C arasında 2. hücrreden itibaren. Aşağıdaki gibi ilk hücre kalmalı 2. hücreden silinmeye başlamalı. Bunları listbox_lostfocus komutu ile nasıl yapabiliriz?
Bayi KoduBayi AdıBayi Adresi
Ank01Ankara AnabayiAnkara
Trb01trabzon AnabayiTrabzon
Brs01Bursa AnabayiBursa
Ant01Antalya AnabayiAntalya
Dzc01Düzce AnabayiDüzce

Ürünler KodlarıÜrün AdıDepo Miktarı
URN1Radyo35
URN4telefon25
URN5Ütü20
 
Olumlu oy 0 Negatif oyla
Aşağıdaki şekilde komut butonu ile silme yaptırıyorum ama listbox_lostfocus başlığı ile bunu yapmam gerek nasıl olabilir? Private Sub Listbox1_LostFocus() ile çoklu seçim yaptırıp aynı kodun devamında seçilenleri sildirmem gerekiyor. Yani kontrol tuşu ile listbox dan çoklu seçm yaptırıp listbax kutusu dışında bir yere tıklayınca silinmesi gerek*
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
ekte paylaşıyorum
 

Ekli dosyalar

  • örnek dosya.xlsm
    29.4 KB · Gösterim: 10
Olumlu oy 0 Negatif oyla
Doğru dosyayı paylaştığınızdan emin misiniz? Görsel ve dosya bir birinden farklı.
 
Olumlu oy 0 Negatif oyla
karışmış evet
 

Ekli dosyalar

  • ornek.xlsm
    79.2 KB · Gösterim: 9
Olumlu oy 0 Negatif oyla
Her zaman uygun olamıyoruz. Üzgünüm.
İşlemlerinizde bazı değişiklikler yapmanız gerekiyor.
1-Öncelikler listbox_lostfocus prosedürünü Kaldırın yada adını xlistbox_lostfocus yaparak iptal edin. Her hangi listbox işlemin de çalışmasın. Eğer bunu yapmazsanız sonraki işlemlerimizde hatalı sonuç alırız. Zaten işlemlerde lostfocus'a gerek kalmayacak.
2.ListBox DblClick prosedurundeki Combobox Listbox olarak düzeltildi Tek kayıt silme işlemi yapıyor.
3. Private Sub Worksheet_Activate() prosedürüne aşağıdaki kodları ekleyin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

4. Aşağıdaki Kodu ekleyerek çoklu seçimi aktif edin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
5. Ve son olarak CommandButton5_Click() prodesürünü aşağıdaki şekilde düzenleyin. Evet Hayırlı basit bir silme onayı eklendi.
For i = ListBox1.ListCount - 1 To 0 Step -1 satırınıda çoklu silme işlemi sondan başa doğru yapılır (yani 1 ,3,5 nolu kayıtlar 5,3,1 sırasında silinir), listbox seçimleri iptal olmadan devam ettiği için baştan sona doğru silmede olduğu gibi GotFocus ,LostFocus işlemlerine gerek kalmıyor.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Çoklu kayıt seçerek Seçili verileri sil tuşuna basın.
Burdaki işlemler Kodların çalışırlığını göstermek amacıyla düzenlendi. Siz bazı kodlarınız pasif edilmiş olabilir. Düzenleyiniz.

Kolay gelsin
 

Ekli dosyalar

  • ornek1 Sskn.xlsm
    106.7 KB · Gösterim: 23
Olumlu oy 1 Negatif oyla
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst