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 Respuesta
Respuesta de Dante Amor
1
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 SubCambia 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
.
