teknikyapı
Altın Üye
- Katılım
- 30 Nisan 2007
- Mesajlar
- 396
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 13-01-2026
Merhaba.
Daha önce aşağıdaki kodlar ile sorunu çözmeye çalıştım.Fakat son kaydedilen satır numarası 7777 ise listviewde 77 nolu satırı işaretliyor.Yani textboxta yazan numaranın tam karşılığı olan veriyi işaretlemiyor.TextBox1.Text, de LookAt:=xlWhole özelliğini kullanamadım.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi çalışmalar.
'SON KAYDEDİLEN VERİNİN OLDUĞU SATIRA GİDER..LİSTVİEWDE
Dim lvwItm As ListItem
Set lvwItm = ListView1.FindItem(TextBox1.Value, , , lvwPartial)
n = lvwItm.Index
ListView1.ListItems
.Selected = True
ListView1.SelectedItem.EnsureVisible
ListView1.DropHighlight = ListView1.ListItems![Thumbs down (n) (n)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
Daha önce aşağıdaki kodlar ile sorunu çözmeye çalıştım.Fakat son kaydedilen satır numarası 7777 ise listviewde 77 nolu satırı işaretliyor.Yani textboxta yazan numaranın tam karşılığı olan veriyi işaretlemiyor.TextBox1.Text, de LookAt:=xlWhole özelliğini kullanamadım.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.İyi çalışmalar.
'SON KAYDEDİLEN VERİNİN OLDUĞU SATIRA GİDER..LİSTVİEWDE
Dim lvwItm As ListItem
Set lvwItm = ListView1.FindItem(TextBox1.Value, , , lvwPartial)
n = lvwItm.Index
ListView1.ListItems
ListView1.SelectedItem.EnsureVisible
ListView1.DropHighlight = ListView1.ListItems