Macro help. (IE: If a cell equals travel then return travel in next column)

[Stacy2927]

I need some help! I don't have a lot of experience with Macros. I'm looking for a formula that in a macro that If cell F2 = Travel then return Travel in G2, If cell F2 = Dues And Subscriptions then return Dues And Subscriptions in G2, If cell F2 = Meals then return Meals in G2. If it is anything else to return Other.

 

[Fluff]

Any particular reason you need a macro? That could be done very easily with a simple formula.

 

[Stacy2927]

I'm wanting to be able to paste the information in and click the command button and everything else populates.

 

[Stacy2927]

I think I figured it out. This seems to work.

Range("G1").Select
Selection.Copy
Range("G1").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Range("G2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RC[-1]=""Travel"",""Travel"",IF(RC[-1]=""Dues and Subscriptions"",""Dues & Sub"",IF(RC[-1]=""Meals"",""Meals"",IF(RC[-1]=""Supplies"",""Office Supplies"",""Other""))))

 

[Fluff]

Glad you sorted it & thanks for the feedback.