VBA; find max time value in a column and add one minute to it

[Range]

Hey

Does anyone have any ideas on how to write a snippet of vba code to do the above?

Thanks,
Range

 

[Mike LH]

Hi,

Change the column to the correct one.

Dim TheColumn As String
TheColumn = "A"
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) = _
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:1")

 

[Range]

wonderful, So I tried to change the above a little and failed. Not sure what I am doing wrong.

Sub Macro2()'
' Macro2 Macro
' Macro recorded
'


'
Dim TheColumn As String
TheColumn = "A"
Dim MyDate As Date


MyDate = TimeValue(Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) = _
Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:01"))




Range("A78").Select
ActiveCell.Value = MyDate


End Sub

 

[Mike LH]

Hi,

Try this

Sub Macro2() '

Dim TheColumn As String
TheColumn = "A"
Dim MyDate As Date
MyDate = Cells(Application.Match(Application.Max(Columns(TheColumn)), Columns(TheColumn), 0), TheColumn) + TimeValue("00:01")


Range("A78").Value = MyDate


End Sub

 

[Range]

Thank kindly good sir - this worked a treat and your taught me something as well!!

 

[Mike LH]

Thank kindly good sir - this worked a treat and your taught me something as well!!

Glad that worked for you and thanks for the feedback. A day when you don't learn something new is a wasted day indeed.