Здравствуйте! Пожалуйста помогите допилить макрос, нужно что бы он по условию ячейки (1 сохраняет, 0 не сохраняет) сохранял лист из общей книги в отдельный файл в формате .xls но этот макрос не сохраняет, уже и так и сяк а он не вкакую
Код
With Sheets("Лист5")
If .Cells(1, 10) = 0 Then ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & .[s1] & ".xls"
End With
Если надо лист, нафига же Вы пишете сохранить книгу: ActiveWorkbook.SaveAs? И кто Вам не дает самостоятельно почитать справку по SaveAs? Который раз уже за сегодня об этом у Вас спрашиваю!
Код
With Sheets("Лист5")
If .Cells(1, 10) = 0 Then .SaveAs ThisWorkbook.Path & "\" & .[s1] & ".xls", 56
End With