Saltar al contenido

Dos caracteres en negrita

publicado

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

Featured Replies

publicado

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]

publicado

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

publicado
  • Autor

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

dar por solucionado el tema.

gracias.-

publicado

Gracias por avisar!...

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.