ilk p yi yada g yi bold kalın yap

[ozpoli]

arkadaşlar her hücrede ayrı ayrı harfler var
a b v s p g h ı şeklinde her biri bir hücrede bole devam etmekte fakat ister p ister g olsun hangisi once ise onu kalın gerisi normal olcak bana bole bi makro

 

[hamitcan]

Sub koyuyap()
For Each hcr In ActiveSheet.UsedRange
    p = WorksheetFunction.Search("p", hcr)
    g = WorksheetFunction.Search("g", hcr)
    If p < g Then
        hcr.Characters(p, 1).Font.Bold = True
    Else
        hcr.Characters(g, 1).Font.Bold = True
    End If
Next
End Sub

 

[ozpoli]

olmadı ysa ben bunu bir satır bayunca istiyorum mesela a10 ile a100 arası

 

[ozpoli]

lütfen yardım acilllll

 

[uzmanamele]

merhaba

p veya g harfinin olmadığı hücrelerde hata vermemesi için 2. satır olarak on error resume next yazınız.