Я работаю с существующей рабочей книгой на рабочем листе (xlsb). Я хочу использовать командную кнопку управления ActiveX, чтобы скопировать и вставить (только значения и защитить значения ячеек или блокировку значений) два листа существующей рабочей книги в новую рабочую книгу. Затем мне нужен макрос для запуска в новой книге, которая удаляет столбец / строки. Я очень новичок в VBA и безуспешно.
Код работает, но мы хотим, чтобы код удаления столбца / строки «Sub Macro_RUN_IN_New_Workbook» выполнялся после того, как листы скопированы и вставлены в новую рабочую книгу. В настоящее время код выполняется как в существующей книге, так и в новой книге. Нам нужен код для запуска только в новой книге.
Вот усеченный кусок кода:
Частный Sub CommandButton1_Click()
Dim Acmebook As Workbook Dim Acmeheet As Worksheet Набор Acmebook = ActiveWorkbook Set Acmesheet = Acmebook.Рабочие листы ("Лист для копирования")
Sub Macro_RUN_IN_New_Workbook()
«Удалить ноль разделов» Если диапазон («L106:L104»).Значение = "N/A - N/A" Тогда
Rows("99:107").Delete
Конец, если
End Sub
Рабочие листы (Array ("Array1", "Arrays2")).Копирование с ActiveWorkbook заканчивается
Листы ("Array1").Клетки.Копирование листов ("Массив1").Клетки.PasteSpecial Paste:= xlPasteValues Приложение.CutCopyMode = False
Call Worksheets("Array1").Protect(UserInterfaceOnly:= True) End Sub