Хотелось бы узнать, возможно ли присвоить значение переменной выбранного регистра с помощью оператора Select Case переменной. Таким образом, я смогу сделать VLookup со строкой. Я хочу сделать это, потому что у меня слишком много случаев, чтобы принять во внимание, и я хочу обновить другую ячейку как можно быстрее. В противном случае мне придется повторно выбрать ячейку после выбора из выпадающего списка, чтобы сделать это.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rref As Integer
Dim StrRef As String
Dim val As String
Set myrange = Worksheets("Feuil2").Range("E11:F54")
If Not Intersect(Target, Range("I:I")) Is Nothing Then
Select Case Range(Target.Address)
Case Is <> ""
Rref = Target.Row
StrRef = Case.value 'Not working and would like to now the right command
Cells(Rref, 8).Value = Application.WorksheetFunction.VLookup(StrRef, myrange, 2, False)
End Select
End If
End Sub
