VBA Help VLookup - PullRequest
Новая
       74

VBA Help VLookup

1 голос
/ 01 мая 2020

Я новичок в VBA. столкнуться с проблемой. Я пытаюсь сказать, если это значение в этой таблице равно 2, тогда выполните эти формулы, если не остановите, и выдайте сообщение «Not Done». 

If "=VLOOKUP(D8,'Sheet'!B:J,9,false)" = 2 Then

Range("I8").Select
ActiveCell.Formula = "=VLOOKUP(D8,'Sheet'!B:J,2,false)"
Range("J8").Select
ActiveCell.Formula = "=VLOOKUP(D8,'Sheet'!B:J,3,false)"
Range("K8").Select
ActiveCell.Formula = "=G8-N8"

Else

Range("J8").Select
ActiveCell.Formula = "Not Done"
Range("K8").Select
ActiveCell.Formula = "Not Done"


Range("I8:K8").Select
Selection.AutoFill Destination:=Range("I8:K" & Range("A" & rows.count).End(xlUp).row)
Range(Selection, Selection.End(xlDown)).Select

1 Ответ

0 голосов
/ 01 мая 2020

В VBA: 

If Application.Vlookup(ActiveSheet.Range("D8").Value, _
              Sheets("Sheet").Range("B:J"), 9, False) = 2 Then
...