Я нахожусь в процессе создания рабочей книги, которая отслеживает приход временного персонала в магазин и его продвижение по программе обучения.
У меня есть две страницы, основной лист с перечнем временного персонала подследующие заголовки: Имя, Дата начала и Дата окончания.Также есть кнопка для создания новых листов.Второй лист - это шаблон, используемый для форматирования новых листов.
На данный момент работает:
Кнопка Добавить новый лист - создает новый лист, предлагает пользователю назвать лист и форматирует новый.лист с использованием шаблона.
Что я хотел бы добавить:
После того, как пользователь вводит информацию временного сотрудника, он нажимает кнопку добавления нового листа.В дополнение к функциям, которые уже работают, я бы хотел, чтобы кнопка добавила гиперссылку на ячейку «Имя», в которую пользователь только что ввел информацию, чтобы эта ячейка перенесла пользователя на страницу отслеживания обучения для этого человека.
Также,Я хотел бы, чтобы кнопка взяла информацию (имя, дату начала и дату окончания) для этого человека и скопировала ее на новый лист.
У меня нет большого опыта в кодировании, мне удалосьвзять пример кода и внести небольшие изменения, чтобы понять, что работает сейчас.Я не знаю, возможно ли то, что я спрашиваю, или нет.Главное, чтобы каждый раз, когда пользователь вводил информацию о новом человеке и нажимал кнопку добавления нового листа, информация о нужном человеке копировалась на новый лист, а гиперссылка перенаправляла пользователя на трекер обучения нужного человека.
Спасибо за любую помощь, она ценится.
Ниже приведен код для того, что я работаю до сих пор.
Private Sub AddSheet_Click()
Dim DefaultSheetName As String
Worksheets("Template").Copy Before:=Worksheets("Template")
DefaultSheetName = ActiveSheet.Name
Application.Dialogs(xlDialogWorkbookName).Show
If ActiveSheet.Name = DefaultSheetName Then
MsgBox "You didn't name the new sheet." & vbCrLf & _
"Processing cancelled", vbExclamation
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End If
End Sub