Numeración por color

[ColdGeorge]

Buenos días

En el rango B3:B43 tengo una lista de nombres, algunos de ellos están en rojo (font, color).

Solicito ayuda para crear en la columna A la numeración necesaria (1,2, 3, etc.) para los los nombres en B que están en rojo.

Gracias por su ayuda, ColdGeorge

 

[James006]

Buenos Dias,

Lo mas facil es de usar la misma lógica para determinar las celdas en rojo ...para la numeración ...

 

[ColdGeorge]

Hola amigos

Estoy experimentando con este código:

Dim cell As Range
For Each cell In Sheets("literaturapuntual").Range("B3:B44")
If cell.Font.Color = vbRed Then
cell.Offset(0, -1).Value = 1
End If
Next cell

Pero no numera en la columna A los registros que están con letras rojas en la columna B.

Gracias de antemano, ColdGeorge.

 

[James006]

Hola,

Con una pequeña modificacion ...

Sub RojoNum()
Dim cell As Range
Dim i As Integer
  For Each cell In Sheets("literaturapuntual").Range("B3:B44")
    If cell.Font.Color = vbRed Then
        i = i + 1
        cell.Offset(0, -1).Value = i
    End If
  Next cell
End Sub

Espero que ajude ... :wink:

 

[ColdGeorge]

Hola James006

Gracias, con tu ayuda pude alcanzar mi objetivo, y aprender algo nuevo, saludos.

ColdGeorge

 

[James006]

De nada ... :wink:

Hasta Luego