Печатаем лист, проверяем наличие заполнения ячеек. При условии что они заполнены идет печать, после данные в этих ячейках обнуляются.
Работает не совсем верно. При проверке ячейка D3, если она заполнена сразу идет печать. Подскажите как исправить.
Работает не совсем верно. При проверке ячейка D3, если она заполнена сразу идет печать. Подскажите как исправить.
Код |
---|
Sub Add_Sell() With Sheets("Смена") If Not IsEmpty(.[F1]) And IsEmpty(.[D3,F5,F6,F11,D16]) = False Then .PrintOut Copies:=1, Collate:=True .[F1,D3,F5,F6,F11,B14:F14,D16].ClearContents Else MsgBox "Необходимо заполнить всю информацию!" End If End With End Sub |