Get value of next non-blank cell above the activecell.row, "O" cell

[RockandGrohl]

Hi all,

Have timestamps in column O that can either be blank or non-blank, I'm looking to find the last time stamp in column O


If I'm on row 44 in column A, and the last timestamp is on row 41 in column O, how do I say to excel:

LastTime = Cells(ActiveCell.Row, "O").Selection.End(xlUp).Value

The above errors out because, let's face it, it's a mis-mash of incompatible code.

I want to find the result in column O of the last timestamp above the active row.

Thanks!

 

[trunten]

You are pretty close. Try:

LastTime = Cells(ActiveCell.Row, "O").End(xlUp).Value

 

[RockandGrohl]

You are pretty close. Try:

LastTime = Cells(ActiveCell.Row, "O").End(xlUp).Value

Wonderful, if but for one word I wouldn't have had to trouble you!

Now my next challenge, for "TotalTime" variable I want to sum column O:

ProgBox.TotalTime.Caption = ????

Do I use Evaluate for this? Never used it before. Cheers!

 

[trunten]

You could just use the builtin excel function for that:

ProgBox.TotalTime.Caption = Application.Sum(Range("O:O"))