Jump to content

Dos caracteres en negrita


Recommended Posts

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

Link to comment
Share on other sites

Guest 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]

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy