Soru Ara (CTRL+F) Fonksiyonu

[loowleets1]

Merhaba,

CTRL+F Bul ve Değiştir ile hücre içindeki (NEW) bilgisini (NEW) olarak değiştirmek istiyorum. Fakat hücrenin tamamının biçimi değişiyor.
Hücre içindeki sadece (NEW) kelimesini değiştirmenin bir yolu var mıdır?

Teşekkür ederim,

 

[ÖmerBey]

Merhaba,
Sorularınızı örnek dosya ile desteklerseniz daha hızlı ve daha doğru cevaplar alabilirsiniz.
İsteğiniz makro ile yapılabilir, aşağıdaki kodu deneyiniz.

Sub kod()
Dim hcr As Range
Dim ara As String, adr As String
Dim s As Integer
ara = "(NEW)"
Set hcr = ActiveSheet.UsedRange.Find(ara, lookat:=xlPart)
If Not hcr Is Nothing Then
    adr = hcr.Address
    Do
        s = InStr(1, hcr.Value, ara)
        With hcr.Characters(s, Len(ara)).Font
            .Bold = True
            .Color = vbRed
        End With
        Set hcr = ActiveSheet.UsedRange.FindNext(hcr)
    Loop While hcr.Address <> adr
End If
End Sub

 

[loowleets1]

Teşekkür ediyorum. Fakat makroyu çalıştıramadım.
Linke bakabilir misiniz? https://prnt.sc/v3r3ho

 

[loowleets1]

Çalıştı, çok teşekkürler.

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...