Как получить диапазон ячеек для выбора и копирования на основе значения ячейки

Question

Я хочу выбрать и скопировать диапазон ячеек. У меня есть пользователь, выбирающий, какие данные они хотят из поля со списком. После того, как данные выбраны, они нажимают кнопку, которая запускает следующий код:

Private Sub btnEnter_Click()
'''''WHAT HAPPENS WHEN BUTTON IS CLICKED'''''

'TARGET CELL REFERENCE
Dim TargetRow As Integer
TargetRow = Application.WorksheetFunction.Match(ComboBox1, Sheets("Inprocess").Range("Sku_Range1"), 0)
Sheets("Data").Range("G3").Value = TargetRow

'COPY & SELECT CELL RANGE FROM TARGET CELL
Dim FndStr As String
FndStr = TargetRow
Dim FndVal As Range
Set FndVal = Columns("J:J").Find(What:=FndStr, LookAt:=xlPart)
    If FndVal Is Nothing Then
        MsgBox "LP not found!!"
    Else
        FndVal.Select
        Range(Selection.Offset(0, -1), Selection.Offset(0, 2)).Copy
    End If


End Sub

Моя проблема в том, что FndVal ничего не возвращает, и я не могу понять, почему. Может ли кто-нибудь помочь, пожалуйста?

Answer 1

Если этот код в UserForm, попробуйте указать Sheet, на который вы ссылаетесь.

Пример:

Set FndVal = Sheets("Data").Columns("J:J").Find(What:=FndStr, LookAt:=xlPart)