Dos primeros caracteres en negrita
Hola necesito por favor una macro que me ponga en negrita solo dos dos primeros caracteres de cada celda en la misma columna, en cada cuatro seguidas y dejando una si hacer nada es decir poner en negrita los dos primeros caracteres de las celdas D3,D4,D5,D6 - D8,D9,D10,D11,- D13,D14,D15,D16, - y asi toda la columna siempre que encuentre caracteres yo estoy utilizando esta macro:
Sub negrita_dos_letras()
Do While ActiveCell.Value <> ""
ActiveCell.Characters(Start:=1, Length:=2).Font.Bold = True
'ActiveCell.Offset(5, 0).Select
Loop
End Sub
pero solo me pone en negrita una fila cada cinco y es precisamente esa donde no debo de poner en negrita necesito cuatro filas en negrita, los dos primeros caracteres y una fila sin hacer nada y otras cuatro filas los dos primeros caracteres en negrita y otra fila sin hacer nada y asi hasta que no haya caracteres que cambiar.
pero no se como cambiar esta macro para que actúe asi.
gracias
El código que haría esta tarea es el siguiente:
Sub negrita_dos_letras()
Dim i%
i = 1
Do While ActiveCell.Value <> ""
If i < 5 Then
ActiveCell.Characters(Start:=1, Length:=2).Font.Bold = True
Else
i = 0
End If
i = i + 1
ActiveCell.Offset(1, 0).Activate
Loop
End Sub
Con esto ya tienes solucionado ese problemita.
