Скопируйте пасту с VBA и списком

Question

Я совершенно новый для VBA, и я не могу найти правильный способ решить мою следующую проблему.

У меня есть книга Excel с 5 рабочими листами. Последние 3 листа заполнены данными, а первый - списком с именами трех последних листов внутри него. Я хочу, чтобы, когда я выбираю в списке имя одного из этих рабочих листов, он копируется на второй лист, который пуст.

Допустим, я выбираю таблицу 4 в списке, таблица 2 теперь копия пасты листа 4.

Answer 1

Вставьте это в код модуля Лист1 «s.
Изменить эти:

1. Sheet2Name
2. Sheet1NamesListAddress
3. NewName

   Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    
       Const Sheet2Name = "Sheet2" 
    
       Const Sheet1NamesListAddress = "A1:A10" 
    
       Const NewName = "New Name" 
    
   
    
       If Not Intersect(ActiveCell, Range(Sheet1NamesListAddress)) Is Nothing Then 
    
        Application.DisplayAlerts = False 
    
        On Error Resume Next 
    
        Sheets(Target.Text).Copy Before:=Sheets(2) 
    
        ThisWorkbook.Worksheets(Target.Text).Delete 
    
        Sheets(2).Name = NewName 
    
        Application.DisplayAlerts = False 
    
        On Error GoTo 0 
    
       End If 
    
   End Sub