Multiple Conditions add value to column

I'm trying to review Column L which is named Description and return a value to Column K named Deptid. I want it to elevate L2 and return to K2 loop until end.

Sub FormatConsolidatedInvoice()
'
' FormatConsolidatedInvoice Macro

Delete_Column
Insert_Column
Column_Name
GetAccountCode
Column_Format
End Sub


Sub GetAccountCode()

Dim Description As String
Dim Deptid As Long


If Description = "OpsInvoice Per Site" Or Description = "OpsInvoice" Then
Deptid = 151515

ElseIf Description = "OpsEnterprise Per Site" Or Description = "OpsEnterprise" Then
Deptid = 777777


End If


End Sub

Does this help?

Please Login or Register  to view this content.

That works great. Thank you.

You're welcome. Glad to help out and thanks for the feedback. Please comply with Forum Rules and mark this thread as SOLVED. See link for guidance.

http://www.excelforum.com/forum-rule...rum-rules.html