Bir listbox'dan diğerine veri atma.

Katılım
25 Ağustos 2005
Mesajlar
569
Excel Vers. ve Dili
Excel 2003 Tr
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.
 
Katılım
25 Ağustos 2005
Mesajlar
569
Excel Vers. ve Dili
Excel 2003 Tr
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.
 
Katılım
25 Ağustos 2005
Mesajlar
569
Excel Vers. ve Dili
Excel 2003 Tr
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.
 
Katılım
25 Ağustos 2005
Mesajlar
569
Excel Vers. ve Dili
Excel 2003 Tr
merhaba arkadaşlar; bu konu hakkında fikri olan arkadaşım yokmu. lütfen fikir belirtirmisiniz. ilginize teşekkür ederim.
 
Katılım
25 Ağustos 2005
Mesajlar
569
Excel Vers. ve Dili
Excel 2003 Tr
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.
 
Üst