rakam yazınca renk değiştirme

[szuzum]

bir hücre de hem metin hem rakam var ben rakam yazınca renk değiştirmesini istiyorum mümkün mü acaba

 

[uzmanamele]

bir hücre de hem metin hem rakam var ben rakam yazınca renk değiştirmesini istiyorum mümkün mü acaba

Merhaba

Koşullu biçimlendirmede;
"Değerlerine bağlı olarak tüm hücreleri biçimlendir"
En az ve En fazla olan bölümlerde "sayı" olarak seçin ve renk olarak her ikisinde de aynı renk seçimi yapın.

 

[szuzum]

Denedim olmadı

 

[szuzum]

Private Sub Worksheet_Change(ByVal Target As Range)

'If Target.Column <> 1 Then Exit Sub ' İsterseniz sütun numarası ile kısıtlayabilirisiniz. Yorumu kaldırıp sayıyı istediğiniz gibi değiştirin.
Dim i As Long
Dim metin As String
metin = Target.Value

For i = 1 To Len(metin)
    If IsNumeric(Mid$(metin, i, 1)) = True Then
        Target.Characters(i, 1).Font.Color = vbRed
        Else
         Target.Characters(i, 1).Font.Color = vbGreen
    End If
Next
End Sub

SORUNUM BU KODLA CÖZÜLDÜ