+- 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ü - feraz - 14/10/2020
Rica ederim.
Mükerrer kontrolü için önceki kodlar çalışır ve denemem lakin yapılır kesin.
Aktar sayfasını aslında ileride çeltikleri ayarlamak için eklemiştim yani arama ve mükerrer için sayfaya gerek yok.
Bugün hem sayfalı hemde sayfasız olarak denerim akşam.
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
Aslında aktar adındaki sayfa ile kaydetme kodlarının alakası yok.
Hız ve sıralama için basit olmuştu ve dediğim gibi çeltik içinde.
Önceki gün uğraşırken veriler hafızaya aldıramamıştım global yada public gibi uğraşırken.İşi çeltik olayı karıştırıyor yoksa diperleri zor değil.
Her neyse üstad bugün yeterince zamanım olur akşama dönüş yaparım o zamana kadar çözüm gelmezse.
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - hayalibey - 14/10/2020
Çok teşekkür ederim Hocam
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
Verdiğim kodu denedim çalışıyor resimdeki boyalı yerler gibi olacak.
Ayrıca alttaki gibi ; kullanılmalı , yerine.Siz virgül kullanmışsınız.
Kodu ilk eklediğiniz dosyada denedim.
ListBox1.ColumnWidths = "20;50;100;100,100"
ListBox2.ColumnWidths = "20;50;100;100;100"RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
Birşeyler yaptım kolaylık olsun diyede tklama adında sayfa ekledim.
Deneyin işlemler doğruysa o sayfayıda silerim.
RE: Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü - feraz - 14/10/2020
Sanırım bu şekilde sayfasızda oldu.
Listbox2 için kodları eklemiştim.Şimdi diğer eklediğim kodları yazayım.
Kodların en üstüne
Dim dict As ObjectSonra Private Sub TxtAra_Change() kodunada alttaki kodu ekledim.
For i = 0 To ListBox1.ListCount - 1
If dict.exists(ListBox1.List(i)) Then
ListBox1.Selected(i) = True
End If
NextPrivate Sub ListBox1_Change()
Dim son As Long, aranan As Long, indexNo As Long
indexNo = ListBox1.ListIndex
If indexNo > 0 Then
aranan = ListBox1.List(indexNo)
If dict.exists(aranan) = False Then
If ListBox1.Selected(indexNo) = True Then
dict.Add aranan, 0
End If
Else
If ListBox1.Selected(indexNo) = False Then dict.Remove (aranan)
End If
End If
End SubPrivate Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End Sub