ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   VB script for Current time (https://www.excelbanter.com/excel-worksheet-functions/232535-vbulletin-script-current-time.html)

[email protected]

VB script for Current time
 
Hi there,
I wanted current time to be dispalyed in active cell. So I created a
Command button and wrote the following script, though its working
fine, when ever i click the button, time in all the cells are getting
updated to current time. But I want the current time only in cell
where cursor is there. Can any one assit please...
Scrip:-
sub
commondbutton1_Click
activecell.formula="=now()"
end sub

Thanks in advance!
Sriki

Sheeloo

VB script for Current time
 
That is because you are putting the formula
=NOW() in the cells

Use
Private Sub CommandButton1_Click()
ActiveCell = Now()
End Sub

----------------------
Click 'Yes' if this helps.

" wrote:

Hi there,
I wanted current time to be dispalyed in active cell. So I created a
Command button and wrote the following script, though its working
fine, when ever i click the button, time in all the cells are getting
updated to current time. But I want the current time only in cell
where cursor is there. Can any one assit please...
Scrip:-
sub
commondbutton1_Click
activecell.formula="=now()"
end sub

Thanks in advance!
Sriki


[email protected]

VB script for Current time
 
On Jun 1, 11:04*pm, Sheeloo wrote:
That is because you are putting the formula
=NOW() in the cells

Use
Private Sub CommandButton1_Click()
ActiveCell = Now()
End Sub

----------------------
Click 'Yes' if this helps.



" wrote:
Hi there,
I wanted current time to be dispalyed in active cell. So I created a
Command button and wrote the following script, though its working
fine, when ever i click the button, time in all the cells are getting
updated to current time. But I want the current time only in cell
where cursor is there. Can any one assit please...
Scrip:-
sub
commondbutton1_Click
activecell.formula="=now()"
end sub


Thanks in advance!
Sriki- Hide quoted text -


- Show quoted text -


Thank you so very much.. It's working...


All times are GMT +1. The time now is 12:53 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com