listeden seçilen yazı yerine bu yazının karşısındaki karşısındaki rakamlar gelsin

[abcd_efe]

merhaba arkadaşlar.
b3 hücresinde açılan bir liste var. bu listeden herhangi bir yazı seçilince seçilen bu yazının yan sütunlarındaki rakamlar gelsin istiyorum. konuyu daha iyi anlatabilmek için örnek dosya ektedir. yardımcı olursanız sevinirim. şimdiden teşekküre derim.

 

[Orion1]

65536*256 hücre içinde başka hücre bulamadınızda illaki Listeleme yapacağınız hücre içinemi istediniz bulunan değeri yazdırmayı.
E3 hücresine Düşeyara formülünü kullanarak yazabilirsiniz.
Forumda düşeyara diye arama yapınız.

 

[N.Ziya Hiçdurmaz]

yanıt

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Long
    For sat = 3 To Cells(65536, "f").End(xlUp).Row
        If Cells(sat, "f") Like [b3] Then
            [b3] = Cells(sat, "h") & "- " & Cells(sat, "ı") & "-" & Cells(sat, "j")
         End If
    Next
End Sub

 

[abcd_efe]

Sayın N.Ziya Hiçdurmaz yardımınız için teşekkür ederim.

 

[abcd_efe]

yukarıdaki kodlar sadece b3 hücresindeki değişiklik için çalışıyor. örneğin b3 b20 arasındaki tüm hücrelerde çalışması için ne yapmam gerekiyor acaba?