Tüm Sayfalardan tek tek silmek

[BYSERTTAS]

Herkese İyi Günler..
Öncelikle Vba konusunda çok yeniyim. ögrenmeye çalışıyorum. Sorularım çok basit gelebilir. lütfen affedin
Sorumu Açıklmaya çalışayım.
5 sayfadan oluşan bir dosyam var. Kayıt girereken Her kayıt için KayıtId oluşturdum. Kayıtları girdikten sonra Ana Sayfadan ListBox a aldım. şimdi Silmem gereken bir kayıt olduğunda ListBox satırını seçtiğimde ListBoxın 48. sutunuda bulunan KayıtId ile bu kaydı tüm sayfalardan silmek istiyorum. özetle ListBox satırnı seçtiğimde KayıtId Numarasını Msgbox a atıp oradan ...... KayıtId numaralı Kayıtlar Tüm Sayfalardan silinsinmi diye soracak. cevap evet ise her sayfada arama yapacak bulduğunda silecek(bulamama ihtimalide var) bulamadığı sayfaları es geçeçek sonunda da .. numaralı kayıt silindi mesajını verecek..
inşallah anlatabilmişimdir.

 

[BYSERTTAS]

Yardım edecek birileri yokmu acaba

 

[Muzaffer Ali]

Merhaba.
Dosyanız ekte deneyiniz.

Silme işlemine dahil olmayacak olan sayfaları Case "Sayfa1", "Ürünler" satırı ile belirttim. ID aranıp, satır silinme işlemi yapılmaması gereken başka sayfa varsa onların da isimlerini bu şekilde aralarına virgül ekleyerek bu satıra ekleyiniz.

 

[BYSERTTAS]

Muzaffer Bey Çok Teşekkür ederim.
tam İstediğim gibi Olmuş Ellerinize Sağlık.
Kücük Bir Istırhamım daha olacak Müsit olursanız Birde Aynı İşlemi Değiştirme yapabilmek için Uygulaya bilirmiyiz.
Şöyleki Hatalı bir Kayıt Olduğunda mesela Gün sayısını hatalı işaretledik diyelim 10 gün olması gerekirken 11 gün işaretlenmiş bunu değiştirme şansımız varmı. aksi halde o kaydı komple silip yeniden giriyorum. Bunuda yaparsanız çok makbule geçecek. Allah Razı Olsun. şimdiden teşekkürler