Veri doğrulama listesindeki değerin indexi

[dost]

Arkadaşlar merhaba,

Excel sayfasındaki A1 hücresinde veri doğrulama var.
Veri doğrulama listesindeki kaynak, A;B;C;D

A1 hücresinde B seçildiğinde, seçilen değerin index'ini veya kaçıncı değer olduğunu bulabilir miyim?

Kolay gelsin.

 

[Merhum İdris SERDAR]

.

=KAYDIR(A1;veri doğrulamnın verileri aldığı alan)

.

şeklinde deneyin.

.

 

[Korhan Ayhan]

Selamlar,

Eğer kaynak listeniz elle oluşturulmuş bir liste ise Sn. yurttas beyin önerdiği formül sonuç üretmez.

Bu durumda aşağıdaki formülü kullanabilirsiniz. Fakat bu formülde mükerrer kayıt içeren veri listesinde doğru index numarısını üretmez.

=KAÇINCI(A1;{"A";"B";"C";"D"};0)

 

[dost]

Sayın yurttas,

Veri doğrulama listesindeki kaynak, A;B;C;D listeye manuel giriliyor.

Kolay gelsin.

 

[dost]

Sayın Ayhan,

İlk önce ilginiz için teşekkürler.

İşlemi VBA'da yapmak istiyorum ve o şekilde yapabiliyorum.
WorksheetFunction.Match(Range("A1"), "A", "B", "C", "D", 0)

Ancak A1 hücresine ait kaynağa yeni bir veri eklediğimde, yazdığım kodu
WorksheetFunction.Match(Range("A1"), "A", "B", "C", "D", "E", 0)
şeklinde değiştirmem gerekecek. Bu şekilde yapmak istemiyorum.

Aslında kaynağı Sayfada herhangi bir sütündan alıp, yukarıdaki formülle indexine ulaşabilirim.
Ancak, ben diğer şekilde bir yöntem varmı diye merak ettim?

Kolay gelsin.

 

[Korhan Ayhan]

Selamlar,

Sn. dost,

Kod içinde A1 hücresindeki formül tesbit edilerek çözüme gidebiliriz. Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub VERİ_DOĞRULAMA_İNDEKSİ()
    Dim Veri As String
    
    Veri = Replace(Range("A1").Validation.Formula1, ";", """,""")
    MsgBox Evaluate("=MATCH(A1,{""" & Veri & """},0)")
End Sub

 

[dost]

Sayın Ayhan,

Tamamdır. Teşekkürler...