Harf sırasına göre koşullu biçimlendirme

[tamer42]

Merhaba,
Aşağıdaki koşullu biçimlendirme kodunda;
String:="topp*"
2. harfi "s" olanları nasıl belirtebiliriz?

With Rng.FormatConditions.Add(xlTextString, TextOperator:=xlContains, String:="topp*")
        
    With .Font
        .Bold = True
        .Color = vbBlue
    End With
    
End With

teşekkürler,
iyi çalışmalar.

 

[ÖmerFaruk]

    Dim hücre As String, Rng As Range
    Set Rng = Range("D11:D15")
    Rng.FormatConditions.Delete
    hücre = Replace(Rng.Cells(1, 1).Address, "$", "")
    With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=PARÇAAL($" & hücre & ";2;1)=""s""")
        .Font.Bold = True
        .Font.Color = vbBlue
    End With

 

[tamer42]

    Dim hücre As String, Rng As Range
    Set Rng = Range("D11:D15")
    Rng.FormatConditions.Delete
    hücre = Replace(Rng.Cells(1, 1).Address, "$", "")
    With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=PARÇAAL($" & hücre & ";2;1)=""s""")
        .Font.Bold = True
        .Font.Color = vbBlue
    End With

Ömer Hocam ilginize çok teşekkürler,
burada aynı hücrede 2. bir koşulu daha nasıl ekleyebiliriz? Örnek 4. harfi "t" olanlarda

 

[ÖmerFaruk]

With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=VE(PARÇAAL($" & hücre & ";4;1)=""t"";PARÇAAL($" & hücre & ";2;1)=""s"")")

 

[tamer42]

With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=VE(PARÇAAL($" & hücre & ";4;1)=""t"";PARÇAAL($" & hücre & ";2;1)=""s"")")

teşekkürler...

 

[tamer42]

With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=VE(PARÇAAL($" & hücre & ";4;1)=""t"";PARÇAAL($" & hücre & ";2;1)=""s"")")

    Dim hücre As String, Rng As Range
    Set Rng = Range("D11:D15")
    Rng.FormatConditions.Delete
    hücre = Replace(Rng.Cells(1, 1).Address, "$", "")
    With Rng.FormatConditions.Add(Type:=xlExpression, Formula1:="=PARÇAAL($" & hücre & ";2;1)=""s""")
        .Font.Bold = True
        .Font.Color = vbBlue
    End With

Ömer Hocam burada tek bir sütuna göre bakıyor,

Set Rng = Range("A1115")

hücre aralığı bu şekilde olursa nasıl bir çözüm üretebiliriz?

 

[ÖmerFaruk]

hangi sütuna ya da sütunlara bakacaksınız?

 

[tamer42]

hangi sütuna ya da sütunlara bakacaksınız?

A:D sütunları arası Ömer Hocam

 

[ÖmerFaruk]

Her bir hücreye ayrı ayrı bakıp, her bir hücreyi ayrı ayrı mı biçimlendireceksiniz?
Eğer böyleyse
"=PARÇAAL($" & hücre & ";2;1)=""s""")
$ ifadesini silin

 

[tamer42]

Her bir hücreye ayrı ayrı bakıp, her bir hücreyi ayrı ayrı mı biçimlendireceksiniz?
Eğer böyleyse
"=PARÇAAL($" & hücre & ";2;1)=""s""")
$ ifadesini silin

teşekkürler Ömer Hocam