listbox mükerrer

[memduh]

sevgili arkadaşlar. ekteki dosyada textboxla listbox1re veri alıyorum. (mükerrerleri teke indirerek). Listbox1re isim üzerine tıkladığım zaman o isme ait B sutunudan mürekkerleri tek olarak alacak şekilde verileri alacak.Saygılar.

 

[Levent Menteşoğlu]

Aşağıdaki kodu listbox1 e kopyalayın. Listbox1 deki veriye çift tıkladığınızda çalışacaktır.

[vb:1:c48e30c225]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 1 To [a65536].End(3).Row
If Cells(a, "a") = ListBox1 Then
Cells(a, "z") = Cells(a, "a") & Cells(a, "b")
say = WorksheetFunction.CountIf(Range("z1:z" & a), Cells(a, "z"))
If say = 1 Then ListBox2.AddItem Cells(a, "b")
End If
Next
Columns("z").ClearContents
End Sub
[/vb:1:c48e30c225]

 

[memduh]

Sayın leventm Bey. Cevabınız için teşekkürler. Yalnız bir sorun var. tarihleri alırken 05.10.2006 alması gerekirken 10/05/2006 olarak alıyor. Birde textboxı silince listbox2 yi de boşaltabilirmiyiz. Saygılar.

 

[Levent Menteşoğlu]

Kodu aşağıdaki ile değiştirin.

[vb:1:825ef41c57]Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
For a = 1 To [a65536].End(3).Row
If Cells(a, "a") = ListBox1 Then
Cells(a, "z") = Cells(a, "a") & Cells(a, "b")
say = WorksheetFunction.CountIf(Range("z1:z" & a), Cells(a, "z"))
If say = 1 Then ListBox2.AddItem format(Cells(a, "b"),"dd.mm.yyyy")
End If
Next
Columns("z").ClearContents
End Sub
[/vb:1:825ef41c57]

İkinci sorunuz içinte textboxun change olayına aşağıdaki satırı yazın.

[vb:1:825ef41c57]if textbox1="" then listbox2.clear[/vb:1:825ef41c57]

 

[memduh]

Teşekkür ederim leventm bey.