требуется распечатать лист при условии, если ячейка D14 содержит значение. Вот что я написала:

Private Sub CommandButton1_Click()
Dim wb As Workbook

Set wb = ThisWorkbook

If Not IsEmpty(wb.Worksheets.Item("Идеал").Range("D14")) Then
wb.Worksheets.Item("Идеал").PrintOut
ElseIf Not IsEmpty(wb.Worksheets.Item("Масленица").Range("D14")) Then
wb.Worksheets.Item("Масленица").PrintOut
ElseIf Not IsEmpty(wb.Worksheets.Item("Масленица_5л").Range("D14")) Then
wb.Worksheets.Item("Масленица_5л").PrintOut
ElseIf Not IsEmpty(wb.Worksheets.Item("Олейна_1л").Range("D14")) Then
wb.Worksheets.Item("Олейна_1л").PrintOut
ElseIf Not IsEmpty(wb.Worksheets.Item("Олейна_3л").Range("D14")) Then
wb.Worksheets.Item("Олейна_3л").PrintOut
ElseIf Not IsEmpty(wb.Worksheets.Item("Олейна_5л").Range("D14")) Then
wb.Worksheets.Item("Олейна_5л").PrintOut
End If

End Sub

Но дело в том, что плевать он хотел на условие, хоть есть значение, хоть нет его. Подскажите, че не так? И еще, ячейка D14 содержит формулу, то есть данные в ней появляются как сумма нескольких ячеек с другого листа, может быть проблема в этом? Но пробовала и указывать диапазон ячеек с того листа - то же самое, хоть есть значения в них, что нет, все равно лист печатается, то есть все листы, вне зависимости от условия. С печатью столкнулась в первый раз, поэтому скорей всего где-то моя ошибка. ХЭЛП!!!!

и когда пустая печатает и когда не пустая тоже печатает..... как будто условия вообще не стоит

как откуда? файл статичный. просто есть несколько листов, которые нужно распечатывать, если ячейка на каком-то из листов пустая, то этот лист не печается, если заполнена значением, то печатается....

FOksana Slonevskayaкак откуда? файл статичный. просто есть несколько листов, которые нужно распечатывать, если ячейка на каком-то из листов пустая, то этот лист не печается, если заполнена значением, то печатается....
Вы можете в отладчике посмотреть, что у вас реально в этой ячейке?
И вообще, отладчиком умеете пользоваться?

не очень умею, сейчас попытаюсь. вот что выдает в Immediate window

[auto_open] <
[SetupFunctionIDs] <
[SetupFunct 810
0
ionIDs] >
[PickPlatform] <
[PickPlatform] >
[VerifyOpen] <
[VerifyOpen] > 1
[RegisterFunctionIDs] <
[RegisterFunctionIDs] >
[auto_open] >



сначала значение было заполнено, я так понимаю вот эта строка и указывает на это [SetupFunct 810
0
затем я убрала значение, но все равно лист распечатывается

Вроде заработало вот так:

Private Sub CommandButton1_Click()
Dim wb As Workbook

Set wb = ThisWorkbook

If wb.Worksheets("Идеал").Range("D14").Value <> 0 Then
wb.Worksheets.Item("Идеал").PrintOut
ElseIf wb.Worksheets.Item("Масленица").Range("D14") <> 0 Then
wb.Worksheets.Item("Масленица").PrintOut
ElseIf wb.Worksheets.Item("Масленица_5л").Range("D14") <> 0 Then
wb.Worksheets.Item("Масленица_5л").PrintOut
ElseIf wb.Worksheets.Item("Олейна_1л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_1л").PrintOut
ElseIf wb.Worksheets.Item("Олейна_3л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_3л").PrintOut
ElseIf wb.Worksheets.Item("Олейна_5л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_5л").PrintOut
End If

End Sub

Но почему не хочет через Not IsEmpty не пойму

Пардон, вот так работает:

Private Sub CommandButton1_Click()
Dim wb As Workbook

Set wb = ThisWorkbook

If wb.Worksheets("Идеал").Range("D14").Value <> 0 Then
wb.Worksheets.Item("Идеал").PrintOut
End If
If wb.Worksheets.Item("Масленица").Range("D14") <> 0 Then
wb.Worksheets.Item("Масленица").PrintOut
End If
If wb.Worksheets.Item("Масленица_5л").Range("D14") <> 0 Then
wb.Worksheets.Item("Масленица_5л").PrintOut
End If
If wb.Worksheets.Item("Олейна_1л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_1л").PrintOut
End If
If wb.Worksheets.Item("Олейна_3л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_3л").PrintOut
End If
If wb.Worksheets.Item("Олейна_5л").Range("D14") <> 0 Then
wb.Worksheets.Item("Олейна_5л").PrintOut
End If

End Sub

не работает через Not IsEmpty, хотя должно, и не важно, будет там цикл или нет....

FИзучайте среду, в которой работаете. Отладчик это ваш главный рабочий инструмент. Пока что вы даже не знаете, что это такое.

я знаю, что такое отладчик, не надо передергивать, значение в ячейке пустое, это показывает и отладчик и глазами я это вижу, Вы пока ни одного сообщения по теме не дали....

m Неправильно...

А если 256 листов будет?
Слышали про циклы? Используйте:



Спасибо, учту, работает если пишу вместо if Not IsEmpty(sheets(i).cells(14,4).value) then вот так:
if (sheets(i).cells(14,4).value)<>0 then
Спасибо еще раз огромное за помощь

FOksana Slonevskayaне работает через Not IsEmpty, хотя должно, и не важно, будет там цикл или нет....
Пора бы задуматься, почему с нулем работает, а с IsEmpty - нет.

Если Вы такой умный - подскажите... Видимо Вы сами в этой среде знаете ровно столько, сколько и я

Hugo121А я вчера отдыхал... (это к тому, что меня вспоминали :) )
ячейка D14 содержит формулу - в этом случае она уже Not IsEmpty

а как добавить к этому циклу. чтоб печаталось не на принтер, установленный по умолчанию, а выбирать можно было через диалоговое окно "печать"?

Private Sub CommandButton1_Click()
Dim wb As Workbook


Set wb = ThisWorkbook



For i = 1 To Sheets.Count
If (Sheets(i).Cells(14, 4).Value) <> 0 Then
Sheets(i).PrintOut
End If
Next i

End Sub

снимаю вопрос, оставлю так, как есть ))))