Makro arama

[ahmtunslll]

Makro kayıt ile yaptık fakat listedeki kelimenin tamamını yazınca buluyor örneğin ahmet eve git bulmak istiyorım ahmet yazınca aşağıya listelemesi lazım fakat cümlenin tamamını istiyor

 

[Necdet]

Merhaba,

Aşağıdaki kodlar A sütunun da "Necdet" sözcüğünü arar, bulduklarının değer ve adresini mesaj olarak verir. Siz kendinize göre uyarlayınız.

Sub AraBul()

    Dim c   As Range, _
        Adr As String
    
    With Worksheets(1).Range("A:A")
        Set c = .Find("necdet", LookIn:=xlValues)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                MsgBox "Bulunan Değer : " & c.Value & ", Adresi : " & c.Address
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        Else
            MsgBox "Aranan Değer Bulunamadı...."
        End If
    End With
    
End Sub

 

[ahmtunslll]

Usta ben kod bilmem makro ile yaptım 1 sayfadaki hücreye kelimeyi yazıyorum 2 sayfadan alıp bir alt hicreye listeyiyor ama kelimenin tamamınınistiyor makro kayıt ile yaptın listenin tamamını seçtim

 

[Tevfik_Kursun]

Merhaba,
İstediğiniz bu mu?
İyi çalışmalar.

 

[Korhan Ayhan]

Profilinizdeki excel versiyonu bilgisini lütfen güncelleyiniz.