Veri doğrulama kodu düzenleme

[ASLAN7410]

Merhaba hayırlı geceler.

Ekte gönderdiğim excel dosyamda makro kaydet ile oluşturulmuş butona bağlanmış veri doğrulama kodu var.

Benim yapmak istediğim select ve selection'ları kaldırıp ve kodu basite indirip belirlediğim hücre aralığına direk yazmasını istiyorum.
Sayfa üzerinde Private Sub Worksheet_SelectionChange(ByVal Target As Range) bu başlık altında başka kodlar var, bu seferde bu kodlar sürekli çalışıyor.

Yardımcı olur musunuz?

 

[turist]

Private Sub Worksheet_SelectionChange(ByVal Target As Range) bu başlık altında başka kodlar var

Bu kodları görmeden çözüm bulmak zor olur.
Kodları içeren örnek dosyanızı eklerseniz, daha kolay ve hızlı cevap bulabilirsiniz.

 

[ASLAN7410]

Sayın turist ilginiz için çok teşekkür ediyorum.
Aşağıdaki kodu sadeleştirmek istiyordum.

Sub İlçelerVeriDoğrulama()
    Sheets(1).Range("F7").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$N$6:$N$13"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
    Sheets(1).Range("F7").Select
    Selection.AutoFill Destination:=Range("F7:F56"), Type:=xlFillDefault
    Sheets(1).Range("F7:F56").ClearContents
End Sub

Deneme yanılma ile aşağıdaki gibi yapınca istediğim oldu.

Sub İlçelerVeriDoğrulama()
With Sheets("ASLAN").Range("F7:F56").Validation
    .Delete
    .Add Type:=xlValidateList, Formula1:="=$D$62:$D$69"
    .ShowError = False
    Sheets("ASLAN").Range("F7:F56").ClearContents
End With
End Sub

Teşekkür ediyorum, hayırlı geceler diliyorum.

 

[turist]

Elinize sağlık.