listbox seçili satırı listboxtan ve sayfadan silme

[erkan_64]

deneme.xlsm dosyasını indir - download

deneme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

cevaplar için şimdiden tesekkür ederim excel vba yeniyim bir kaç eğitim videosu izleyerek birşeyler yapmayca calıstım ama bir noktada takıldım
depo /malzeme girişi/ toner girişini yaptık
takipler/tonertakip/ menüsünden depodaki toneri çift tıkla seçtik sonra forma aktardıktan sonra depodan seçilen toneri nasıl silebilirim
yani seçilen toner listboxtan ve tonertakip sayfasından nasıl silebilirim

 

[Greenblacksea53]

Dim kacinci As Integer
kacinci = WorksheetFunction.Match(CDbl(txthesapid.Value), Sheets("tonertakip").Range("a1:a1000"), 0)
Worksheets("tonertakip").Select
Worksheets("tonertakip").Range("A" & kacinci).Select

        
           ActiveCell.EntireRow.Delete
 
          
  MsgBox txthesapid.Value & ", veritabanından çıkarılmıştır.", vbInformation, "Deneme"
  frm_tonerhesapla.Hide

Bu ne karışık bişey yapmışsınız, sadeleştirin Exceli yormayın neyse, Listbox'a tıkladığınızda açılan forma buton ekleyin ve butonun Click olayına kodları yapıştırın..

 

[erkan_64]

cevabınız için tesekkürler ustadım çok bi bilgim yok izledeiğim videolara göre kendime uyarladım