Повторить макрос после ввода UserForm

Макрос, открывая книгу, будет смотреть, есть ли в ячейке «C27» любой из следующих текстов: Location1, Location2, Location3 или Location4. Если они это сделают, он продолжит сохранять 2 копии файлов шаблона по этим местоположениям. Если нет, то он откроет UserForm. Чтобы выбрать правильное местоположение из ComboBox.

Как я могу сбросить проверку после закрытия UserForm, я попробовал Call Auto_Open после разгрузки, но он не работал.

макрос

Sub Auto_Open() With Range("B30") .Value = Time .NumberFormat = "h-mm-ss AM/PM" End With Dim FileName As String Dim FilePath As String Dim FileDate As String Select Case Range("C27").Value Case "Location1", "Location2", "Location3", "Location4" FilePath = "C:\Users\aholiday\Desktop\FRF_Data_Macro_Insert_Test" FileName = Sheets("Data").Range("C27").Text Application.DisplayAlerts = False ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName Dim FileCopyName As String Dim FileCopyPath As String Dim FileTime As String FilePath = "C:\Users\aholiday\Desktop\Backup" FileName = Sheets("Data").Range("C27").Text FileTime = Sheets("Data").Range("B30").Text ThisWorkbook.SaveAs FileName:=FilePath & "\" & FileName & Space(1) & FileTime & ".xlsx", FileFormat:=xlOpenXMLWorkbook MsgBox "File was saved! Ready for Next Test, Please Exit." Case Else MsgBox "File was not saved, Please Insert The Correct Testing Location" UserForm.Show Exit Sub End Select Application.DisplayAlerts = True End Sub 

UserForm

 Private Sub UserForm_Initialize() 'Empty TestLocation Box TestLocation.Clear 'Fill TestLocation Box With TestLocation .AddItem "Location1" .AddItem "Location2" .AddItem "Location3" .AddItem "Location4" End With End Sub 

«———————

 Private Sub Insert_Click() Sheets("Data").Activate Range("C27").Value = TestLocation.Value End Sub 

«——————–

 Private Sub CloseBox_Click() Unload Me End Sub 

Используя следующий код для кнопки вставки:

 Private Sub Insert_Click() Sheets("Data").Range("C27").Value = TestLocation.Value Auto_Open End Sub 

Код будет работать (проверял его), если в модуле есть код Auto_Open.

Если вы поместите подменю Auto_Open в эту книгу, переместите ее в модуль.

Затем используйте следующий код в этой книге:

 Private Sub Workbook_Open() Auto_Open End Sub 

Также:

 Case "Location1", "Location2", "Location1", "Location4" 

Должно быть:

 Case "Location1", "Location2", "Location3", "Location4" 
  • Добавление изображения в рабочий лист из пользовательской формы (excel vba)
  • Можете ли вы использовать оператор if, чтобы решить, в чем UserForm помещать информацию?
  • Как прокрутить флажки на динамически созданной пользовательской форме?
  • Автоматизировать идентификатор с помощью пользовательских записей - Excel
  • Excel VBA UserForm блокирует лист
  • Excel VBA UserForm - если не IsEmpty Then
  • VBA Excel 2013: назначение значений массива из другой пользовательской формы
  • EXCEL VBA: код пользовательской формы, улучшение повторяющихся кодов
  • Выбор и удаление листов Excel с помощью пользовательской формы
  • Excel начал сбой на нескольких компьютерах и несколько версий пользовательской формы
  • Excel 2013 64 бит - Пользовательская форма VBA - добавьте 28 дней до даты текстового поля и отобразите в другом текстовом поле
  • Interesting Posts

    Увеличьте значение в таблицах (+1), когда выберете определенное имя из раскрывающегося списка

    Excel: добавьте номер перед умножением на PRODUCT (…)

    UNION ALL с файлом Excel в качестве источника данных

    Excel – VBA транспонирует вектор

    SSIS Импорт из excel с именами столбцов в первом столбце

    Excel: предыдущие значения из диапазонов

    Спросите пользователя, какое приложение открывает гиперссылку

    определяемая приложением или объектная ошибка при установке переменной диапазона

    Вложенный IF возвращает окончательное значение без проверки других условий

    Используйте xls, csv или другой тип файла для создания массива float в Objective-C

    Функция массива на логическом тестировании OFFSET

    Как отправить электронное письмо в Bloomberg с помощью VBA?

    Как преобразовать матрицу в таблицу с четырьмя столбцами без использования VBA (Data-PivotTable и PivotChart Report)

    Хотите импортировать данные из Sheet3 из всех книг в мастерскую книгу?

    Как сделать пользовательскую функцию с подключением ADO

    Давайте будем гением компьютера.