- Katılım
- 4 Nisan 2009
- Mesajlar
- 45
- Excel Vers. ve Dili
- 2010 tr
Arkadaşlar,
Data isimli sayfada verileri tutuyorum. burda data validation yapmaya çalıştım ama listenin dışında bir değer girince hata vermiyor. bunu nasıl düzeltirim. Yazdığım kod aşağıda
Sub workbook_open()
Dim i, count As Integer
Sheets("data").Visible = False
Set d = Worksheets("data")
Names.Add Name:="aciklama", RefersTo:="=data!$F$2:$F$15"
With Range("Z4:Z500").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=aciklama"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorMessage = "hata uyarısı"
.ShowError = True
End With
End Sub
birde name olarak tanımladığım şey değişken olabilir mi ? formla ekleme çıkarma yapıyorum. DEğişken olursa listede boşluk olmayacak
Data isimli sayfada verileri tutuyorum. burda data validation yapmaya çalıştım ama listenin dışında bir değer girince hata vermiyor. bunu nasıl düzeltirim. Yazdığım kod aşağıda
Sub workbook_open()
Dim i, count As Integer
Sheets("data").Visible = False
Set d = Worksheets("data")
Names.Add Name:="aciklama", RefersTo:="=data!$F$2:$F$15"
With Range("Z4:Z500").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=aciklama"
.IgnoreBlank = True
.InCellDropdown = True
.ErrorMessage = "hata uyarısı"
.ShowError = True
End With
End Sub
birde name olarak tanımladığım şey değişken olabilir mi ? formla ekleme çıkarma yapıyorum. DEğişken olursa listede boşluk olmayacak