Makroda Seçilen Verinin Listeden Otomatik Gelmemesi

[feraset045]

Arkadaşlar ekteki excel dosyasında ANASAYFA kısmında istek yapan adı soyadı listeden seçiyorum unvanı otomatik geliyor ama birim sorumlusu adı soyadı kısmını seçtiğimde unvan ismi gelmiyor makro kodlarda durumu düzeltemedim yardımcı olurmusunuz. şimdiden teşekkür ederim.

 

[asi_kral]

Merhaba
Kodu bununla değiştirip dener misiniz_?

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Row = 2 Then
If Intersect(Target, [C2]) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
    If [C2] <> "" Then
    Set BUL = Sheets("İSİMLER").Range("B:B").Find([C2].Value, , , xlWhole, , xlNext)
        If Not BUL Is Nothing Then
        [C3] = Sheets("İSİMLER").Range("C" & BUL.Row)
       [C4] = Sheets("İSİMLER").Range("D" & BUL.Row)
   End If
End If
ElseIf Target.Row = 10 Then
If Intersect(Target, [C10]) Is Nothing Then _
Application.EnableEvents = True: Exit Sub
    If [C10] <> "" Then
    Set BUL = Sheets("İSİMLER").Range("B:B").Find([C10].Value, , , xlWhole, , xlNext)
        If Not BUL Is Nothing Then
        [C11] = Sheets("İSİMLER").Range("C" & BUL.Row)
       [C12] = Sheets("İSİMLER").Range("D" & BUL.Row)
   End If
End If
End If
Application.EnableEvents = True
End Sub

 

[feraset045]

tamam üstad oldu. çok teşekkür ettim. Allah razı olsun

 

[asi_kral]

tamam üstad oldu. çok teşekkür ettim. Allah razı olsun

Kolay Gelsin.

 

[feraset045]

hocam kusura bakmayın rahatsız ediyorum. yukarıdaki konuda sorunum giderilmişti bu makroda mesela bir tarafta isim listesi yaparken diğer tarafta listeden ismi seçiyorduk. isim listesi çok uzun olduğu için listeden isim seçilen yere mesela ; Mehmet veya mehmete yakın harf girdiğimizde o kelimeleri otomatik listeyen kod var mı acaba yardımcı olurmusunuz.

 

[asi_kral]

hocam kusura bakmayın rahatsız ediyorum. yukarıdaki konuda sorunum giderilmişti bu makroda mesela bir tarafta isim listesi yaparken diğer tarafta listeden ismi seçiyorduk. isim listesi çok uzun olduğu için listeden isim seçilen yere mesela ; Mehmet veya mehmete yakın harf girdiğimizde o kelimeleri otomatik listeyen kod var mı acaba yardımcı olurmusunuz.

Eki inceleyin.
İsimler harf sırasında olmalı.

 

[feraset045]

asi_kral hocam tam istediğim gibi teşekkür ederim ellerine sağlık yalnız birim sorumlusunda unvan ve ek unvan isimleri otomatik çıkmıyor en üsttekinin unvan ve ek unvan isimleri otomatik geliyor alttakinin gelmiyor maalesef.

 

[asi_kral]

asi_kral hocam tam istediğim gibi teşekkür ederim ellerine sağlık yalnız birim sorumlusunda unvan ve ek unvan isimleri otomatik çıkmıyor en üsttekinin unvan ve ek unvan isimleri otomatik geliyor alttakinin gelmiyor maalesef.

Üstte verdiğim kodu ekleyin.
Ben koda herhangi bir işlem yapmadım. Sadece dosyayı düzenledim.