açılır listede kopyalama yapamıyorum

[maviada58]

selam arkadaşlar
gönderdiğim örnekde birbirlerine bağlı iki açılır liste var. burada c14 değiştiğinde d14 de ona göre değişiyor burada sorun yok. sorun ise c15....c43 bu işlemi uyguladığımda d15....d43 de değişme olmuyor. umarım anlatabilmiştirim. sürükleme ve kopyalama işlemleri işe yaramıyor.
sanırım sorun altına yazdığım koddan dolayı. daha doğrusu yazmadım başka biryerden kopyalım benim sayfaya göre uyguladım.
sevgili ustatlardan acele yardım istiyorum...
herkese iyi çalışmalar..

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo hata
If Intersect(Target, [C14:C43]) Is Nothing Then Exit Sub
 With Target.Offset(0, 1).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Target
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
hata:
End Sub

şeklinde dener misiniz?

 

[maviada58]

sayın hamitcan üstadım
sana çok teşekkür ederim...
Allah işini gücünü rast getirsin...