Veri doğrulamayı makro ile yapmak

[m.ensar]

Hocalarım merhaba daha önce de bir konu içerisinde sordum ama yanıt alamadım belki gözden kaçtı. Ek listede GÜNCEL sayfasında çeşitli sütunlarda veri doğrulama var; VERİLER sayfasındaki verileri baz alarak oluşan bu veri doğrulamayı makro ile yapabilir miyiz?

 

[m.ensar]

aşağıdaki kodlar ile yaptığım veri doğrulamada herhangi bir hücreye bir veri girdiğimde C:C sütununu resimdeki şekilde işaretliyor kodları makro kaydet ile oluşturdum en sade haline getirebildiğim kadar getirdim ancak bu resimdeki sorunu nasıl ortadan kaldırırım

Private Sub Worksheet_Change(ByVal Target As Range)

Set sv = Sheets("Sayfa2")

Sheets("Sayfa3").Select
Columns("C:C").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=Sayfa2!$C:$C"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = "SAYFA2"
.ErrorMessage = "VERİYİ DÜZENLE"
.ShowInput = True
.ShowError = True
End With
End Sub