Loop and simple calculation
Hi,
Thanks for the quick reply but it didnt seem to work, it had a problem with
the Range.Value being "open".
Many thanks,
Tom
" wrote:
On 16 Nov, 12:46, Tom wrote:
I am trying to add 1 to cells that have a neighbouring cell with the value
"Open" using VBA. This is what I have and it has melted my brain, I have a
feeling that its something blindingly obvious but for the life of me I cannot
figure it out. Please help.
Dim d As Range
Dim s As Range
Set d = Range("Days")
Set s = Range("Status")
Do Until IsEmpty(d)
If s.Value = "Open" Then
d.Value = d.Value + 1
Else
d.Value = d.Value
End If
Loop
Thanks in advance,
Tom
Hi Tom,
The loop is not advancing, therefore d would never be empty.
You could try this:
Dim d As Range
Dim s As Range
Set d = Range("Days")
Set s = Range("Status")
Do Until IsEmpty(d)
If s.Value = "Open" Then
d.Value = d.Value + 1
Else
d.Value = d.Value
End If
activecell.offset(1,0).select
Loop
This is only a guess as I cant tell what your trying to do.
James
|