coloum+vlookup

[siddharth bhardwaj]

Hello,

I would like to have a macro that will insert one blank column (C)
Into a (SHEET 1) workseet.

Also if this is do able have the following lookup run at the same time.

=VLOOKUP(B:B,Sheet2!H:I,2,False)

I work on These type of sheets on daily basis and i cant type to figure how to make this macro any pointers will gratefull.

Thank you.

Sid

 

[MARK858]

Select a cell on sheet 2 then turn on the macro recorder and carry out your actions manually then if you want the code tidied up or added to then post the code it produces in the thread in code tags (paste the code in the thread, select it and click the # icon).

 

[siddharth bhardwaj]

Select a cell on sheet 2 then turn on the macro recorder and carry out your actions manually then if you want the code tidied up or added to then post the code it produces in the thread in code tags (paste the code in the thread, select it and click the # icon).

Thank you very much for reply ill give it a go.

 

[siddharth bhardwaj]

From an Old post of mr excel i used this VBA its working perfectly
is it possible to add (COUNT IF >0 )also somewhere if i need value how many values i m comparing and how many i got in lookup.

Thank you in advance.



Sub Insert_Column()
Application.ScreenUpdating = False
Sheets("CBEXIIISoftCopy").Select ' change sheet name to sheet macro is to run on
Columns("E:E").Select
Selection.Insert Shift:=xlToRight
Range("E2").Value = "Lookup"
Range("E3").Select
ActiveCell.Formula = "=VLOOKUP(D:D,Sheet2!B:B,1,0)"
Range("E3").Select
Selection.AutoFill Destination:=Range(Selection, Selection.Offset(0, -1).End(xlDown).Offset(0, 1))
Application.ScreenUpdating = True

End Sub