Listviewde bul ve sil

[EmirhanG]

hayırlı akşamlar arkadaşlar..

Arkadaşlar.. Hazırladığım bir userforma bir adet listview ve bir buton ekledim ve listviewe sayfa1 den 6 kolonluk veriler alınmakta. Yapmak istediğim botun yardımıyla listviewde seçili satırdaki verilerden 1.kolondaki veriyi sayfa2 de buldurup bulunan verinin sağındaki yani 2.kolondaki veri ,listviewdeki 2.kolondaki veriyle uyuşuyorsa satırı kople sildirmek istiyorum...yardımcı olacak arkadaşlara şimdidenteşekürler....

 

[Orion1]

Böyle yapmayın.
Mükerrer kayıtların olması durumunda hatalı sonuçlar alabilirsiniz.Listview'e bir kolon dağa ekleyin Listview'e verileri alırken eklediğiniz verilerin satır numarasını bu kolona atın.Böylece silmek istediğiniz bir veriyi listwiew direk satır numarasını alarak doğru bir şekilde silebilirsiniz.
Benden söylemesi.
PÜF noktası.

 

[EmirhanG]

Böyle yapmayın.
Mükerrer kayıtların olması durumunda hatalı sonuçlar alabilirsiniz.Listview'e bir kolon dağa ekleyin Listview'e verileri alırken eklediğiniz verilerin satır numarasını bu kolona atın.Böylece silmek istediğiniz bir veriyi listwiew direk satır numarasını alarak doğru bir şekilde silebilirsiniz.
Benden söylemesi.
PÜF noktası.

İlginize teşekürler Evren hocam, 1. kolonda her işleme özgü birnumara verdirmekteyim, yani mükerreri imkansız en azından benim öyle sandığım, işlem numarası verilmekte. 2.kolonun uyuşmasını istemem birnevi sağlama yapmak gibi birşey...Asıl istediğim işlem numarasını yani 1. kolondaki numarayı sayfa2 de buldurup kopla satırı sildirmek....

 

[Orion1]

Listview'de ilk kolondaki değeri A sütununda arıyor.Bulduğu satırı siliyor.
Aşağıdaki kodları deneyiniz.

Dim deg, k As Range
deg = ListView1.SelectedItem.ListSubItems.Item(1).Value
If deg = "" Then Exit Sub
Set k = Range("A1:A65536").Find(deg, , xlValues, xlWhole)
If Not k Is Nothing Then Rows(k.Row).Delete

 

[EmirhanG]

deg = ListView1.SelectedItem.ListSubItems.Item(1).Value

hocam bu satırda hata veriyor....

 

[Orion1]

deg = ListView1.SelectedItem.ListSubItems.Item(1).Value

hocam bu satırda hata veriyor....

Önce listvew'den bir satır seçmelisiniz.

 

[Orion1]

Aşağıdaki gibi deneyiniz.

deg = ListView1.SelectedItem.ListSubItems.Item(1).Text

 

[EmirhanG]

hocam teşekürler.....

 

[Orion1]

hocam teşekürler.....

Rica ederim.