Çift İsimlere Veri Doğrulama

[yanginci34]

Merhaba arkadaşlar; Aşağıdaki örnek dosya da Sayfa2 de bir liste var bu listede ismi ve soyismi aynı olan kişiler var. Sizlerden istediğim Sayfa1 de isim olarak veri doğrulama yaptığımda düşeyara ile diğer veriler gelecek ama ben veri doğrulamada aynı isimli olanların görevleri ile beraber görmek ve diğer bilgilerin de buna göre gelmesini istiyorum. Şimdiden teşekkür ederim.

 

[YUSUF44]

Sayfa2'de E2 hücresine aşağıdaki formülle kişi bilgilerini toplayıp, veri doğrulamayı E sütunu üzerinden yapsanız olur mu?

=B2&"-"&A2&"-"&D2

 

[yanginci34]

Hocam ilginiz için teşekkür ederim ama sizin vermiş olduğunuz formül ile sayfa yapılarında epey değişiklikler yapmak gerekiyor.

 

[Erdem Akdemir]

Merhaba,

Makro ile yapmak isterseniz aşağıdaki kodu deneyebilirsiniz.
Direkt formülle olabileceğini sanmıyorum.

Option Base 1

Sub DD()
son = Sayfa2.Cells(Rows.Count, "a").End(3).Row - 1

Dim dizi()

For i = 1 To son

ReDim Preserve dizi(i)
dizi(i) = Sayfa2.Cells(i + 1, "b") & "-" & Sayfa2.Cells(i + 1, "d")


Next

With Sayfa1.Range("B2").Validation
.Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(dizi, ",")
End With
End Sub

 

[yanginci34]

Çok teşekkür ederim elinize sağlık.

 

[YUSUF44]

Aslında çok değişikliğe gerek yok. Ekli dosyayı inceleyiniz. Makro ile veri doğrulamayı B2 hücresi seçildiğinde çalışacak şekilde ayarladım. Seçim yapıldıktan sonra da seçtiğiniz kişinin düzgün bilgileri ilgili yerlere getiriliyor. Aynı zamanda ad yöneticisini de inceleyiniz.

 

[yanginci34]

Hocam harika olmuş elinize sağlık