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

emre67z

Altın Üye
Katılım
19 Haziran 2017
Mesajlar
216
Excel Vers. ve Dili
365
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
 

Ekli dosyalar

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
41,325
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Merhaba,

Alanlara ad tanımlaması uygulayın.

Bu adı doğrulamada kullanabilirsiniz
 

emre67z

Altın Üye
Katılım
19 Haziran 2017
Mesajlar
216
Excel Vers. ve Dili
365
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
 
Katılım
16 Ekim 2018
Mesajlar
8
Excel Vers. ve Dili
Microsoft Office 365, Türkçe
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

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Örnek kod sorununuzu haleder, kendinize uyarlayınız.
Kod:
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
 

Ekli dosyalar

emre67z

Altın Üye
Katılım
19 Haziran 2017
Mesajlar
216
Excel Vers. ve Dili
365
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.
 

emre67z

Altın Üye
Katılım
19 Haziran 2017
Mesajlar
216
Excel Vers. ve Dili
365
Arkadaşlar teşekkürler hepinizinki çok iyi olmuş. Korhan Beyin alternatifi şaşırttı basit ama aynı etkiyi yaratan bir yöntem olmuş.
 
Son düzenleme:
Üst