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
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 de cecal
1