Numberformat

  • Thread starter Thread starter Basta1980
  • Start date Start date
B

Basta1980

HI,

Code below works fine. Now I would like to make a small adjustment. The
activecell.value needs to be changed from 612345678 to 00612-345678 without
actually changing the format in the cell.

Dim MyData As DataObject
Set MyData = New DataObject
MyData.Clear
MyData.SetText "0" & ActiveCell.Offset(0, 0).Value
MyData.PutInClipboard

Thankx in advance.

Basta
 
Hi Sam,

Thanx for helping. The actual numberformat is clear i.e. not the problem.
What I would like to do is just copy the value to clipboard in desired
numberformat without actually changing the value in Excel. Wit the code below
I get 0612345678, but the value in Excel remains 612345678.

Regards,

Basta
 
Hi Sam,

Thanx for helping. The actual numberformat is clear i.e. not the problem.
What I would like to do is just copy the value to clipboard in desired
numberformat without actually changing the value in Excel. Wit the code below
I get 0612345678, but the value in Excel remains 612345678.

Regards,

Basta
 
Hi Sam,

Thanx for helping. The actual numberformat is clear i.e. not the problem.
What I would like to do is just copy the value to clipboard in desired
numberformat without actually changing the value in Excel. Wit the code below
I get 0612345678, but the value in Excel remains 612345678.

Regards,

Basta
 
Joel, Sam

Thanx for the input. Below suggestion works fine (just had to remove the =
because i got a variable error).

Thnx!!!
 
Back
Top