Insert to today's date

  • Thread starter Thread starter SPISO
  • Start date Start date
S

SPISO

I have a dashboard type of display on worksheet #1 (Dashboard) where an
individual updates a cell B3 through out the day, everyday, with a new value.
On another worksheet (Draw) in column A, I have each date listed from
05/01/09 on down. I would like the updated information in B3 on worksheet
'Dashboard' to locate Today's date on worksheet 'Draw' and insert the updated
value next to it in Column B. I tried to use a basic If statement such as:
=IF(A2=TODAY(),Dashboard!$B$3,"")
in column B on 'Draw' but do not know how to keep it from removing
yesterday's value.

Also, after midnight, I would like B3 on 'Dashboard' to return to 0 for a
new day.

Any suggestions?
 
You can not do this with formulas...

You need to use a macro (using VBA code)

Looks like the value in B3 is written many times during a day... Do you want
to keep updating this in Col B in 'Draw' against TODAY's date?
 
You can not do this with formulas...

You need to use a macro (using VBA code)

Looks like the value in B3 is written many times during a day... Do you want
to keep updating this in Col B in 'Draw' against TODAY's date?
 
That is exactly what I am looking to do. In essence, the last update of the
day should be the value on Today's row in Col B in 'Draw'. Is that even
possible?

Travis
 
That is exactly what I am looking to do. In essence, the last update of the
day should be the value on Today's row in Col B in 'Draw'. Is that even
possible?

Travis
 
Right-click on the Dashboard sheet tab at the bottom... and choose 'Code'
Paste the macro below (from start to end lines) in the VB Editor window on
the right when it opens up

'start macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Application.ScreenUpdating = False
Sheets("Draw").Select
Sheets("Draw").Columns("A:A").Select
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).FormulaR1C1 = Sheets("Dashboard").Cells(3, 2)
Sheets("Dashboard").Select
Application.ScreenUpdating = True
End If
End Sub
'end macro

close the VB Editor
Now whatever you type in B3 will be copied to the draw sheet agains today's
date.
 
Right-click on the Dashboard sheet tab at the bottom... and choose 'Code'
Paste the macro below (from start to end lines) in the VB Editor window on
the right when it opens up

'start macro
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Application.ScreenUpdating = False
Sheets("Draw").Select
Sheets("Draw").Columns("A:A").Select
Selection.Find(What:=Date, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Activate
ActiveCell.Offset(0, 1).FormulaR1C1 = Sheets("Dashboard").Cells(3, 2)
Sheets("Dashboard").Select
Application.ScreenUpdating = True
End If
End Sub
'end macro

close the VB Editor
Now whatever you type in B3 will be copied to the draw sheet agains today's
date.
 
Perfect. Thanks so much for your help. If I wanted to do that exact same
thing on the same worksheet (Dashboard) but in a different cell (C37), and
copy C37 to a 'Notes' worksheet against date, what would I have to change?
This is so cool. WOW!

Thanks again.
 
Perfect. Thanks so much for your help. If I wanted to do that exact same
thing on the same worksheet (Dashboard) but in a different cell (C37), and
copy C37 to a 'Notes' worksheet against date, what would I have to change?
This is so cool. WOW!

Thanks again.
 
One thing I forgot to mentions on the C37 cell was that it would be text
rather than a value. Does that change anything in your code?
 
One thing I forgot to mentions on the C37 cell was that it would be text
rather than a value. Does that change anything in your code?
 
No, it does not.
If you want both to work then copy all the lines from IF to END IF
(including both), copy just after the END IF line and make the required
changes shown below;
 
No, it does not.
If you want both to work then copy all the lines from IF to END IF
(including both), copy just after the END IF line and make the required
changes shown below;
 
Thanks So Much. It worked. What a time saver.


Sheeloo said:
No, it does not.
If you want both to work then copy all the lines from IF to END IF
(including both), copy just after the END IF line and make the required
changes shown below;
Click to expand...
 
Thanks So Much. It worked. What a time saver.


Sheeloo said:
No, it does not.
If you want both to work then copy all the lines from IF to END IF
(including both), copy just after the END IF line and make the required
changes shown below;
Click to expand...
 
One more question. Is there a way to revise B3 in Dashboard to change to 0
the first time the workbook is opened any given day?

I am thinking something like if the cell associated to the date in 'Draw' is
empty, make B3 = 0. Then once B3 is changed it will insert a value in the
associated date in 'Draw' from your previous macro preventing B3 from
changing to 0 again that day.

Would that work?
 
One more question. Is there a way to revise B3 in Dashboard to change to 0
the first time the workbook is opened any given day?

I am thinking something like if the cell associated to the date in 'Draw' is
empty, make B3 = 0. Then once B3 is changed it will insert a value in the
associated date in 'Draw' from your previous macro preventing B3 from
changing to 0 again that day.

Would that work?
 
You have got the right idea...
However make B3 empty. If you change it to 0. 0 will be populated against
the date...
You can write the code in the worksheet_activate event (signature below)
associated with the sheet containing B3
Private Sub Worksheet_Activate()
'Put your code here
'Let me know if you want me to do this
'put an IF around the line where earlier code assigns a value
'use that to change B3 to ""
End Sub
 
Back
Top