I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of the last
added value (8-9 in %). The header of these colums can be DATES and we might
use TODAY to locate and calculate the increse/decrese... or maybe we can read
all of the values into an array... i do not know... i need help please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast - 2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each
day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of the
last
added value (8-9 in %). The header of these colums can be DATES and we
might
use TODAY to locate and calculate the increse/decrese... or maybe we can
read
all of the values into an array... i do not know... i need help please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

Bob,

Thanks, but I need some more guidence here.

I need it to place this increse (in %) in a cell... perhaps in "AG".

When I use the code as you have given it, it does not like the mgs box...

justin


"Bob Phillips" wrote:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast - 2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each
day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of the
last
added value (8-9 in %). The header of these colums can be DATES and we
might
use TODAY to locate and calculate the increse/decrese... or maybe we can
read
all of the values into an array... i do not know... i need help please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

NG wrap-around problem

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast -
2).Value) / _
Cells(2, iLast -
1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

Thanks, but I need some more guidence here.

I need it to place this increse (in %) in a cell... perhaps in "AG".

When I use the code as you have given it, it does not like the mgs box...

justin


"Bob Phillips" wrote:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast -
2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each
day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of
the
last
added value (8-9 in %). The header of these colums can be DATES and we
might
use TODAY to locate and calculate the increse/decrese... or maybe we
can
read
all of the values into an array... i do not know... i need help
please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

Bob,

I tried it again... but it still fails. I used it like this:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A1:AE1"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32

Range("AG1").Value = Format((Cells(2, iLast - 1).Value - _ Cells(2, iLast -
2).Value) / _ Cells(2, iLast - 1).Value, "0%")
End Sub


---

where is the wrap around issue?

justin


"Bob Phillips" wrote:

NG wrap-around problem

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast -
2).Value) / _
Cells(2, iLast -
1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

Thanks, but I need some more guidence here.

I need it to place this increse (in %) in a cell... perhaps in "AG".

When I use the code as you have given it, it does not like the mgs box...

justin


"Bob Phillips" wrote:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast -
2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for each
day)

every day, one value is entered. for today the value is "9". I need a
formula that will automaticly calculate the % increse or decrese of
the
last
added value (8-9 in %). The header of these colums can be DATES and we
might
use TODAY to locate and calculate the increse/decrese... or maybe we
can
read
all of the values into an array... i do not know... i need help
please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

Sorry, adjusted to your range

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A1:AE1"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast - 2).Value) / _
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

I tried it again... but it still fails. I used it like this:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A1:AE1"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32

Range("AG1").Value = Format((Cells(2, iLast - 1).Value - _ Cells(2,
iLast -
2).Value) / _ Cells(2, iLast - 1).Value, "0%")
End Sub


---

where is the wrap around issue?

justin


"Bob Phillips" wrote:

NG wrap-around problem

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast -
2).Value) / _
Cells(2, iLast -
1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

Thanks, but I need some more guidence here.

I need it to place this increse (in %) in a cell... perhaps in "AG".

When I use the code as you have given it, it does not like the mgs
box...

justin


"Bob Phillips" wrote:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast -
2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in
message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for
each
day)

every day, one value is entered. for today the value is "9". I
need a
formula that will automaticly calculate the % increse or decrese
of
the
last
added value (8-9 in %). The header of these colums can be DATES
and we
might
use TODAY to locate and calculate the increse/decrese... or maybe
we
can
read
all of the values into an array... i do not know... i need help
please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin

The wrap-around issue is that the newsgroups break lines at a certain point
and write the rest to a new-line. The problem is that I don't see it when I
post, only after it is posted, and it happened again.

Try this version

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast - 2).Value) / _
Cells(2, iLast - 1).Value, "0%")
End Sub

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

I tried it again... but it still fails. I used it like this:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A1:AE1"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32

Range("AG1").Value = Format((Cells(2, iLast - 1).Value - _ Cells(2,
iLast -
2).Value) / _ Cells(2, iLast - 1).Value, "0%")
End Sub


---

where is the wrap around issue?

justin


"Bob Phillips" wrote:

NG wrap-around problem

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
Range("AG2").Value = Format((Cells(2, iLast - 1).Value - _
Cells(2, iLast -
2).Value) / _
Cells(2, iLast -
1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in message
...
Bob,

Thanks, but I need some more guidence here.

I need it to place this increse (in %) in a cell... perhaps in "AG".

When I use the code as you have given it, it does not like the mgs
box...

justin


"Bob Phillips" wrote:

Sub Increase()
Dim iLast As Long
On Error Resume Next
iLast = Application.Match(0, Range("A2:AF2"), 0)
On Error GoTo 0
If iLast = 0 Then iLast = 32
MsgBox Format((Cells(2, iLast - 1).Value - Cells(2, iLast -
2).Value) /
_
Cells(2, iLast - 1).Value, "0%")
End Sub


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Justin Luyt" wrote in
message
...
I have a row of data:
1 5 2 6 8 9 0 0 0 0 0 0 0 0 X (example .. 31 of them, one for
each
day)

every day, one value is entered. for today the value is "9". I
need a
formula that will automaticly calculate the % increse or decrese
of
the
last
added value (8-9 in %). The header of these colums can be DATES
and we
might
use TODAY to locate and calculate the increse/decrese... or maybe
we
can
read
all of the values into an array... i do not know... i need help
please.

X can be the output of the last increse or decrese

i am not flewent with vba so be detailed in your guidence please.

Justin