Macro cambiar Formato Celdas excel 2010
Dam:
Sobre el archivo que envié a tu correo ya me habías asesorado antes, permíteme por favor algunas preguntas que describo en el archivo.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo las macros para imprimir
Public varimpresion
Sub ImprimirDesdeBoton()
'Por.Dante Amor
'Imprimir celdas
celdas = Array("AA3", "E8", "U8", "AE8", _
"E8", "U9", "AA9", "AD9", _
"E10", "AC10", "U10", _
"E11", "V11", _
"A13", "E13", "O13", "Z13", _
"A15", "E15", "N15", "Z15", _
"A17", "E17", "N17", "Z17", _
"A19", "E19", "N19", "Z19", _
"A21", "E21", "N21", "AD21", _
"Y24", "N25", "X25", "AC25")
'validar celdas
Valcel = Array("E8", "E9", "E10", "U10", "AD21", "N25", "X25", "AC25")
For c = LBound(valcel) To UBound(valcel)
If Range(valcel(c)).Value = "" Or Range(valcel(c)).Value = 0 Then
MsgBox "Existen datos sin Ingresar"
Cancel = True
Range(valcel(c)).Select
Exit For
End If
Next
'
varimpresion = True
Cells.Font.ColorIndex = 2
For c = LBound(celdas) To UBound(celdas)
Range(celdas(c)).Font.ColorIndex = xlAutomatic
Next
ActiveSheet.PrintOut
Cells.Font.ColorIndex = xlAutomatic
varimpresion = False
End Sub
'
Sub VistaPreliminar()
'Por.Dante Amor
varimpresion = True
ActiveSheet.PrintPreview
varimpresion = False
End Sub' : ) 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias ' : )
