ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Edit a cell macro in Microsoft Visal Basic (https://www.excelbanter.com/excel-programming/376886-edit-cell-macro-microsoft-visal-basic.html)

Sharpy

Edit a cell macro in Microsoft Visal Basic
 
Hi All:
Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
I have a cell in "F4" "=now()"
I have copied this cell "F4"
Then "Paste special/Paste - values" into same cell
Which results in say for example "7/9/2006 11:15:00 AM"
Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
from the end.

Macro so far is
Range("F4").Select 'Selects the F4 cell
ActiveCell.X 'What is the command to put where the X is?
Thanks in advance for any help.
Cheers Sharpy



Norman Jones

Edit a cell macro in Microsoft Visal Basic
 
Hi Sharpy,

Try:

'=============
Public Sub Tester001()

With Range("F4")
.NumberFormat = "dd/mm/yy"
.Value = Date
End With

End Sub
'<<=============

--
---
Regards,
Norman



"Sharpy" wrote in message
...
Hi All:
Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
I have a cell in "F4" "=now()"
I have copied this cell "F4"
Then "Paste special/Paste - values" into same cell
Which results in say for example "7/9/2006 11:15:00 AM"
Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
from the end.

Macro so far is
Range("F4").Select 'Selects the F4 cell
ActiveCell.X 'What is the command to put where the X is?
Thanks in advance for any help.
Cheers Sharpy





Susan

Edit a cell macro in Microsoft Visal Basic
 
=now() will always give you the date AND time.
=today() will just give you the date.
susan


Norman Jones wrote:
Hi Sharpy,

Try:

'=============
Public Sub Tester001()

With Range("F4")
.NumberFormat = "dd/mm/yy"
.Value = Date
End With

End Sub
'<<=============

--
---
Regards,
Norman



"Sharpy" wrote in message
...
Hi All:
Trying to edit a cell in Excel 2003 using Microsoft Visual Basic.
I have a cell in "F4" "=now()"
I have copied this cell "F4"
Then "Paste special/Paste - values" into same cell
Which results in say for example "7/9/2006 11:15:00 AM"
Now I'm tryin to write a macro to automatically remove the " 11:15:00 AM"
from the end.

Macro so far is
Range("F4").Select 'Selects the F4 cell
ActiveCell.X 'What is the command to put where the X is?
Thanks in advance for any help.
Cheers Sharpy





All times are GMT +1. The time now is 11:47 PM.

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