Farklı hücreleri arama ve yazma

[pendik1970]

Kolay gelsin excel.web.tr ustaları. yaklaşık 8 tane bölge ve onlara ait kodlar var. kod sayısı 700-800 civarında. kodun yanına ilgili bölgeyi nasıl yazdırabilirim. Küçük bir örneğini ekliyorum.
Yardımcı olabilirseniz sevinirim.

 

[Murat OSMA]

Bu formülü A2 hücresine yazıp aşağıya doğru çekin;

=ARA(B2;S:S;R:R)

Ya da

=İNDİS($R$2:$R$16;KAÇINCI(B2;$S$2:$S$16;0))

 

[pendik1970]

Teşekkürler Murat OSMA, ikinci kod daha kullanışlı. İyi ki varsınız...

 

[Murat OSMA]

Rica ederim, iyi günler.

Makro ile çözüm isterseniz de bu kodları kullanabilirsiniz;

[FONT="Trebuchet MS"]Sub Emre()
    Dim i%, Rky As Range
    For i = 2 To Range("B65536").End(3).Row
        Set Rky = Range("S2:S16").Find(Cells(i, 2), , , 1)
        If Not Rky Is Nothing Then
            Cells(i, 1) = Rky.Offset(0, -1).Value
        End If
    Next i
    i = Empty: Set Rky = Nothing
End Sub[/FONT]