Veri Doğrulama ve koşullu seçim

[abcdefg1220]

Bir sorunum var. Yaptım yaptım bir yere kadar geldim. Sonrasında tıkandım.
Problemim ve rica ettiklerim ekli dosyada mevcuttur.
Yardımcı olabilirseniz çok sevinirim.

 

[hamitcan]

Not: Önce tüm giderlere bir isim tanımlayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 6 Then Exit Sub
   With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Cells(Target.Row, 4)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[abcdefg1220]

Yardımınız için çok teşekürler ancak problem sürüyor hatta sizin yaptığınız işlem neticesinde seçeneklerin aşağıya doğru sıralanması devredışı kaldı.
Başka bir yol önerirmsiniz?

 

[hamitcan]

Makroları etkinleştirdiniz mi ?

 

[abcdefg1220]

Evet makroları etkinleştirdim. F4 nolu hücrede söylediğiniz işlem başarı ile gerçekleşiyor ama diğer hücreler maalesef söylediğim gibi.

 

[hamitcan]

2 nolu mesajımda bir not satırı vardı, bu not satırını, gözden kaçırdınız o zaman.