close

I have a list of dates I review daily and want to be able to click on an icon
or button beside each date to update it to todays date and not change the
other dates.


assign the following two-liner to a button and use it for any cell,
rather than a button for each cell:

Sub refresh_date()
Dim sDate As String
ActiveCell.Value = Format(Now(), quot;yyyy-mmm-ddquot;)

End Sub--
protonLeah
------------------------------------------------------------------------
protonLeah's Profile: www.excelforum.com/member.php...oamp;userid=32097
View this thread: www.excelforum.com/showthread...hreadid=523341

全站熱搜
創作者介紹
創作者 software 的頭像
software

software

software 發表在 痞客邦 留言(0) 人氣()