Soru Veri doğrulama-Açılır menü

[emre67z]

Arkadaşlar merhaba,

=EĞER(A2="ÖZDE";Sayfa1!A:A;EĞER(A2="Atahan";Sayfa1!A35:A38;EĞER(A2="Lemi";Sayfa1!A43:A49;EĞER(A2="CİHAN";Sayfa1!A39:A42;""))))

böyle bi kodum var. yani a2 de ÖZDE yazarsa belirli isimleri açılır menüde göstersin ATAHAN yazarsa belirli isimleri. ama bu kadar yazılabiliyor.Oysaki ben 4 kişi daha ekleyebilmek istiyorum. Kodu kısaltma şanşımız varmı en egerden böyle yöndem buldum daha kısası vardır belki. İyi çalışmalar teşekkürler.

E2 HÜCRESİNDEKİ VERİ DOĞRULAMADAN DAHA FAZLA KOD YAZMAMI KABUL ETMİYOR MAALESEF.

NOT: Dosyanın içeriğini makro konu kısmında sormuştum ordan kaldı. İsteyen o konuda da yardımcı olabilir açığım

 

[Korhan Ayhan]

Merhaba,

Alanlara ad tanımlaması uygulayın.

Bu adı doğrulamada kullanabilirsiniz

 

[emre67z]

veri geçerli kılma ölçütü için başvuru işleçleri ( örnegin birleşim,kesişim aralık) veya dizi sabitleri kullanamazsınız.
hatası aldım Korhan Bey,
Alanlara isim atadım ama hücre için formulde kullanıyorum veri doğrulamanın içine yazarken kabul etmiyor. Ama isimlere uygulama yaparak formulde kısaltmalar yaptım teşekkür ederim

 

[alpademgonca]

Merhaba
Ad Tanımlamalarından
Sayfa1!A:A =Özde ( Burası Sanki Sayfa1!A2:A34 olmalı)
Sayfa1!A35:A38=Atahan
Sayfa1!A39:A42=Cihan
Sayfa1!A43:A49=Lemi

Sonra Veri Doğrulama --> Liste ---> Özde;Atahan;Cihan;Lemi yazarsanız çalışması lazım

 

[Seyit Tiken]

Örnek kod sorununuzu haleder, kendinize uyarlayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If [a2] = "Ali" Then
With [a1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$B$1:$B$7"
End With
End If
If [a2] = "Veli" Then
With [a1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$C$1:$C$7"
End With
End If
If [a2] = "Selami" Then
With [a1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$D$1:$D$7"
End With
End If
If [a2] = "Ayşe" Then
With [a1].Validation
.Delete
.Add Type:=xlValidateList, Formula1:="=$E$1:$E$7"
End With
End If
End Sub

 

[emre67z]

Merhaba
Ad Tanımlamalarından
Sayfa1!A:A =Özde ( Burası Sanki Sayfa1!A2:A34 olmalı)
Sayfa1!A35:A38=Atahan
Sayfa1!A39:A42=Cihan
Sayfa1!A43:A49=Lemi

Sonra Veri Doğrulama --> Liste ---> Özde;Atahan;Cihan;Lemi yazarsanız çalışması lazım

Merhaba,
Özde Müdür konumunda varsayalım o yuzden bütün personeli değerlendirecek bu ornek dosya olduğu için rastgele işaretledim. Yanlış anlaşılma için kusura bakmayın.

 

[Korhan Ayhan]

Alternatif;

 

[emre67z]

Arkadaşlar teşekkürler hepinizinki çok iyi olmuş. Korhan Beyin alternatifi şaşırttı basit ama aynı etkiyi yaratan bir yöntem olmuş.