У меня есть следующий код для выбора ячейки с определенным именем и перехода на лист с именами после этой ячейки.

Dim ws As Worksheet
If Target.Address = "$A$1" Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Range("A1").Value Then
         ws.Activate
        End If
    Next ws
End If

Однако я хотел бы сделать это для клеток в столбце A! A1-A306 как мне изменить код?

1 ответ1

0

Я бы сделал это так - но это не так, глядя на ценность.Адрес

If Not (Intersect(Target, Range("A1:A306")) Is Nothing) Then
    For Each ws In ActiveWorkbook.Worksheets
        If ws.Name = Target.Value Then
         ws.Activate
        End If
    Next ws
End If

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .