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
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
' : )

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas