SI celdas en blanco no realizar macro

Lo que tengo es esto:
Sub EMITIR()
    Sheets("Factura").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ScreenUpdating = False
    Sheets("EMITIDAS").Select
    Range("A3:g3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("FACTURA").Select
    Range("AN8:At8").Select
    Selection.Copy
    Sheets("EMITIDAS").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("NUEVA").Select
    Application.CutCopyMode = False
    Range("h6:h11").Select
    Selection.ClearContents
    Range("I6:I11").Select
    Selection.ClearContents
    Range("D6").Select
    Selection.ClearContents
    Range("D6").Select
    End Sub
Quisiera que antes de hacer esto revisara la celda A1 y A2 de la hoja "NUEVA", si estas se encuentran en blanco(valor 0) no realizar la macro.
saludos, atte Diego

1 respuesta

Respuesta
1
Intenta con esto:
Sub EMITIR()
Sheets("NUEVA").Select
If Range("A1") = "" Or Range("A2") = "" Then
    Sheets("Factura").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    Application.ScreenUpdating = False
    Sheets("EMITIDAS").Select
    Range("A3:g3").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Sheets("FACTURA").Select
    Range("AN8:At8").Select
    Selection.Copy
    Sheets("EMITIDAS").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("NUEVA").Select
    Application.CutCopyMode = False
    Range("h6:h11").Select
    Selection.ClearContents
    Range("I6:I11").Select
    Selection.ClearContents
    Range("D6").Select
    Selection.ClearContents
    Range("D6").Select
Else
'nada
End If
End Sub
Si te funciona, cierra la consulta, sino me dices para intentar ayudarte de nuevo.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas