Dos caracteres en negrita

[KOMPRESOR]

Hola amigos estoy intentando con una macro que me ponga en negrita solo los dos primeros caracteres en una columna de forma, que solo ponga en negrita, esos dos primeros caracteres en las filas, 3,4,5,6 deja una sin hacer nada, 8,9,10,11, deja una sin hacer nada, 13,14,15,16, deja una sin hacer nada y asi hasta que no encuentre caracteres, yo estoy intentando con una que envió en el adjunto, pero me pone todas las filas en negrita, y no se como cambiarla o modificar la ,para que realice lo que os he explicado, por eso os solicito ayuda.

gracias.-

Sub DOS_LETRAS_NEGRITAS()

Do While ActiveCell.Value <> ""

ActiveCell.Characters(Start:=1, Length:=2).Font.Bold = True

ActiveCell.Offset(1, 0).Select

Loop

End Sub

DOS CARACTERES EN NEGRITA.zip

[Invitado Cacho R]

Intenta con:

Sub DOS_LETRAS_NEGRITAS()
Dim C As Range
Application.ScreenUpdating = False
For Each C In Range([d2], Cells(Rows.Count, "d").End(xlUp))
  If (C.Row - 2) Mod 5 > 0 Then C.Characters(Length:=2).Font.Bold = True
Next C
Application.ScreenUpdating = True
End Sub[/PHP]

[ioyama]

Hola KOMPRESOR

Revisa el adjunto. Baso la macro en el paréntesis que acompaña al número.

Un saludo desde Vitoria

EDITO: Mientras preparaba mi solución el compañero Cacho se me ha adelantado. Saludos Cacho

DosCaracteresEnNegrita_io_120505.zip

[KOMPRESOR]

Gracias a los dos por tan buenas soluciones, ahora voy a decidir cual utilizo, muchas gracias de verdad.

dar por solucionado el tema.

gracias.-

[Invitado Cacho R]

Gracias por avisar!...