funcion VBA para negritas en Excel

[Emiliano Zapata]

Hola que tal, saludos a todos antes que nada, eperando que se encuentren bien.

En solicitud de su ayuda, he estado intentando en excel 2007, de un rangon seleccionado de Celdas en los que hay numeros o letras:

A T S G H I O N

E W P H S N M

en este caso letras, estoy intentando mediante VBA que si selecciono todas esas celdas, en los que hay distintas palabras o letras, que me ponga en negritas solo donde haya las letras S :

He intentado asi:

Sub texto_negrita()


If (Cells.Select = "s") Then



Font.Bold = True


End If


End Sub


De antemano gracias por su ayuda.

[elQuique]

Tiene que ser con VBA, o puede ser con formato condicional ?



Con el formato condicional puedes decirle que una determinada selección de celdas tenga tal o cual color, border, efecto o tipo de fuente.

En el caso de aun querer utilizar VBA puedes utilizar un For Each que recorra el rango determinado:

Código: Seleccionar todo

Sub negrita()
Dim celdaActual As Object
For Each celdaActual In Range("A1:H2")
    If celdaActual.Value = "S" Then
        celdaActual.Font.Bold = True
    Else
        celdaActual.Font.Bold = False
    End If
Next
End Sub

no olvides el Else y asignar False a la Negrita ya que si tienes "S" le pondrá negrita pero si cambias el valor no vuelve a menos que específicamente se lo digas en el Else

[Emiliano Zapata]

Tengo entendido que formato condicional es aquel en el cual no hay formulas verdad?

Porque si es asi, si necesitaria el formato condicional, voy a probar como mencionas.

Gracias Quique.

[elQuique]

Ahí te deje los dos ejemplos y te agrego los archivos en formato Excel 2010 (que es compatible con 2007) y 2003 por las dudas, aunque este último no creo conserve el formato condicional de forma correcta, pero van ambas cosas aplicadas formato condicional y VBA :)

Descargar ejemplo "Celdas con formato según contenido con Formato Condicional y/o VBA"

[Emiliano Zapata]

No andaba muy cerca que digamos XD.


De nuevo gracias Quique por tu excelente explicación.



Saludos.