Try this
Private Sub CommandButton1_Click()
Dim Rng As Range
For Each Rng In Range("C1:C20")
If Rng <> "" Then Rng.Offset(, 2) = IIf(Left(Rng, 1) = "`",
"Tax", "Retail")
Next
End Sub
Pada 05/08/2013 16:26, SAJID MEMON menulis:
Dear I am making a small error in my file, onl
I tried to understand your code but couldn't. However, see if the attached
helps.
Thanks,
On Mon, Aug 5, 2013 at 2:56 PM, SAJID MEMON wrote:
> Dear I am making a small error in my file, only one condition is working
> in VBA, Please give me tips to complete it
>
> Awaiting your answer
>
> Rega
