For Each Döngüsü

[tuvons]

Merhaba,

Aşağıdaki kodlarla hücre içerisindeki değerlere göre hücre içerisini boyama yapıyorum. İçerisinde tek tırnak olanları boyuyor ama tek tırnak ile başlayanları boyamıyor. Bunu nasıl sağlayabilirim?

For Each ara1 In Range("M2:M" & sonsatir1001)

    If _
    ara1.Text Like "*""*" Or _
    ara1.Text Like "  " Or _
    ara1.Text Like "*'*" Or _
    Len(ara1) > 50 _
    Then ara1.Interior.Color = vbRed

Next ara1

 

[veyselemre]

For Each ara1 In Range("M2:M" & sonsatir1001)

    If _
    ara1.Text Like "*""*" Or _
    ara1.Text Like "  " Or _
    ara1.PrefixCharacter = "'" Or _
    ara1.Text Like "*'*" Or _
    Len(ara1) > 50 _
    Then ara1.Interior.Color = vbRed

Next ara1

 

[tuvons]

Teşekkürler @veyselemre