ListeBoxta süzülen veriye ait bilgilerin, TexBoxta hatasız gösterilmesi

[omeryılmaz]

Saygı değer hocalarım

Sizlerden alıntı yaparak oluşturduğum Evrak kayıt ve takip programında İki tarih arasındaki mevcut evraklar kritere göre listelenmektedir.
Benim isteğim;Süzülen evraklara ait bilgilerin içeriğini ListeBoxtan seçtiğimde sıralama hatası yapmadan içeriğini Label ve Texboxta görmek....


Tarihe göre süzdükten sonra Listeboxta 4. sıradaki veriye tıklandığımda 1. sıradaki yazı özü içeriği görünmektedir...

Yardımlarınız için şimdiden şükranlarımı sunuyorum...

 

[halit3]

ben bir çözüm buldum ama bir dene birtane listbox4 nesnesi ekle ve bunu gizle görünmesin kodlarını aşağıdakikodlarla değiştir

Private Sub ListBox3_Click()
ListBox4 = ListBox3
Label387 = ListBox4.List(ListBox4.ListIndex, 0) & ListBox4.List(ListBox4.ListIndex, 1) & ListBox4.List(ListBox4.ListIndex, 2)
TextBox259 = ListBox4.List(ListBox4.ListIndex, 2)
End Sub


Private Sub listele_Click()
On Error Resume Next
Sheets("Sayfa1").Activate
Dim Tarih, cins, i, r
If TextBox4.Value = "" Then
MsgBox ("İlk Tarihi Giriniz")
Exit Sub
Else
End If
If TextBox5.Value = "" Then
MsgBox ("Son Tarihi Giriniz")
Exit Sub
Else
End If
ListBox3.Clear
ListBox4.Clear
For Each Tarih In Sheets("Sayfa1").Range("f2:f65000")
If Tarih = "" Then GoTo son
cins = Tarih.Offset(0, -2)
On Error Resume Next
r = r + 1
ListBox4.AddItem
ListBox4.Column(0, r - 1) = Format(Tarih, "dd.mm.yyyy")
ListBox4.Column(1, r - 1) = Tarih.Offset(0, 1)
ListBox4.Column(2, r - 1) = Tarih.Offset(0, -1)
ListBox4.Column(3, r - 1) = Tarih.Offset(0, -3)

If CDate(Tarih) >= CDate(TextBox4) And CDate(Tarih) <= CDate(TextBox5) And cins = TextBox3 Then
i = i + 1
ListBox3.AddItem
ListBox3.Column(0, i - 1) = Format(Tarih, "dd.mm.yyyy")
ListBox3.Column(1, i - 1) = Tarih.Offset(0, 1)
ListBox3.Column(2, i - 1) = Tarih.Offset(0, -1)
ListBox3.Column(3, i - 1) = Tarih.Offset(0, -3)
End If
Next
son:
ListBox3.ColumnWidths = "55;65;120;70"
End Sub

 

[omeryılmaz]

Listeboxta süzülen verinin içeriğini Texboxta görme

Halit hocam emeğine sağlık

Mesajda Dediğin gibi uyguladım

Ancak; Yine sıralama ve bilgi hataları mevcut

ListBoxta süzülen veri TexBoxla eşleşmiyor....

TexBox'a ("I") sütununda kayıtlı yazının özü içeriğini almam gerekli.....
Labele İse = ("C") kayıt Nolu ("F") tarihli ("G") 'na ait ("E") Konulu evrak ("Q") tarihinde ("S")

Kısaca :
Label387 = 010.05 /44 Kayıt Nolu 07.08.2009 tarihli Sağlık Grup Başkanlığı na ait, Hepatit B Aşı Uygulaması. Konulu evrak 05.08.2009 tarihinde Cevaplandırıldı.

TextBox259 = İlgi yazı gereği, Tabipliğimizin ETF ve Poliklinik kayıtlarında yapılan tüm araştırmalara rağmen,..........................

 

[halit3]

textbox nesnesine ve label nesnesine ait bilgi hangi sutundan gelecektir

birde listele komut düğmesine

ListBox3.Clear

bundan sonra

ListBox4.Clear

bunuda koy

 

[halit3]

böylede yapabilirsin ben ı sutunundan aldırdım veriyi sen kendine göre hangi sutundan veri alacaksan değiştir

TextBox259 = Cells(ListBox4.ListIndex + 2, "I")

 

[halit3]

Private Sub ListBox3_Click()
ListBox4 = ListBox3
sat = ListBox4.ListIndex + 2
deg1 = Cells(sat, "C") & " "
deg2 = Cells(sat, "F") & " "
deg3 = Cells(sat, "G") & " "
deg4 = Cells(sat, "E") & " "
deg5 = Cells(sat, "Q") & " "
deg6 = Cells(sat, "S") & " "
Label387 = deg1 & deg2 & deg3 & deg4 & deg5 & deg6
TextBox259 = Cells(sat, "I")
End Sub

 

[halit3]

Private Sub ListBox3_Click()
ListBox4 = ListBox3
sat = ListBox4.ListIndex + 2
deg1 = Cells(sat, "C") & " "
deg2 = Cells(sat, "F") & " "
deg3 = Cells(sat, "G") & " "
deg4 = Cells(sat, "E") & " "
deg5 = Cells(sat, "Q") & " "
deg6 = Cells(sat, "S") & " "
Label387 = deg1 & deg2 & deg3 & deg4 & deg5 & deg6
TextBox259 = Cells(sat, "I")
End Sub

 

[omeryılmaz]

Hocam ListBox3 ve ListBox4 eşleşmiyor.

ListBox3 teki ilk baştaki bilgiler doğru geliyor aşağı ilerledikce 4. sıradan sonra bilgiler Label ve TexBoxa hatalı geliyor.

 

[halit3]

birde böyle denermisin

Private Sub ListBox3_Click()
For i = 2 To Cells(65536, "a").End(3).Row
If ListBox3.List(ListBox3.ListIndex, 3) = Cells(i, "C") Then
deg1 = Cells(i, "C") & " "
deg2 = Cells(i, "F") & " "
deg3 = Cells(i, "G") & " "
deg4 = Cells(i, "E") & " "
deg5 = Cells(i, "Q") & " "
deg6 = Cells(i, "S") & " "
deg7 = Cells(i, "I") & " "
Label387 = deg1 & deg2 & deg3 & deg4 & deg5 & deg6
TextBox259 = deg7
End If
Next
End Sub

 

[omeryılmaz]

Emeğine Yüreğine sağlık Şükranlarımı sunuyorum Hocam...