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.
Listboxlar Arası Kayıt Arama, Kopyalama Ve Düzenleme Protokolü
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.
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.
Çok teşekkür ederim Hocam
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.
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"
Birşeyler yaptım kolaylık olsun diyede tklama adında sayfa ekledim.
Deneyin işlemler doğruysa o sayfayıda silerim.
Deneyin işlemler doğruysa o sayfayıda silerim.
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
Sonra Private Sub TxtAra_Change() kodunada alttaki kodu ekledim.
Listbox2 için kodları eklemiştim.Şimdi diğer eklediğim kodları yazayım.
Kodların en üstüne
Dim dict As Object
ekledim.Sonra 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
Next
Ve diğer kodlarda altta.Private 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 Sub
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Set dict = Nothing
End Sub
Konuyu Okuyanlar: 1 Ziyaretçi