Excel Macro Help
Try this
Public Sub ProcessData()
Const TEST_COLUMN As String = "E" '<=== change to suit
Dim i As Long
Dim LastRow As Long
Dim StartAt As Long
Dim sh As Worksheet
With ActiveSheet
LastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).row
i = 1
Do Until .Cells(i, TEST_COLUMN).Value < "N" Or _
i LastRow
i = i + 1
Loop
If i < LastRow Then
StartAt = i
Do Until .Cells(i, TEST_COLUMN).Value = "N" Or _
i LastRow
i = i + 1
Loop
If i <= LastRow Then
MsgBox Format(.Cells(i, TEST_COLUMN).Offset(0, 1).Value - _
.Cells(StartAt, TEST_COLUMN).Offset(0, 1).Value,
"h:mm")
End If
End If
End With
End Sub
--
---
HTH
Bob
(there's no email, no snail mail, but somewhere should be gmail in my addy)
"Nils Titley" wrote in message
...
I need to process an Excel file. I want to run a macro. The macro will
not
know how many rows are in the file. The column A has a date time stamp
for
each row.
Column E has the value N, L, or R. The rows will start with Ns. Than the
rows will have L or Rs. The last rows will have Ns. When the rows start
to
have L or Rs. I need to grab the date time and when the N begin again I
need
the date time so I can calculate the total time and add up the number of L
and Rs.
Here is a short example.
1/1/2008 10:10 N
1/1/2008 10:11 N
1/1/2008 10:12 N
1/1/2008 10:13 L
1/1/2008 10:14 R
1/1/2008 10:15 L
1/1/2008 10:16 N
1/1/2008 10:17 N
Total there are 2 L and 1 R and time is 4 min.
If this is not the right place for this please direct me to the correct
place.
Point me in the right direction to find help.
Thank you for your assistance.
|