Помогите передать значения переменных

[own]

Приветствую Всех

Проблема такая, в VBAпроекте два модуля, надо значения переменных
1го модуля передать во 2ой модуль, чтобы там эти значения использовались.
Есть ли решение этой проблемки.

[Tuco]

Объяви их глобально:

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

public VariableName as ...

[own]

Дело в том что они не объявлены, они созданы внутри процедуры,
вот так:

r = fc.row
а потом эта переменная вставляется сюда

Cells( r , 3 )

в следующей процедуре эта переменная значения не имеет
вот как ее получить это же значение в другой процедуре?

[Tuco]

но ведь где-то ты объявляешь переменную "r"? Так кто мешает объявить её в модуле как Public?

[own]

Большое человеческое спасибо, попробую сегодня, если не получится, напишу.

[own]

Знать Ситуация такая, переменная "r" ни где в модуле не объявляется,
вот что у меня есть:

Применяю конструкцию For Each-Nexт для поиска ячейки, объявлены только 2 переменные связанные с конструкцией, внутри кострукции пишу r = fc.row, т.е. r - принемает номер строки.
Затем процедура кончается.

Новая процедура там надо занести значение в ячейку, для этого
я пишу ........Cells( r, 1)..... вот здесь "r" номер строки не имеет, поэтому выскакивает ошибка.
[/b]

[Tuco]

но ведь где-то есть такая строка Dim r as integer (или long)? Иначе он бы ругался и требовал объявления переменной...

[own]

В том то и дело что нет, а неругается потому что On Error Resume next
Вот посмотри прмерно такой код у меня:

Sub okbutton_Click()
Dim ws As Worksheet
Dim wb As Workbook
For each wb in workbooks
For each ws in wb.worksheets
On Error Resume Next
Set fc = ws.usedrange.find ......
r = fc.row
next
next
End Sub

Sub format_Click()
g = TextBox1
' Здесь будет ошибка т.к. в этой процедуре r- уже неизвестен
Sheets("Лист2").Cells(r, 1) = g
End Sub

[Tuco]

Во всех учебниках рекомендовано, чтобы в каждом модуле была такая строка: Option Explicit. Тогда все необъявленные переменные не смогут иметь место. Ну а дальше, объяви в одном из модулей переменную, как Public.

[own]

ок попробую.
Благодарствую и ниииизкий поклоон,
завтра отпишусь что получилось или не получилось.

[own]

не дождался завтра пробовал сейчас, и всеравно ничего не получается, вот давай попробуем на простом примере, допустим вот такой код:

Создаем UserForm
На нее кнопку и textBox1

1ая процедура

Sub TextBox()
r = TextBox1
End Sub

2ая процедура

Sub CommandButton1_Click()
Sheets("Лист1").Cells(r, 1) = 444
End Sub

Как перенести значение "r" из 1ой во 2ую процедуру?

[alibek]

Тебе русским языком советовали, объяви переменную R как Global или Public и используй.

[Tuco]

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

public r as integer

Sub TextBox()
r = TextBox1
End Sub

Sub CommandButton1_Click()
Sheets("Лист1").Cells(r, 1) = 444
End Sub


[own]

Все ребята спасибо бальшое, я все понял УРАААААААА!!!!!!!!!
Да надо было просто объявлять в перели всех процедур.
СПАСИБО!!!!!


YESSSSSS