Macro para poner en negritas la letras mayúsculas
Me pueden ayudar para que en un rango de celdas, todas las letras mayúsculas las ponga en negrita. Solamente las mayúsculas, pueden existir varias mayúsculas en una celda, por ejemplo: El Mundo de los Libros. Entonces las letras E, L y M tienen que quedar en negritas. Gracias
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro, cambia el rango A1:D20 por el rango de celdas que quieras
Sub PonerMayusculasNegrita()
'Por.Dante Amor
mays = "ABCDEFGHIJKLMNÑOPQRSTUVWXYZ"
For Each celda In Range("A1:D20")
For i = 1 To Len(celda)
If InStr(1, mays, Mid(celda, i, 1)) > 0 Then
celda.Characters(Start:=i, Length:=1).Font.FontStyle = "Negrita"
End If
Next
Next
End SubSaludos.Dante Amor
Si es lo que necesitas.
