проблемма с передачей подпрограммы

[BaBaBaBaBaBa]

проблемма с включением подпрограммы
возможно ошибка глупая к сожалению давно не работал с vba забыл всё.. но своими силами решить не смог

Код: Выделить всё

Private Sub CommandButton1_Click()
..
Run Generat(12)
UserForm1.Hide
End Sub

Sub Generat(aa)
MsgBox aa
end sub


выделяется Run GENERAT и пишется sub or function not defined
заранее извеняюсь за дурацкий вопрос но сам исправить немогу

[iGrok]

Мда. Откуда ж ты этот "Run" выкопал? Убери его нафиг, и всё заработает..

[BaBaBaBaBaBa]

к сожалению не всё так просто.... это я уже пробовал не помогло
да и вроде была такая команда Run....
вообщем вопрос остаётся открыт

[alibek]

Тебе уже дали ответ.

[BaBaBaBaBaBa]

может я что то не так понял??

Код: Выделить всё

Private Sub CommandButton1_Click()
..
Generat (12)
UserForm1.Hide
End Sub

Sub Generat(aa)
MsgBox aa
end sub


такой вариант тоже не работает - ошибка та же самая- не определена процедура Generat

[Estilla]

может я что то не так понял??
такой вариант тоже не работает - ошибка та же самая- не определена процедура Generat

значит имена не совпадают. Скопируй имя процедуры Generate.
а вместо Run имелся в виду Call, но он не обязателен

Вставь это , работает?

Код: Выделить всё

Private Sub CommandButton1_Click()
Generat 12
End Sub

Sub Generat(pass As Integer)
MsgBox (pass)
End Sub


[BaBaBaBaBaBa]

да с именами в порядке всё... разные варианты пробовал.. и Call писал..... результат один и тотже- функция не определена.... хз вроде на старом компе все подобные конструкции прекрасно работали.... сейчас что то не то..... синтаксис вроде верный.. или нет?

[Estilla]

проверь мой файл и посмотри что не так у тебя. мой файл рабочий

[ANDLL]

Предсказываю: Generat и _Click в разных файлах он объявил

[BaBaBaBaBaBa]

всё спасибо.... проблемма была в том что процедура Generat была написанна в окне ЭтаКнига1 а вызывалась из юзерформ. надеюсь вы поняли..... раньше таких проблемм не было процедуры вроде бы можно было вызывать откуда угодно или нет?

[BaBaBaBaBaBa]

Нострадамус)))) но вроде раньше же можно было??