Veri doğrulamadaki Boşluklar

[Mdemir63]

Arkadaşlar merhaba

Hücrede yaptığımız veri doğrulamada açılır penceredeki isimlerin olduğu kısımların altında kalan boş kısımlar görümemesi için ne yapmalıyım?

Saygılar

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=32850

Buraya baktınız mı?

..

 

[Seyit Tiken]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Z$1:Z" & [Z6500].End(3).Row
End With
End Sub

Not : Veri Doğrulama, A1 hücresinde açılacak. Liste ise, Z sütununda varsayılan olarak yapılmıştır. Veri girildikçe liste uzar ve alta boşluk oluşmaz.

 

[Merhum İdris SERDAR]

Arkadaşlar merhaba

Hücrede yaptığımız veri doğrulamada açılır penceredeki isimlerin olduğu kısımların altında kalan boş kısımlar görümemesi için ne yapmalıyım?

Saygılar

Eğer alan tanımlaması yapmadan istiyorsanız. Liste yöntemi ile yapılan örnek dosya ekte.


..

 

[Mdemir63]

http://www.excel.web.tr/showthread.php?t=32850

Buraya baktınız mı?

..

Selamlar,
Yurttaş hocam oradaki örnekleri inceledim. Bir şey kafama takıldı
Veri doğrulamanın Formül çubuğuda =liste yazıyor ya o ad tanımlaması ile yapılmamış nasıl yapılmış öğrenebilirmiyim?

Saygılar

 

[Merhum İdris SERDAR]

Selamlar,
Yurttaş hocam oradaki örnekleri inceledim. Bir şey kafama takıldı
Veri doğrulamanın Formül çubuğuda =liste yazıyor ya o ad tanımlaması ile yapılmamış nasıl yapılmış öğrenebilirmiyim?

Saygılar

Ad tanımlamasına girin orada göreceksiniz. Refers to: boşluğuna aşağıdaki formül girilerek dinamik alan yaratılmış.


=OFFSET(Sayfa1!$A$1;0;0;COUNTA(Sayfa1!$A:$A);1)

...

 

[Mdemir63]

Bu şekilde deneyebilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Z$1:Z" & [Z6500].End(3).Row
End With
End Sub

Not : Veri Doğrulama, A1 hücresinde açılacak. Liste ise, Z sütununda varsayılan olarak yapılmıştır. Veri girildikçe liste uzar ve alta boşluk oluşmaz.

Selamlar,
Seyit Hocam elinize sağlık ama bir kaç tane veridoğrulama yaparsak yani siz A1 hüresi için yapmışsınız, C1 de ve E1 de de veri doğrulama yapmak istersek artı sütunları da değişikse o zaman nasıl yaparız?

Saygılar

 

[Mdemir63]

Yurttaş hocam teşekkürler
Saygılar

 

[Seyit Tiken]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [A1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Z$1:Z" & [Z6500].End(3).Row
End With
With [C1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Y$1:Y" & [Y6500].End(3).Row
End With
End Sub

 

[Mdemir63]

Bu şekilde deneyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [A1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Z$1:Z" & [Z6500].End(3).Row
End With
With [C1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$Y$1:Y" & [Y6500].End(3).Row
End With
End Sub

Hocam teşekkürler
Son olarak baş harfine göre duyarlılığını nasıl yapabilirim?
Saygılar

 

[Seyit Tiken]

Combo daha elverişlidir. Onu kullanın.

 

[Mdemir63]

Combo daha elverişlidir. O kullanın.

Teşekkürler Hocam
Saygılar

 

[mersilen]

arkadaşlar bu geçmiş konudaki açıklamaları anlayabilmek için
yukarıdaki kodları tablo üzerine ekleyebilecek var mı?