Learningxls,
Hola, no he visto que se pueda dar formato condicional solo a una porción de una celda. Con macros si es posible, te paso un código que trabajé, que pegarías en la hoja donde está el cuadro:
Para utilizarlo, seleccionas el rango que quieres revisar y la macro te preguntará si quieres aplicar el color de fondo a la ultima letra de cada celda seleccionada, esto lo harias luego de aplicar el formato condicional que ya tenías.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MsgBox("Seguro que deseas modificar la seleccion?", vbOKCancel, "Advertencia") = vbOK Then
filas = Target.Rows.Count
columnas = Target.Columns.Count
filainicial = Target.Row
columnainicial = Target.Column
For i = 0 To filas - 1
For j = 0 To columnas - 1
CeldaEvaluada = Right(Cells(i + filainicial, j + columnainicial).Value, 1)
If Not (IsNumeric(CeldaEvaluada)) Then
largocelda = Len(Cells(i + filainicial, j + columnainicial).Value)
Cells(i + filainicial, j + columnainicial).Characters(Start:=1, Length:=largocelda - 1).Font.ColorIndex = 1
fondo = Cells(i + filainicial, j + columnainicial).Interior.ColorIndex
If Cells(i + filainicial, j + columnainicial).Interior.ColorIndex = -4142 Then
Cells(i + filainicial, j + columnainicial).Characters(Start:=largocelda, Length:=1).Font.ColorIndex = 2
Else
Cells(i + filainicial, j + columnainicial).Characters(Start:=largocelda, Length:=1).Font.ColorIndex = Cells(i + filainicial, j + columnainicial).Interior.ColorIndex
End If
Else
Cells(i + filainicial, j + columnainicial).Characters(Start:=1, Length:=largocelda).Font.ColorIndex = 1
End If
Next
Next
End If
End Sub
Saludos. Francisco Diez.
como puedo sumar un rango de valores alfanumericos sin que tenga en cuenta las letras
