Bir listbox'dan diğerine veri atma.

[hikmet]

Merhaba; userform üzerinde iki listbox bulunmakta birinci listboxta başka bir userformda kaydettiğim bilgiler görünmekte. bu listbokta bir satırı tek tıklayıp ekleyeceğim bilgilileri de textboxlar aracılığı ile yazdıktan sonra ikinci listbox'ta gösteriyorum. sorun şu birinci listboxta bir satırda iki adet hücredeki rakamlar eşitlenince kullanıcı o satırı seçse dahi iki hücrenin de eşit olduğunu başka bir satır seçmesi gerektiğini söyleyen bir mesaj versin. bu mümkünmüdür acaba.

 

[hikmet]

merhaba ; aşağıdaki koda nasıl bir kod eklemeliyim ki listbox1 de olan ve hareket adlı sayfadan alınan bilgilerden her satırda q ve r sütununda bulunan hücreler eşitlendiğinde her seferinde o satır inaktik olsun listbox1 de.


Private Sub ListBox1_Click()
With Sheets("TEVTHK").[A65500].End(3)
Range("a7").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
If Range("A8").Value = "" Then
Range("A8").Value = 1
Else
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End If
.Offset(1, 1) = ListBox1.List(ListBox1.ListIndex, 2)
.Offset(1, 2) = ListBox1.List(ListBox1.ListIndex, 1)
.Offset(1, 6) = ListBox1.List(ListBox1.ListIndex, 9)
.Offset(1, 7) = ListBox1.List(ListBox1.ListIndex, 8)
.Offset(1, 8) = ListBox1.List(ListBox1.ListIndex, 11)
.Offset(1, 9) = ListBox1.List(ListBox1.ListIndex, 10) / 1
.Offset(1, 10) = ListBox1.List(ListBox1.ListIndex, 10) / 1 * ListBox1.List(ListBox1.ListIndex, 11)
.Offset(1, 12) = ListBox1.List(ListBox1.ListIndex, 12)


End With
End Sub


bu aslında yukarıdaki sorumun biraz daha açıklamalı hali. umarım açıklayabilmişdir.

 

[hikmet]

merhaba sn hocalarım ve arkadaşlarım;
yukarıdaki soruyu bir de şu şekilde sorayım. listbox'a aldırdığım satırların en sonundaki sütun eğer sıfır ise o satırı listbox'da göstermesin.örneğin 30 satırlık ve 15 sütunluk bir veri listem var ve bu listbox'da görünüyor. verilerimden birinci satırın 15 nci sütundaki veri sıfır ise o satırı komple listboxda göstermesin. bunu nasıl yapabilirim. eğer ile formül kurmaya çalışıyorum ama olmuyor. değerli fikirlerinizi benimle paylaşırmısınız.

 

[hikmet]

merhaba arkadaşlar; bu konu hakkında fikri olan arkadaşım yokmu. lütfen fikir belirtirmisiniz. ilginize teşekkür ederim.

 

[hikmet]

günaydın sn.hocalarım ve arkadaşlarım;

yukarıda bahsettiğim konu ile ilgili kaç gündür uğraşıyorum ama başaramadım. listbox'a aldırdığım satırların son sütünları sıfır ise listbox'da görümesini istemiyorum ama onlar ısrarla görünüyorlar. Lütfen bir fikir verirmisiniz.