Vlookup 복사/붙여 넣기 - VBA

Question

나는 VBA에 상당히 익숙하며 코드 주위에 여전히 길을 찾고 있습니다.

IF 문 내에서 Vlookup을 만들고 싶습니다. 나는은 별도의 탭 에 범위를 조회 한 후 선택한 장치를 (셀 C11)를 사용하여 제조 업체 첫번째 (셀 B11)를 확인하려면 ("목록", 범위 O3 : Q11) 및 복사 /를 붙여 넣기 새 셀 (셀 L11)의 초기 탭에 $ 값 (셀 P3). 내가 VBA에 상당히 새로운,하지만 여기에 내가 시도 일부 코드의 말처럼 어떤 도움이 전혀 대단히 이해할 수있을 것이다

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 

! 당신이 MonoSamService을 가정하는 것처럼 그것은 나에게 보이는

감사

Answer 1

는 구체적으로 얘기하지 않는 한이되지 않습니다 '를 ActiveCell'입니다.

대신, 내가 좋아하는 일을 할 것입니다 :..

MonoSamService = Application.WorksheetFunction.VLookup (장치, SamsungServ, 2, 거짓) 시트 ("재정 계산") 범위 ("L11") 값 = MonoSamService

e. Finance Calculations의 셀 값을 vlookup에서 얻은 값으로 설정하십시오.