Dar formato a celda con un dato determinado

Tengo una macro que busca las palabras "BASE DE DATOS ACTUAL" y las pone en negrita. ¿Cómo darle el tamano de 14 a dicha palabra?

Sub negrita()
Dim celdaActual As Object
For Each celdaActual In Range("A5:c18")
    If celdaActual.Value = "BASE DE DATOS ACTUAL" Then
        celdaActual.Font.Bold = True
    Else
        celdaActual.Font.Bold = False
    End If
Next
End Sub
1

1 Respuesta

3.691.975 pts. Si me amas, siempre voy a estar en tu corazón; si me...

Te anexo la macro actualizada

Sub negrita()
    Dim celdaActual As Object
    For Each celdaActual In Range("A5:c18")
        If celdaActual.Value = "BASE DE DATOS ACTUAL" Then
            celdaActual.Font.Bold = True
            celdaActual.Font.Size = 14
        Else
            celdaActual.Font.Bold = False
            celdaActual.Font.Size = 11  'cambiar el número al tamaño original
        End If
    Next
End Sub

Cambia el 11 por el tamaño que desees, cuando la celda no tiene el texto.


.

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

.

Avísame cualquier duda

.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas