Ctrl+F işlemini makro ile yapmak

[cavanoos]

Merhaba;

A4 hücresine yazdığım metini kopyalıyorum. Ctrl+F tuşuna basıp yapıştırıyorum.
Bu işlemi makro ile yapmak istedim, ama olmadı. Kod oluşurken A4 hücresindeki "ceviz" kelimesini koda yazıyor.
Ceviz yerine A4 hücresini nasıl koda yazabiliriz ?

Oluşturduğum makro :

Range("A4").Select
Selection.Copy
Cells.Find(What:="Ceviz", After _
:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows _
, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False). _
Activate
Application.CutCopyMode = False

 

[Necdet]

Deneyin

Cells.Find(What:=Range("A4"), After _
:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows _
, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False). _
Activate
Application.CutCopyMode = False

 

[Greenblacksea53]

Sub MetinAra()

    ' A4 hücresindeki metni al
    Dim metin As String
    metin = Range("A4").Value
    
    ' Metni ara ve değiştir
    Cells.Find(What:=metin, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        
End Sub

 

[cavanoos]

Teşekkür ederim, elinize sağlık...