+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü (/konu-listboxlar-arasi-kayit-arama-kopyalama-ve-duzenleme-protokolu.html)
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - hayalibey - 14/10/2020
Zafer Hocam ListBox İşemleri 4.rar adlı dosyayı şimdi inceliyorum. indirdim
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - hayalibey - 14/10/2020
Hocam mükerrer kayıt olmuyor ama txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor. Userformun bendeki orijinal halini buraya yüklüyorum.
(14/10/2020, 19:34)hayalibey yazdı: Hocam mükerrer kayıt olmuyor ama txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor. Userformun bendeki orijinal halini buraya yüklüyorum.
Hocam hatalı ekran görüntülerini sizinle paylaşıyorum. Bende ekteki hatayı veriyor.
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
(14/10/2020, 19:34)hayalibey yazdı: txtAra kutucuğuna tıklar tıklamaz hata mesajı veriyor.Burası sizin kodla alakalıydı yani seçim düğmeleri yani optionbuttonlardan biri seçilmezse hata veriyordu.Heralde ilk eklediğim dosyada onu halletmiştim döngü ile sonrakilere eklemedim.
Atıyorum
İf optionbutton1.value = false then
Msgbox "hata"
Exit sub
End if gibi koşullar ekleyebilirsiniz.
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
Abey son dosyanızdaki txtAra_Change kodda With Sayfa11 yerine With Sayfa1 olacak ilk olarak.
ikinci olarak en üste alttaki kodu eklememişsiniz.Resimdeki gibi ekleyin.
Dim dict As ObjectRE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
3.cü olarak alttaki koduda eklememişsiniz.Bunu en alta ekleyebilirsiniz.
Hafızadan temizlemek için yazdım.
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End SubRE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
5.ci olarakta kodlar Private Sub ListBox1_Change() içine yazılacak Private Sub ListBox1_CLick yerine()
Her neyse üstad dosyayı ekliyorum.
Düzeltme kapatma olayını iptal emişsiniz set dict = nothing kodlarını ana sayfa butonlarına ekledim.