Hi,
When I run a VBA program in excel 2003 I want to compare the value in cell
B4 to the value in C3. If B4 < C3 then add 1 to B4 if not continue until
B4=C3 then reset to 1.
If B4<C3+1 else "1"
How do I write this in VBA?

Thankyou
--
Kerry

Kerry, do you mean...somthing like this in Activesheet.

Sub Macro()
'other code
If Range("B4") < Range("C3") Then
Range("B4") = Range("B4") + 1
ElseIf Range("B4") = Range("C3") Then
Range("B4") = 1
End If
'other code
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Kerry" wrote:

> Hi,
> When I run a VBA program in excel 2003 I want to compare the value in cell
> B4 to the value in C3. If B4 < C3 then add 1 to B4 if not continue until
> B4=C3 then reset to 1.
> If B4<C3+1 else "1"
> How do I write this in VBA?
>
> Thankyou
> --
> Kerry

Thanks Jacob,
That's exactly what I meant. You must be a mind reader cause it works
perfectly.
Much appreciate the time and knowledge you offer to others.
--
Kerry


"Jacob Skaria" wrote:

> Kerry, do you mean...somthing like this in Activesheet.
>
> Sub Macro()
> 'other code
> If Range("B4") < Range("C3") Then
> Range("B4") = Range("B4") + 1
> ElseIf Range("B4") = Range("C3") Then
> Range("B4") = 1
> End If
> 'other code
> End Sub
>
> If this post helps click Yes
> ---------------
> Jacob Skaria
>
>
> "Kerry" wrote:
>
> > Hi,
> > When I run a VBA program in excel 2003 I want to compare the value in cell
> > B4 to the value in C3. If B4 < C3 then add 1 to B4 if not continue until
> > B4=C3 then reset to 1.
> > If B4<C3+1 else "1"
> > How do I write this in VBA?
> >
> > Thankyou
> > --
> > Kerry

another way

[B4] = IIf([B4] >= [C3], 1, [B4] + 1)


"Kerry" <(E-Mail Removed)> a écrit dans le message de
news:5647E596-0A86-458D-ACF6-(E-Mail Removed)...
> Hi,
> When I run a VBA program in excel 2003 I want to compare the value in cell
> B4 to the value in C3. If B4 < C3 then add 1 to B4 if not continue until
> B4=C3 then reset to 1.
> If B4<C3+1 else "1"
> How do I write this in VBA?
>
> Thankyou
> --
> Kerry