Private Sub CommandButton1_Click()
ActiveSheet.Select
ActiveSheet.Copy
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs [q1]
ActiveSheet.Range("$A$9:$O$30").AutoFilter Field:=2, Criteria1:="<>-"
End Sub
Но есть маленькая проблема, код выгружает вместе с кнопкой на которой и сидит сам макрос, в результате остается связь сданной книгой. Возможно выгрузить чистые данные без кнопок и связей, короче чистый файл
skais675, можно ещё одно уточнение, как в новь создавшейся книге стереть все макросы на сайте поискал, есть варианты программным способом, но все не мой вариант. Как понимаю данный код стирает только кнопку
Вроде все работало, и начала выскакивать ошибка runtime error 1004, после работы кода выгрузки в новую книгу, но файл создается под названием "книга...", возникает ошибка в строке
adamm У Вас столько вопросов в одной теме. Постарайтесь сами разобраться - явно что-то не в порядке с именем или доступом. Проверяйте можете ли Вы без участия макросов в ручную сохранить такой файл с таким именем по такому-то пути, и будет Вам ответ.
Ок, попробую, спасибо Вы оказались правы, знак "/", не давал сохраниться файлу. Иногда проблема перед глазами, а я пытаюсь рыть глубже! Еще раз спасибо!