Hücre İçindeki Değerde Arama Yaptırma

[levoni]

Değerli Arkadaşlar Merhaba,

Bir konuda değerli yardımlarınıza ihityacım var.Ben biraz araştırdım ama bulamadım aslında birşeyler buldum ama ben bir türlü yapamadım.

İhtiyacım şu. Örnek dosyada "İsim" sayfasında bulunan isimleri "Genel" sayfasındaki "B" sütunundaki hücrelerde aratmak istiyorum.Ve bu arama sonucunda bir isim bulursa ilgili satırda "H" sütununa yazmak istiyorum. Örneğin "Levent" ismini ilgili hücrede buldu ise ilgili hücreye "Levent" yazması lazım.

Bu konuda bana yardımcı olursanız çok sevinirin

İyi çalışmalar

 

[dEdE]

Merhaba,
Fonksiyonlar başlığında sormuşsunuz ama, makrolu çözüm de olabilir.
Aşağıdaki kodu Modüle yapıştırarak dener misiniz?

Sub BulYaz()
Set s1 = Sheets("Genel")
Set s2 = Sheets("İsim")

Application.ScreenUpdating = False
    
For i = 2 To s2.[A65536].End(3).Row
    Set Aranan = s1.[B:B].Find(s2.Cells(i, 1).Value, , xlValues, xlPart)
    If Not Aranan Is Nothing Then
        adres = Aranan.Address
        Do
            s1.Cells(Aranan.Row, 8).Value = s2.Cells(i, 1).Value
            Set Aranan = s1.[B:B].FindNext(Aranan)
        Loop While Not Aranan Is Nothing And Aranan.Address <> adres
    End If
Next i
    Application.ScreenUpdating = True
    MsgBox "İşlem Tamam...", vbInformation, "dEdE " & Application.UserName & "'e Başarılar Diler..."
End Sub

 

[levoni]

Sayın dEdE ,
çok çok tşk ederim ellerinize sağlık.Eksik olmayın
iyi akşamlar . geç cevap döndüğüm için lütfen kusura bakmayın