Переменная из листов в форму

[Severny]

Добрый всем день!
Подскажие пожалуйста как быть в следующей ситуации? Есть листы. Есть одна форма которая вызывается из этих листов. В форму заносится значение переменной которое берется из разных ячеек на каждом листе. То есть на Листе1 когда вызывается форма она берет значение ячейки А1, на Листе 2 когда вызывается таже форма берется значение АА50. В форме я использую ActiveSheet.... А как на листах объявить переменные и присвоить им нужное значение?

[Watcher_1]

А зачем это делать?
Если хотите менять значение переменной в зависимости от листа просто смотрите на порядковый номер текущего листа и в зависимости от этого задавайте значение переменной

Например

Sub m()
    Select Case ActiveSheet.Index
    Case 1
      MsgBox "1"
    Case 2
      MsgBox "2"
    Case 3
      MsgBox "3"
    End Select
    
End Sub

[Казанский]

> В форме я использую ActiveSheet

Если листов немного, можно при активации формы выполнять примерно такой код:

Dim MyVar 'переменная в модуле формы

Private Sub UserForm_Initialize()
Select Case ActiveSheet.Name
Case "Лист1": MyVar = [A1]
Case "Лист2": MyVar = [AA50]
'и т.д.
End Select
End Sub

Если листов много, составьте таблицу Имя листа - Адрес ячейки на отдельном скрытом листе и используйте ВПР. Например, если таблица находится в столбцах А, В листа "список":

MyVar = evaluate(application.VLOOKUP(activesheet.name,[список!A1:B99],2,0))

[Severny]

Watcher_1, Казанский Листы время от времени добавляются. При том на некоторых используется форма, на некоторых нет. Получается что прийдется каждый раз переписывать код формы. Я предполагал просто в лист с которого будет вызываться форма бросать небольшой код в котором просто пропишу ту ячейку с которого будет подтягиваться значение в форму, когда ее запусаешь с этого листа.

ActiveSheet.Name это имя что я могу менять?

[Hugo121]

Может быть использовать Find?
Искать на листе кодовое слово, далее оффсетом брать значение рядом.
Тогда нет проблем с добавлением листов - главное обозначить, где лежат нужные данные.
Причём если кодовое слово не нашлось, то форму можно не показывать вовсе.
Т.е. при вызове формы сперва ищем код, если нашли - передаём в public переменную нужное значение, открываем форму.
Если не нашлось - вызов игнорируем или пишем типа "Ошибка, данных нет."

[Казанский]

> Получается что прийдется каждый раз переписывать код формы.
В моем втором варианте - нет. Просто добавить строку в список.

Можно и "небольшой код". В обычном модуле

Public MyVar

В коде листа1

MyVar = [A1]
UserForm1.Show

В коде листа2

MyVar = [AA50]
UserForm1.Show

В коде формы

Private Sub UserForm_initialize()
Label1 = MyVar 'например
End Sub

[Severny]

Сообщение от Hugo121

Может быть использовать Find?

Интересная идея, но не будет ли долго искать то самое слово по всему листу?

[Severny]

Сообщение от Казанский

MyVar = [A1]
UserForm1.Show

MyVar = [AA50]
UserForm1.Show

"Облечь" в любую процедуру?:

Private Sub ..... ()
MyVar = [A1]
UserForm1.Show
End Sub

[Hugo121]

Сообщение от Severny

Интересная идея, но не будет ли долго искать то самое слово по всему листу?

- моргнуть не успеете
Главное - придумать уникальное слово...

[Severny]

Сообщение от Hugo121

- моргнуть не успеете
Главное - придумать уникальное слово...

Переменная подтягивается в процедуру на событие изменения в одном из 2-х ТекстБоксов? Не медленно ли мне прийтеся моргать?
За уникальное слово можно взять фразу в шапке колонки в котором сидит мое значение. А можно небольшой примерчик с Find?