при нажатии кнопки 1 запускался модуль 2 а в нем переменная n была равна 1,

[Vceznayka]

Ситуация такова
Имеется форма (User Forms) с кнопками
1 2 3 . . . 53
Имеется модуль (Module2) с программой Sub Program () … end Sub
В программе в зависимости от переменной n ссылается на фил

Sub Program45(n)

n = ???????

Windows(n & "in.xls").Activate
Rows("3:3000").Select
Selection.Copy
Windows("a-trafic_2011.xlsm").Activate
Worksheets("46in").Activate
Rows("3:3000").Select
ActiveSheet.Paste
With Selection.Font
.Name = "Arial"
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
.
.
.
End Sub


Необходима
при нажатии кнопки 1 запускался модуль 2 а в нем переменная n была равна 1,
при нажатии кнопки 2 запускался модуль 2 а в нем переменная n была равна 2,
.
.
.
при нажатии кнопки 53 запускался модуль 2 а в нем переменная n была равна53,


Заранее благодарю!!!

[EducatedFool]

А вам не лень было рисовать 53 кнопки?
Проще ведь сделать выпадающий список с номерами от 1 до 53,
и рядом кнопку Запуск.

PS: Можно и проще сделать - но надо видеть ваш файл Excel
(и ваше разъяснение, для чего всё это нужно)

[Vceznayka]

Ребята мне прост надо знать как с User Forms
Private Sub CommandButton1_Click()
End Sub

Отправить значение n = 1 в Module2
Sub Program45(n)
. ..
End Sab

[Hugo121]

Можно так:
по кнопке выполняем
Program45 1
или
Program45 2
или
Program45 3
и т.д.

Sub tt()
Program45 2
End Sub

Sub Program45(n)
MsgBox n
End Sub

Или другой вариант - n объявляем публичной, а по кнопке задаём значение для n и затем выполнаем Program45() без параметра (в этой процедуре используем публичную переменную с присвоенным извне значением).

Но конечно можно количество кнопок сократить.
Если не нужно подобие шахматной доски конечно...

[vikttur]

Не только 53 кнопки - еще и по процедуре (одинаковой) на каждую!
Пишите в TexBox название файла и передавайте этот текст в макрос. Можно выбирать число в ComboBox.

[alex77755]

Загнать кнопки в массив и будет у каждой кнопки свой индекс.
Написать одну процедуру для массивов кнопок и передавать в модуль индекс кнопки

[Vceznayka]

Написал
Private Sub CommandButton1_Click()
Program45 1
Unload Me
End Sub
Дает ошибку Wrong number of arguments or invalid property assignment
Потом попробовал так
Private Sub CommandButton1_Click()
Application.Run Program45, n = 1
Unload Me
End Sub

тоже ничего, дает ошибку Expected Function or variable

[vikttur]

Читали мысли вслух?

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

PS: Можно и проще сделать - но надо видеть ваш файл Excel (и ваше разъяснение, для чего всё это нужно)

[Hugo121]

Я выше написал проверенный код - больше без Вашего файла сказать нечего.

[Vceznayka]

Еще раз повтарюсь, Ребята мне прост надо знать как с User Forms при нажатии кнопки 1
Private Sub CommandButton1_Click()
????? n=1
End Sub

Отправить значение n = 1 в Module2
Sub Program45(???)
что тут вписать чтобы было n=1


. ..
End Sab