Страницы: 1
RSS
Макрос в зависимости от названия листа
 
Нужен макрос, чтобы в зависимости от названия листа копировались разные области. Например:
Если название листа Full, то скопировать A1:A10
Если название листа Basic, то скопировать B1:B10.
 
Код
Sub test()
    Select Case ActiveSheet.Name
    Case "Full"
        Range("A1:A10").Copy
    Case "Basic"
        Range("B1:B10").Copy
    End Select
End Sub
 
Код
Sub test2()
    Cells(1, -0.25 * Asc(Left(ActiveSheet.Name, 1)) + 18.5).Resize(10).Copy
End Sub
 
Цитата
КодSub test()
   Select Case ActiveSheet.Name
   Case "Full"
       Range("A1:A10").Copy
   Case "Basic"
       Range("B1:B10").Copy
   End Select
End Sub
Большое спасибо, всё сработало!
Страницы: 1
Наверх