Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Опрос по ячейкам и вывод на печать, Опрос по ячейкам и вывод на печать
 
Печатаем лист, проверяем наличие заполнения ячеек. При условии что они заполнены идет печать, после данные в этих ячейках обнуляются.
Работает не совсем верно. При проверке ячейка 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
 
Код
Sub Add_Sell()
With Worksheets("Смена")
    Set Rng = .Range("F1,D3,F5,F6,F11,D16")
    If Intersect(Rng, .Cells.SpecialCells(xlCellTypeBlanks)) Is Nothing Then
        .PrintOut Copies:=1, Collate:=True
        Rng.ClearContents
    Else
        MsgBox "Необходимо заполнить всю информацию!"
    End If
End With
End Sub
Согласие есть продукт при полном непротивлении сторон.
 
Sanja, спасибо. Все работает.
Изменено: mukhametov - 2 Мар 2017 12:06:29
Страницы: 1
Читают тему (гостей: 1)