Macro excel. Texto entre "..." colocar en colores
Quiero crear una macro que todas las palabras que se encuentren entre comillas "..." me las coloque en negrita.. Y las palabras entre () (...) en color rojo..
Todo esto es dentro de la columna B.
Necesito saber como seria la macro y donde colocarla.
En caso de que esto mismo se pueda hacer con el comando remplazar no necesitaría la macro, pero por lo que probé el comando reemplazar me pone en negrita toda la celda.
Saludos
1 Respuesta
Respuesta de Dante Amor
1
Te anexo la macro para reemplazar los datos en la misma columna "B"
Sub reemplazar()
'Por.Dante Amor
For i = 1 To Range("B" & Rows.Count).End(xlUp).Row
ini = InStr(1, Cells(i, "B"), """")
fin = InStrRev(Cells(i, "B"), """")
If ini > 0 And fin > 0 And ini + 1 < fin Then
Cells(i, "B").Characters(ini + 1, fin - ini - 1).Font.FontStyle = "Negrita"
End If
ini = InStr(1, Cells(i, "B"), "(")
fin = InStrRev(Cells(i, "B"), ")")
If ini > 0 And fin > 0 And ini + 1 < fin Then
Cells(i, "B").Characters(ini + 1, fin - ini - 1).Font.ColorIndex = 3
End If
Next
End SubSigue las Instrucciones para ejecutar la macro
1. Abre tu archivo de excel
Saludos. Dante Amor
Recuerda valorar la respuesta.
