Eşleşen İsimleri Listelemek

[baydeniro]

Merhaba arkadaşlar. Bir tablodan seçilen ismin satırında + olarak tanımlı isimlerin listelenmesi mümkün müdür. Örnek dosya ekte bulunmaktadır.

 

[Zeki Gürsoy]

Deneyin.

Sub test()
    sat = Range("b2:b16").Find([s1]).Row
    c = 1
    For s = 3 To 17
        If Cells(sat, s) = "+" Then
            c = c + 1
            Cells(c, "s") = Cells(Cells(1, s) + 1, "b")
        End If
    Next
End Sub

 

[HALAVURT]

Selam,

Kontrol edermisin...

Teşk..

 

[baydeniro]

Sayın Halavurt ilgine çok teşekkür ederim. Dosyanın formatı mı farklı bilmiyorum dosya açılırken isimler gözüküyor, ancak açılktan sonra veriler =#DEĞER! şekline dönüşüyor.

 

[baydeniro]

Sayın Zeki Gürsoy çok teşekkür ederim. Müthiş bir kod, tam anlamıyla işimizi gördü. Sağlıcakla kalın.