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

[Hugo121]

Sub tt()
Dim x As Range
Set x = Columns(1).Find("Строительные материалы, изделия и конструкции", , xlValues, xlWhole)
If Not x Is Nothing Then Range([a1], x.Offset(-1)).EntireRow.Delete
End Sub

удаляет всё, что выше "Строительные материалы, изделия и конструкции", поиск в первом столбце.

[Severny]

Private Sub TextBox5_Change()
Dim Cena As Range
Dim iCena As Range
Set Cena = Columns(11).Find("Ціна за од., грн. з ПДВ", , xlValues, xlWhole)
If Not x Is Nothing Then iCena = Cena.Offset(1, 0).Value
TextBox6.Text = Format(Val(TextBox5.Text) * Val(iCena), "# ### ##0.00")
End Sub

Не работает
Columns(11) Ищется только в 11-м столбце листа?

[Severny]

Казанский Не могли бы Вы прикрепить простой рабочий примерчик. Пошел во Вашему пути и тоже не работает

[Hugo121]

Всё напутали. Внимательнее - поиском находите ячейку (диапазон), далее берёте в переменную значение ячейки по сдвигу.
У Вас там всё иначе, нужно всё править...
Сами сделаете?

Что-то вроде, но есть непонятные моменты:

Private Sub TextBox5_Change()
Dim Cena As Range
Dim iCena ' As что?
Set Cena = Columns(11).Find("Ціна за од., грн. з ПДВ", , xlValues, xlWhole)
If Not Cena Is Nothing Then
iCena = Cena.Offset(1, 0).Value
TextBox6.Text = Format(Val(TextBox5.Text) * Val(iCena), "# ### ##0.00")
End If
End Sub

И да, тут ищется по 11-му столбцу.
Если нужно иначе - задайте другой диапазон, хоть весь лист.

[Severny]

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

Что-то вроде, но есть непонятные моменты.
Если нужно иначе - задайте другой диапазон, хоть весь лист.

Какие именно непонятные моменты?
Место Colums что писать когда весь лист?

[Казанский]

> Не могли бы Вы прикрепить простой рабочий примерчик

Оба варианта

[Hugo121]

Непонятно, что из себя представляет iCena = Cena.Offset(1, 0).Value

Ну и если искать по всему листу:
Sheets(1).UsedRange.Find

[Severny]

Непонятно, что из себя представляет iCena = Cena.Offset(1, 0).Value

Присваивает переменной iCena значение ячейки ниже той которую мы нашли.

Ну и если искать по всему листу:
Sheets(1).UsedRange.Find

Может лучше ActiveSheet.UsedRange.Find, что бы не конкретизировать в коде формы какой лист мы используем?

[Severny]

Казанский
Код Формы:

Private Sub TextBox5_Change()
TextBox6.Text = Format(Val(TextBox5.Text) * Val(Cena), "# ### ##0.00")
End Sub

Код на Листе1

Public Sub Cena()
Cena = [K10]
End Sub

Код модуля

Public Cena

Форма вызывается с процедуры которая вызывается с модуля класса.
Что не хватает этому коду, кроме толкового программера?

[Severny]

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

Присваивает переменной iCena значение ячейки ниже той которую мы нашли.

Судя по всему этого как раз и не происходит

Работает:

Private Sub TextBox5_Change()
Dim Cena As Range
Dim iCena  As Long
Set Cena = Columns(11).Find("Ціна за од., грн. з ПДВ", , xlValues, xlWhole)
If Not Cena Is Nothing Then
iCena = Cena.Offset(1, 0).Value
TextBox6.Text = Format(Val(TextBox5.Text) * Val(iCena), "# ### ##0.00")
End If
End Sub

Тип переменной iCena не правильно задавал