У меня есть команда поиска, которая работает до тех пор, пока я активирую ее из таблицы с данными (запустите ее из Visual Basic), но кнопка команды находится в отдельном листе для данных, и я не могу получить это возвращать данные в пользовательскую форму, когда не в Visual Basic. Кнопка команды находится на рабочем листе «STOCK», а данные - в «StockData»
Я просмотрел множество кодов поиска или поиска, но все они работают на текущем листе, и таким образом мой тоже работает. Пытаемся понять, как заставить код читать с одного листа и возвращаться на другой лист в пользовательскую форму
Private Sub cmdFindR_Click()
Dim totalrow As Long
Dim wStock As Worksheet
Set wStock = ThisWorkbook.Worksheets("StockData")
With wStock
totalrow = wStock.Range("A1").CurrentRegion.Rows.Count
For currentrow = 2 To totalrow
If Trim(txtRecLine.Text) = Trim(Cells(currentrow, 1)) Then
txtTransactionCd.Text = Cells(currentrow, 3)
txtTrip.Text = Cells(currentrow, 4)
txtDate.Text = Cells(currentrow, 5)
End If
Next currentrow
End With
End Sub
Private Sub UserForm_Initialize()
currentrow = 2
End Sub
![enter image description here](https://i.stack.imgur.com/rlNCG.png)
Я с нетерпением жду, чтобы сделать это правильно, надеюсь, кто-то может помочь. Я уверен, что это не слишком сложно, но это моя первая база данных, и я люблю учиться, но борюсь здесь и там.
Спасибо, T