Здравствуйте, подскажите в чем ошибка, есть книга, в книге н-ное количество листов, в каких то случаях при выполнении условия ставится нумерация, при каких то нет, и те листы где нет нумерации, нужно удалить, есть такая вот связка, но если в ячейке находится формула, он ее не трогает, хотя в ячйке вроде и нет ничего
Код |
---|
=ЕСЛИ(СУММ(G108:G113)>=1;"+";"") |
Код |
---|
Sub DeleteSheets()
Dim i As Integer
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
If IsEmpty(Sheets(i).Cells(139, 24)) Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub
|
в общем в ячейке Х139 если стоит плюс, то лист должен остаться, если там пусто то удалиться, или в макросе прописать например что при + остается, при - удаляется лист, в примере несколько вкладок, тест1 там стоит просто +, тест2 там ставится плюс формулой, тест3 стоит формула, но + не ставится, и тест4, просто пустой лист, удаляется только тест4, хотя надо и тест3, заранее спасибо