Veri doğrulama

[tahh_74]

Merhaba,

aşağıdaki kodda '.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=baslik" ' satırında hata oluşmakta ve vaidation yapılamamaktadır. Yardımlarınızı rica ederim
Ahmet

Sub dogrulamaliste()
Dim baslik As String
Dim son As Integer
Dim rName As Name
For Each rName In Sheets("Veri").Names
rName.Delete
Next rName
baslik = Sheets("Veri").Range("A1").Text
son = Sheets("Veri").Range("A65536").End(xlUp).Row
Sheets("Veri").Range("a2:a" & son).Name = baslik
With Sheets("Teklif").Range("B21:B42").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=baslik"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
End Sub

 

[Levent Menteşoğlu]

Dosyanızı eklermisiniz.

 

[Seyit Tiken]

Aşağıdaki kodu, "Delete" yazan kod satırının üstüne yapıştırıp deneyiniz.

With Selection.Validation

Bunu niye kodlarla yapıyorsunuz? Kod kullanmadan da yapabilirsiniz.

 

[tahh_74]

sevgili Leventm,

projeye yeni başlamıştım ilgili dosyayı ekliyorum.Yardımın için şimdiden teşekkürler.
Ahmet

 

[tahh_74]

lütfen yardım edin kilitlendim.Projeme devam edemiyorum.
Yardımlarınız için şimdiden teşekkürler

 

[zfr19]

Formula1:="=baslik"

şeklindeki kısmı

Formula1:=baslik

gibi yap. Bir de gönderdiğin dosyada ilk satırdaki

Dim baslik As String kısmı as Range olarak verilmiş. O kısmın burada olduğu gibi as String olması gerekiyor.

 

[tahh_74]

denedim ama malesef listeyi vermiyor o zaman.

 

[Levent Menteşoğlu]

Aşağıdaki şekilde deneyin.

Sub dogrulamaliste()
For Each rName In Sheets("Veri").Names
rName.Delete
Next rName
baslik = Sheets("Veri").Range("A1")
son = Sheets("Veri").Range("A65536").End(xlUp).Row
Sheets("Veri").Range("a2:a" & son).Name = baslik
With Sheets("Teklif").Range("B21:B42").Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Formula1:="=" & baslik
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = False
End With
End Sub

 

[tahh_74]

teşekkürler tam istediğim gibi oldu