Sub Macro1()
'
' Macro1 Macro
'
'
Range("D2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNUMBER(SEARCH(""coles"",RC[2])),""Groceries"",IF(ISNUMBER(SEARCH(""woolworths"",RC[2])),""Groceries"",IF(ISNUMBER(SEARCH(""pharmacy"",RC[2])),""Pharmacy"",IF(ISNUMBER(SEARCH(""bupa"",RC[2])),""Health Insurance"",IF(ISNUMBER(SEARCH(""tcs"",RC[2])),""Hair"",IF(ISNUMBER(SEARCH(""medical"",RC[2])),""Medical"",IF(ISNUMBER(SEARCH(""interest"",RC[2])),""Interest"",IF" & _
"R(SEARCH(""xero"",RC[2])),""Accounting"",IF(ISNUMBER(SEARCH(""top up"",RC[2])),""CC Exp"",IF(ISNUMBER(SEARCH(""thomas"",RC[2])),""Income"",IF(ISNUMBER(SEARCH(""telstra"",RC[2])),""Phone"",IF(ISNUMBER(SEARCH(""ep loan"",RC[2])),""EP Exp"",IF(ISNUMBER(SEARCH(""Tville loan"",RC[2])),""Tville Exp"",IF(ISNUMBER(SEARCH(""ergon"",RC[2])),""Power"",IF(ISNUMBER(SEARCH(""unit" & _
"[2])),""Tville Inc"",IF(ISNUMBER(SEARCH(""car"",RC[2])),""Car Exp"",IF(ISNUMBER(SEARCH(""townsville city"",RC[2])),""Tville Exp"",IF(ISNUMBER(SEARCH(""LSC"",RC[2])),""EP Exp"",""""))))))))))))))))))"
Range("D2").Select
Selection.AutoFill Destination:=Range("D2:D20"), Type:=xlFillDefault
Range("D2:D20").Select
Range("F2").Select
End Sub
I am interested if you can replicate my issue.
Bookmarks