Macro para rellenar datos en dilas con letra con color rojo y fondo color amarillo
Estimado Dante Amor
Por favor a tu MACRO de rellenar datos en filas, podrias modificarla para que los datos rellenados o copiados en las filas vacias sean escritos con letra "roja" y con fondo "amarillo".
Muchas gracias por compratir tus conocimientos.
saludos JOHNMOR41 - PERU
1 respuesta
Respuesta de Dante Amor
1
Te anexo la macro para pintar las celdas
Sub Rellenar()
'Por.Dante Amor
Application.ScreenUpdating = False
Columns("A:F").UnMerge
u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row
Range("A1:F" & u).SpecialCells(xlCellTypeBlanks).Select
'
With Selection
.FormulaR1C1 = "=R[-1]C"
.Interior.Pattern = xlSolid
.Interior.PatternColorIndex = xlAutomatic
.Interior.Color = 65535
.Interior.TintAndShade = 0
.Interior.PatternTintAndShade = 0
.Font.Color = -16776961
.Font.TintAndShade = 0
End With
'
Columns("A:F").Copy
Range("A1").PasteSpecial Paste:=xlPasteValues
Application.ScreenUpdating = True
Application.CutCopyMode = False
End SubFeliz año 2015, te desea Dante Amor!
No olvides valorar la respuesta.
