Excel formula to VBA code

[kc999]

I am trying to understand how to write the following code in VBA rather than use the following formula which does work.

Column A formula:
=IF(AND(F2="Red\Recurring",B2="No"),"delete row",IF(AND(F2="Blue\Recurring",B2="No"),"delete row",IF(AND(F2="Yellow\Recurring",B2="No"),"delete row","ok")))

Column B is a formula too, which I am sure could become part of a more complicated piece of VBA code.
=IF(AND($E2="Yellow",$K2="orange)"),"Important",IF(AND($E2="Blue",$K2=""),"Important",IF(AND($E2="Red",$K2=""),"Important","No")))


The table I am using looks like this.

Keep	Important	Workstream	Customer	Team	Path
ok	Important	Red	Sales and Trade Systems	Red	Red\Recurring
ok	No	Integration Account Planning	Promo list	Integration Account Planning	Integration Account Planning\Iteration 13
ok	Important	Red	Enterprise Warehousing	Red	Red\Recurring
ok	Important	Red	Enterprise Warehousing	Red	Red\Recurring
ok	Important	Red	Financial Accounting Services	Red	Red\Recurring
ok	Important	Red	Sales and Trade Systems	Red	Red\Recurring
delete row	No	Integration Integration	Interfaces	Integration	Red\Recurring
ok	No	Integration Order to Cash Core	Master Data Gathering	Integration	Integration\Graveyard
ok	Important	Red	Customer Order Management	Red	Red\Recurring
ok	Important	Red	IT Process Governance	Blue	Blue\Recurring
ok	No	Integration Account Planning	Planning UOM	Integration	Integration Account Planning\Iteration 13
ok	No	Office 365	Site Owner Training (Admin Topics)	Office 365\SharePoint - Online	Office 365\Iteration 2
ok	No	Interim Reporting Database	SKU: Leading zeros causing SKU to exist in multiple formats	Interim Reporting Database\Master Data	Interim Reporting Database\Iteration 9
ok	Important	Blue	Applications	Blue	Blue\Recurring
delete row	No	Yellow	AP & Treasury	Yellow	Yellow\Recurring
ok	Important	Prep	Cutover/Testing/Secuirty	Red	Prep\Iteration 11

<tbody>
</tbody>

 

[alansidman]

This works in the scenario you presented

Option Explicit


Sub kc()
Dim lr As Long
lr = Range("C" & Rows.Count).End(xlUp).Row
Dim i As Long


Application.ScreenUpdating = False
For i = 2 To lr
Range("A" & i).FormulaR1C1 = "=IF(AND(RC[5]=""Red\Recurring"",RC[1]=""No""),""delete row"",IF(AND(RC[5]=""Blue\Recurring"",RC[1]=""No""),""delete row"",IF(AND(RC[5]=""Yellow\Recurring"",RC[1]=""No""),""delete row"",""ok"")))"
Range("B" & i).FormulaR1C1 = "=IF(AND(RC5=""Yellow"",RC11=""orange""),""Important"",IF(AND(RC5=""Blue"",RC11=""""),""Important"",IF(AND(RC5=""Red"",RC11=""""),""Important"",""No"")))"
Next i
Application.ScreenUpdating = True
End Sub

 

[kc999]

Thanks for the quick reply. I can get that to do the evaluations, but it does not delete the rows based on formula A. That's my ultimate goal.