şahin
Yeni Üye
Selamlar
Aşağıda ki kodla hücrelerin (b1:b10) benzersizlerini alıp, a1 hücresine veri doğrulama listesi olarak atmak istiyorum, set eetiğim hücre aralığını validation .. formula1 de nasıl kullanırız..
Aşağıda ki kodla hücrelerin (b1:b10) benzersizlerini alıp, a1 hücresine veri doğrulama listesi olarak atmak istiyorum, set eetiğim hücre aralığını validation .. formula1 de nasıl kullanırız..
Kod:
Set Rng = Sayfa2.Range("$B$1:$B$10")
Rng.RemoveDuplicates Columns:=1, Header:=xlNo
With Sayfa1.Range(hedefHucre).Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Rng ' ???????????????????????
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With