Listview satırındaki bir veriyi aktif hücreye aktarmak

[EKREM1661]

Değerli Arkadaşlar; başlıkta ifade edilen konuyu halledemedim. Yani, listview satırına çift tıklayınca o satırda yer alan ismi aktif olan hücreye aktarmam lazım.. Örnek dosya ektedir.

 

[Orion1]

aktif hücreye yazar.Diğer soruyu anlamadım.Hangi sütunda bakılcak temizlenecek hücre?

Private Sub ListView1_DblClick()
ActiveCell.Value = ListView1.SelectedItem.SubItems(1)
End Sub

 

[EKREM1661]

Evren hocam ne kadar teşekkür etsem azdır.. 2-3 gündür bu iş başıma dert oldu..Üstelik halletmem lazım gelen bir iş.. Hocam sayende sorunun biri çözüldü. Diğeri ise örneğe göre Sayfa1 D3:H20 arasında mükkerrerleri temizleyecek, fakat en son eklenen yani aktif seçili olan hücre kalacak..
(Zor olmaz ise aradaki E ve G sütunları devre dışı hariç kalsın.. asıl işlem yapılacak olan, yani ekle ve mükerrerleri sil yapılacak olan tablodaki D-F-H sütunları...)

 

[Orion1]

Buyurun.

Sub MükerreriTemizle()
Dim hcr As Range
Set alan = Sheets("Sayfa1").Range("D3:D20,F3:F20,H3:H20")
For Each hcr In alan
    If WorksheetFunction.CountIf(Range("D3:H20"), hcr) > 1 And hcr.Column = 5 _
            Or hcr.Column = 7 Then
        GoTo atla
        Else
        hcr.ClearContents
atla:
    End If
Next
End Sub

 

[EKREM1661]

Evren hocam..! kodu dbClick olayındaki ekleme kodunun sonuna ilave ettim. Fakat ekleneni de beraber hepsini siliyor, yani listview satırına çift tıklayıp, imlecin bulunduğu hücreye ekliyor ve ardından hepsini siliyor. Eklenen (aktif hücre) kalması lazım..Yoksa kodu yanlış mı kullandım..

 

[Orion1]

Evren hocam..! kodu dbClick olayındaki ekleme kodunun sonuna ilave ettim. Fakat ekleneni de beraber hepsini siliyor, yani listview satırına çift tıklayıp, imlecin bulunduğu hücreye ekliyor ve ardından hepsini siliyor. Eklenen (aktif hücre) kalması lazım..Yoksa kodu yanlış mı kullandım..

evet 4 nolu mesajda verdiğim kodu kaala almayın.o tam istediğinizi vermiyor.İstenmeyen sütunlarıda işin içine alıyor.
Bu konu ile ilgili şimdi aklımda pek bir şey yok.
İyi geceler.

 

[EKREM1661]

Evren bey.. Çok teşekkür ediyorum, ellerin dert görmesin..bununla da yetinirim..hoşça kalınız..