Сохраните копию рабочего листа, используя значение ячейки из другого листа в той же книге. Проверьте, существует ли уже имя - PullRequest
Новая
       95

Сохраните копию рабочего листа, используя значение ячейки из другого листа в той же книге. Проверьте, существует ли уже имя

0 голосов
/ 29 мая 2020

Я новичок в использовании VBA и создании книги. У меня есть рабочий лист в книге, в котором я обновляю некоторые ячейки, затем я хочу нажать кнопку команды (2) и сохранить копию рабочего листа, используя значение ячейки из другого рабочего листа, расположенного в той же книге. Я дошел до стадии, когда я могу щелкнуть свою командную кнопку (2), и она правильно сохраняется при первом нажатии командной кнопки (2). Проблема заключается в том, что при нажатии кнопки 2 во второй или в третий раз отображается ошибка отладки и лист сохраняется как дубликат с использованием активного листа (где находится кнопка 2). Я перепробовал все, но с моими ограниченными знаниями не уверен насчет второй части модуля, в частности AsString. Значение "A1" взято из модуля, который я вырезал и вставил из net. Любая помощь будет принята с благодарностью. 

If RangeExists("LastSheet") Then
    MsgBox "Sheet already exists."
Else
    Sheet14.Copy After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Worksheets("Data Entry").Range("Q3").Value
End If

End Sub

Функция RangeExists (WhatSheet As String, необязательный ByVal WhatRange As String = "A1") As Boolean Dim test As Range On Error Resume Далее Установить test = ActiveWorkbook.Sheets (WhatSheet) .Range (WhatRange) RangeExists = Err.Number = 0 При ошибке GoTo 0 Завершить функцию

...