Para Dante Amor
buenos días
tengo un inconveniente quiero pintar de color las celdas en blanco que tienen un rango en particular, no puedo darle rango especifico porque los datos varían, después de eso quisiera que la fuente se agrande
-pintar todo los espacios vacíos de un color
-ajustar el texto de las celdas
-cambiar de tamaño la fuente a 14
la macro que e hecho solo llega a identificar un espacio en blanco pero cuando hay 2 seguidos se detiene y regresa al inicio por favor espero puedas ayudarme
Range("a1").Select
While ActiveCell <> ""
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "" Then
ActiveCell.Interior.ColorIndex = 16
ActiveCell.Font.Size = 14
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveCell.Offset(1, 0).Select
End If
Wend
End Sub
1 respuesta
me muestra un error diciendo "se requiere un objeto"
Perdona, pero esta no es la macro que me enviaste por correo.
Quedaría así:
Sub pintar()
'Por.DAM
Columns("A:A").SpecialCells(xlCellTypeBlanks).Select
With Selection
.Interior.ColorIndex = 16
.Font.Size = 14
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
End With
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
Gracias ya pinta los espacios en blanco pero como podría darle formato tengo un archivo no se si pueda enviártelo para que puedas revisarlo.
¿Qué formato le falta?
Tal vez esto, es lo que tienes en tu macro
Sub pintar()
'Por.DAM
Columns("A:A").SpecialCells(xlCellTypeBlanks).Select
With Selection
.Interior.ColorIndex = 16
.Font.Size = 14
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.WrapText = True
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
Dante que tal te envíe un correo para que puedas más o menos entenderme a lo que me refiero
También podrías finalizar esta pregunta, escríbeme cuando necesites otra macro.
