M
MrDave
hi, I am trying to figure out the best way to macro, which macro items next..
make sense? added a couple of columns where using date macros (if the best
approach).
want to have entries < (less than) certain period of time:
IF TODAY, HOUR, MINUTE, not sure.. e.g.:
2 columns, if enter 1 column 1st, will do macros (I have/ can make):
goto 2nd col / macros: ABC, then DEF.. else:
entered on 2nd col first, then goto 1st col / macros: DEF, then ABCX
I might come back minutes later, do new entries and depending on the order
entered, do not want to be sent to end with performing both areas.
formula idea based on, if idea correct, but wouldn't work dynamically, need
macro
=IF(OR(MAX(DAY(CC234),DAY(CD234))=DAY(TODAY())),IF(MINUTE(CC234)>MINUTE(CD234),2,1),0)
what have to start is just idea on 2 date columns,
(using named ranges)
If Not Intersect(Me.Range(dateJ5), .Cells) Is Nothing Then 'date
pos/jump
Application.EnableEvents = False
With Me.Cells(.Row, dateC5) 'Destination:
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
If Not Intersect(Me.Range(dateK4), .Cells) Is Nothing Then 'TO jump
Application.EnableEvents = False
With Me.Cells(.Row, dateC4) 'Destination:
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
make sense? added a couple of columns where using date macros (if the best
approach).
want to have entries < (less than) certain period of time:
IF TODAY, HOUR, MINUTE, not sure.. e.g.:
2 columns, if enter 1 column 1st, will do macros (I have/ can make):
goto 2nd col / macros: ABC, then DEF.. else:
entered on 2nd col first, then goto 1st col / macros: DEF, then ABCX
I might come back minutes later, do new entries and depending on the order
entered, do not want to be sent to end with performing both areas.
formula idea based on, if idea correct, but wouldn't work dynamically, need
macro
=IF(OR(MAX(DAY(CC234),DAY(CD234))=DAY(TODAY())),IF(MINUTE(CC234)>MINUTE(CD234),2,1),0)
what have to start is just idea on 2 date columns,
(using named ranges)
If Not Intersect(Me.Range(dateJ5), .Cells) Is Nothing Then 'date
pos/jump
Application.EnableEvents = False
With Me.Cells(.Row, dateC5) 'Destination:
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If
If Not Intersect(Me.Range(dateK4), .Cells) Is Nothing Then 'TO jump
Application.EnableEvents = False
With Me.Cells(.Row, dateC4) 'Destination:
.NumberFormat = "dd"
.Value = Now
End With
Application.EnableEvents = True
End If