excel formula to macro/vba

[crims0n]

Instead of putting this formula in every rows in the column. I would like to put this formula into macro/vba and automatically check and fill the cell. Thanks

=VLOOKUP(F3,Sheet1!C:H,6,FALSE)

 

[Biz]

I am assuming u are putting formula
*sheet 2
* Range G3:29

Sub Test()
Sheets("Sheet2").Range("G3:G29").FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet1!C[-4]:C[1],6,FALSE)"
End Sub

Biz

 

[P.Holko]

If you want to fill your columns with only the values of VLookup function try code placed below

Sub fillV()
Dim CellR As Range

Set RangeN1 = ActiveSheet.Range("F3:F6") 'defines the input (value to search for in the first column of the table_array )
Set RangeN2 = Sheets("Sheet1").Range("C:H") ' defines the table_array
Const ColumnI = "G" 'defines the letter of the column in which Vlookup results will be placed

For Each CellR In RangeN1
    n = CellR.Row
    Cells(n, ColumnI).Value = WorksheetFunction.VLookup(CellR.Value, RangeN2, 6, False)
Next
End Sub

 

[crims0n]

oops. Sorry, i provide incomplete information. The formula is in sheet2. And the values in the vlookup are in sheet1. Thanks for your response