I am trying to record the amount of time over the course of a day that
an excel formula is returning a given result e.g. "true" or "false"
My attempts at coding this in vb have proved very clunky, can anyone
think of a solution or know of a suitable programme that can be called
from excel?

TIA

A worksheet change function

Private Sub Worksheet_Change(ByVal Target As Range)

If StrComp(StrConv(Target, vbUpperCase), "TRUE") = 0 Then
Worksheets("sheet1").Range("A1") = Worksheets("sheet1").Range("A1") + 1
End If
If StrComp(StrConv(Target, vbUpperCase), "FALSE") = 0 Then
Worksheets("sheet1").Range("A2") = Worksheets("sheet1").Range("A2") + 1
End If
End Sub


"DTM" wrote:


I am trying to record the amount of time over the course of a day that
an excel formula is returning a given result e.g. "true" or "false"
My attempts at coding this in vb have proved very clunky, can anyone
think of a solution or know of a suitable programme that can be called
from excel?

TIA

You can simplify

If StrComp(StrConv(Target, vbUpperCase), "TRUE") = 0 Then

to

If Target.Value Then

--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Joel" wrote in message
...
A worksheet change function

Private Sub Worksheet_Change(ByVal Target As Range)

If StrComp(StrConv(Target, vbUpperCase), "TRUE") = 0 Then
Worksheets("sheet1").Range("A1") = Worksheets("sheet1").Range("A1") +
1
End If
If StrComp(StrConv(Target, vbUpperCase), "FALSE") = 0 Then
Worksheets("sheet1").Range("A2") = Worksheets("sheet1").Range("A2") +
1
End If
End Sub


"DTM" wrote:


I am trying to record the amount of time over the course of a day that
an excel formula is returning a given result e.g. "true" or "false"
My attempts at coding this in vb have proved very clunky, can anyone
think of a solution or know of a suitable programme that can be called
from excel?

TIA