带复制/粘贴功能的Vlookup-VBA

Question

I am fairly new to VBA and still finding my way around the codes!

I want to create a Vlookup within an IF statement. I want to check the manufacturer first (Cell B11) , then using the selected device (Cell C11) lookup a range on a separate tab ("List", Range O3:Q11) and copy/paste the $ value (Cell P3) onto the initial tab in a new cell (Cell L11) . As I said I am fairly new to VBA, but here is some code I have attempted:

Sub ServiceCosts()

Dim SamsungServ As Range
Dim Manufacturer As Range
Dim Device As Range
Dim MonoSamService As String

Set SamsungServ = Sheets("List").Range("O3:Q11")
Set Manufacturer = Range("B11")
Set Device = Range("C11")

If Manufacturer = "Samsung" Then
MonoSamService = Application.WorksheetFunction.VLookup(Device, SamsungServ, 2, False)
ActiveCell.Copy
Sheets("Finance Calculations").Range("L11").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues


Else
MsgBox "Please Select Device"

End If

End Sub

Any help at all will be very much appreciated!!!

Thanks

Answer 1

It looks to me like you're assuming MonoSamService is the 'ActiveCell' which it won't be unless you specifically tell it to.

Instead, I would do something like:

MonoSamService = Application.WorksheetFunction.VLookup(Device, SamsungServ, 2, False) Sheets("Finance Calculations").Range("L11").Value = MonoSamService

Ie. set the value of the cell in Finance Calculations to what you grabbed from the vlookup.