Benzer girdilerde Formül Hatası

[stirra_ej]

Değerli arkadaşlar aşağıda tablonun bir görselini açıklamaya çalıştım... Sorun Şu Aynı Plaka Farklı şoför girdisi girildiğinde ComboBox ta aynı plakayı alt alta iki kayıt olduğunu görüyorum ama comboboxtan seçim gerçekleştirdiğimde şoför isimleri ilk girilende sabit kalıyor.. Formül altta.. Değişik olan plaka girdilerinde karşılarındaki şoförler de değişiyor ama aynı plaka kaydı 2 defa varsa şoför ismi birinde kitlenip kalıyor Nerde hata yapıyorum..

Excel Sayfası = Alt alta hücre girdisi
18 Ku 924 İbrahim ÖZBEK
06 z 8443 Şener KIRMIZI
18 Ku 924 Halil TOKER

Combobox 1 = Plaka Girdisi Sayfada bir hücre = Şoför Adı Otomatik Çıkıyor

Formül :

Private Sub Plaka6_Change()
Dim Plakae As Range
If Plaka6.Value = Empty Then Exit Sub
For Each Plakae In Sheets("Kurum").Range("z3:z50")
If Plakae.Value = Plaka6.Value Then
Range("I21").Value = Plakae(1, 2).Value

Set Plakae = Nothing
Exit Sub
End If
Next Plakae
End Sub

 

[stirra_ej]

Arkadaşlar aynı plaka farklı şoför adı olduğunda neden ilgili hücre plakadaki bir şöfere takılıyor ve değişmiyor, yardım ederseniz çok sevinirim..

 

[stirra_ej]

Sorun aramayla ilgili, Aradığı yerde aynı veri varsa aynı olan verinin olduğu hücreyi seçiyor ve orda kalıyor alt satırdaki hücreyi seçemiyor
Comboboxtan seçtiğim girdiği seçtiğimde o satıra düşmesi lazım

 

[YUSUF44]

Veriler combobox'a sayfada bulundukları sırayla alınıyorsa ve isimler de yine bu sıralamaya uygunsa, combobox'ın kaçıncı değeri olduğuna göre bulunabilir.

[I21] = worksheetfunction.index(Sheets("Kurum").Range("z3:z50"), Plaka6.listindex+1)

gibi bir kodla olması lazım.