defining cell value based on conditions.VBA of Formula

[kshitij_dch]

Hello All,

I am working on an excel sheet wherein i have Column AG named 'Final Status' , Column AH which is 'Report' , Column AI which is 'Approved' and Column AJ which is 'Pending'

Column AG is blank , Column AH , AI and AJ have some data (Text and Numbers), I need a macro or if we can set a formula like if condition is met then i need certain text to be written in column AG.(Conditions are many)

For an Example:

1.) in Column AH , IF cell contains Id's Starting with IN12345 then against that ID cell in Column AG will be written as "Disbursed"

AG	AH	AI	AJ
Disbursed	IN12345
Disbursed	IN98786

<tbody>
</tbody>

2.)In Column AI , IF cell contains Today's Date (Current date) then against that date all cells in column AG will be written as "Approved Today"

AG	AH	AI	AJ
Approved Today	#N/A	8/25/2017
Approved Today	#N/A	8/25/2017

<tbody>
</tbody>

3.)In column AI , Apart from Today's Date , all the other dates , against dates cells in column AG will be "Approved but not Disbursed"

AG	AH	AI	AJ
Approved But not Disbursed		12/25/2016
Approved But not Disbursed		10/25/2015

<tbody>
</tbody>

Like this i have many conditions , If somebody can help me with a vba code it would be great as i have tried by recording filtering it is not happening .

 

[kshitij_dch]

i am getting error in this formula ?


=IF(ISERROR(SEARCH("*IN*",AH1,1)),"","Disbursed"),IF(ISERROR(SEARCH("*Today()*",AI1,1)),"","WC Approved Today")

 

[kshitij_dch]

I have done it for current date .

Sub FindDate()
For Each cell In ActiveSheet.Range("A1:A10")   
If cell.Value = [Today()] Then    
cell.Select
ActiveCell.Offset(0, 1).Value = "WC Approved"    
End If
Next
End Sub