Поиск и возврат данных из рабочего листа в пользовательскую форму на дополнительном рабочем листе - PullRequest
0 голосов
/ 19 апреля 2019

У меня есть команда поиска, которая работает до тех пор, пока я активирую ее из таблицы с данными (запустите ее из 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

Я с нетерпением жду, чтобы сделать это правильно, надеюсь, кто-то может помочь. Я уверен, что это не слишком сложно, но это моя первая база данных, и я люблю учиться, но борюсь здесь и там.

Спасибо, T

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...