Foro SpamLoco

Publicado: **13 Feb 2013, 04:24**

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.

Publicado: **13 Feb 2013, 04:31**

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

Imagen

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

Publicado: **13 Feb 2013, 04:52**

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.

Publicado: **13 Feb 2013, 04:59**

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"

Publicado: **13 Feb 2013, 05:11**

No andaba muy cerca que digamos XD.

De nuevo gracias Quique por tu excelente explicación.

Saludos.

Foro SpamLoco

funcion VBA para negritas en Excel

funcion VBA para negritas en Excel

Re: funcion VBA

Re: funcion VBA

Re: funcion VBA

Re: funcion VBA para negritas en Excel