Hücreye tıkladığımda "ListBox1" görünsün

[imdatsaral]

Merhaba Arkadaşlar

brain arkadaşımızın göndermiş olduğu "ornek2" adlı excel dosyasındaki çalışma benim aradığım türden. Ek olarak istediğim sadece c2 değil c sütünu için yani C1, C2, C3, ....... CX hücrelerinden birine tıkladığımda "ListBox1" görünsün

 

[Tarkan VURAL]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = "3" Then
        ListBox1.Visible = True
    Else
        ListBox1.Visible = False
    End If
End Sub

 

[imdatsaral]

sayın Tarkan VURAL,
İlginiz için teşekkür ederim. "ListBox1" seçtiğimde sadece c2 hücresine yazıyor. Aktif olan hücreye yazdırmak mümkünmü? "ListBox1/özellikler/LinkedCell karşısında C2 yazılı bunu Aktif olan hücre yapılabilinirmi.

 

[Tarkan VURAL]

Private Sub ListBox1_Click()
    ActiveCell = ListBox1
End Sub

Özelliklerden LinkedCell kısmını temizlemeyi unutmayın.

 

[imdatsaral]

Teşekkür ederim istediğim gibi oldu. Sağolasın.

 

[Tarkan VURAL]

Rica ederim, iyi çalışmalar.