açılır sütunda yardım

[ariftezer]

"T" Sütununda hücre seçildiği zaman açılır kutu işareti çıkmakta ,Liste işarete tıkladığımızda açılmakta.
Hücrenin seçildiği anda listenin kendiliğinden açılmasını istiyorum, yardımcı olursanız sevinirim.Şimdiden teşekkür ediyorum.
"Sayfa 1" de örnek bir yazılım fakat onu uyarlayamadım....

 

[AS3434]

Sayın ariftezer

Kodu şöyle revize edin. Bende anvirüs programı çalışmasını engelliyor.
Sıhhatli çalışıp çalışmadığını bilmiyorum.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [t:t]) Is Nothing Then Exit Sub
    Target.Cells.Select
    SendKeys "%{down}"
End Sub

 

[ariftezer]

TeŞekkÜrler Saolun Kolay Gelsİn