Re: $$Excel-Macros$$ Query for Macro

2014-02-20 Thread De Premor
Hi Prafull, Try this if you want to use In Cell formulas, paste bellow code in module Function IsOK(CRef As Range) As String Dim Str As String Str = UCase(CRef.Value) If InStr(1, Str, "YES") Or InStr(1, Str, "NO") Or InStr(1, Str, "CORRECT") Then IsOK = "OK" End Function Then just

Re: $$Excel-Macros$$ Query for Macro

2014-02-19 Thread mrExcel4u
Try this Sub query() Dim rng As Range Dim cel As Range Set rng = Range("A1:a10") For Each cel In rng If cel = "Yes" Or cel = "No" Or cel = "Correct" Then cel.Offset(0, 1) = "Ok" End If Next cel End Sub Thanks & regards, www.MrExcel4U.com O