Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Poner en negrita parte de una celda

Excel - Poner en negrita parte de una celda

Volver
Nuevo Tema
<<>>
 
Vista:
sin imagen de perfil

Poner en negrita parte de una celda

Publicado por Al (2 intervenciones) el 24/08/2023 10:30:20
Buenos días,
Quiero poner en negrita los 10 primeros caracteres de cada celda en las primeras 1.000 filas. He estado investigando y he llegado hasta aaquí:

Sub Macro3()
Range("A2:A1000").Select
ActiveCell.Characters(Start:=1, Length:=10).Font.Bold = True
End Sub

Me selecciona las 1000 filas y me pone en negrita los 10 primeros caracteres pero solo de la primera linea.
No sé que me falta o que hago mal.
Muchas gracias.

De paso quisiera saber si es posible poner en cursiva lo que está entre ""
Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana
Val: 4.908
Oro
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Poner en negrita parte de una celda

Publicado por Antoni Masana (2540 intervenciones) el 24/08/2023 10:55:02
Hay que hacer un pequeño cambio:

1
2
3
4
5
6
7
Sub Macro3()
    Dim Fila As Long
    For Fila = 1 To 1000
        Range("A" & Fila).Select
        ActiveCell.Characters(Start:=1, Length:=10).Font.Bold = True
    Next
End Sub

Y esta versión pone a partir de la posición 23 los 6 caracteres en cursiva.

1
2
3
4
5
6
7
8
Sub Macro3()
    Dim Fila As Long
    For Fila = 1 To 1000
        Range("A" & Fila).Select
        ActiveCell.Characters(Start:=1, Length:=10).Font.Bold = True
        ActiveCell.Characters(Start:=23, Length:=6).Font.FontStyle = "Cursiva"
    Next
End Sub

Esta versión busca la palabra Disc y la pone en cursiva:

1
2
3
4
5
6
7
8
9
Sub Macro3()
    Dim Fila As Long, Ps As Integer
    For Fila = 1 To 1000
        Ps = InStr(Range("A" & Fila), "Disc")
        Range("A" & Fila).Select
        ActiveCell.Characters(Start:=1, Length:=10).Font.Bold = True
        ActiveCell.Characters(Start:=Ps, Length:=4).Font.FontStyle = "Cursiva"
    Next
End Sub

Saludos.
\\//_
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
sin imagen de perfil

Poner en negrita parte de una celda

Publicado por Al (2 intervenciones) el 24/08/2023 11:15:11
Muchas gracias, funciona perfectamente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar