belirli bir kelimeyi koyu yapma hk.

[zetkatamet]

Arkadaşlar,
Ekteki dosyaya bakabilir misiniz?
Belirli bir ifade geçen hücredeki geçen ifadeyi koyu yapma hk.

Koşullu biçimlendirmede sağlam bir formülle olabilir diye tahmin ediyorum, belki birkaç yardımcı sütunla.

 

[Ömer]

Merhaba,

Ahmet verisinin sadece Ah kısmı koyu olacaksa bunun için koşullu biçimlendirme değil makro gerekir.

 

[zetkatamet]

Tamamdır Ömer hocam,

 

[Korhan Ayhan]

İstediğinize benzer bir uygulama daha önce İdris bey tarafından paylaşılmıştı.

https://www.excel.web.tr/threads/google-gibi-arama.112130/

 

[excelokyanus500]

Dosyanıza bakamıyorum. Anlatıma dayalı olarak bu makro olabilir diye düşündüm.

Sub KOD()
    Dim Alan As Range
    Dim a
    Dim s, i, b, c, d
    a = InputBox("metin giriniz", "metin")
    s = ActiveSheet.Name
    
    Application.ScreenUpdating = False
    For i = 1 To Sheets.Count
        Sheets(i).Select
        For Each Alan In ActiveSheet.UsedRange
            If Alan.Value Like "*" & a & "*" Then
                b = Alan.Value
                c = VBA.InStr(1, b, a)
                d = Len(a)
                Alan.Characters(c, d).Font.Color = vbBlue
            End If
        Next Alan
    Next i
    Sheets(s).Select
    
    Application.ScreenUpdating = True
    MsgBox "B i t t i "
End Sub

yada

Sub Celltest2()
Dim rw As Range, cel As Range
Dim i As Integer
Dim char
    For Each rw In Range("A1:A250").Rows ' Bakılan satır\hücreler
        For Each cel In rw.Cells
            For i = 1 To Len(cel)
            
              
                  If cel.Characters(i, 3).Text Like "*geç*" Then 'kaç karakter arıyorsanız ona göre düzenleyin.
                  cel.Characters(i, 3).Font.ColorIndex = 3
                  Exit For
                 End If
              
            
            Next i
        Next
    Next
End Sub

 

[zetkatamet]

Teşekkürler, Sn.excelokyanus500, Sn.Korhan