• DİKKAT !

    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 Dosya Yükleme tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Beyza

Yeni Üye
Katılım
9 Haz 2021
Mesajlar
5
Aldığı beğeni
1
Excel V
Office 2007 TR
Konu Sahibi
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

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.

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
Bu bağlantı ziyaretçiler için gizlenmiştir. Görmek için lütfen giriş yapın veya üye olun.
 
Çözüm
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

4. Aşağıdaki Kodu...
Çoklu seçim yaptıktan sonra silme tuşuna kodu eklerek deneyin
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
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
 
Konu Sahibi
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*
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Merhabalar

Örnek dosyanızı paylaşmanız mümkün mü?
 
Doğru dosyayı paylaştığınızdan emin misiniz? Görsel ve dosya bir birinden farklı.
 
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.

4. Aşağıdaki Kodu ekleyerek çoklu seçimi aktif edin.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
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.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Ç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
 
Çözüm
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst