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

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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

"Sam Wilson" wrote:

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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

I see!

dim MyStr as string
MyStr = format(activecell.value, "00000-00000"

Sam

"Basta1980" wrote:

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

"Sam Wilson" wrote:

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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

"Sam Wilson" wrote:

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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

"Sam Wilson" wrote:

activecell.numberformat = "00000-00000"

Sam

"Basta1980" wrote:

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

Using Sam's suggestion, this is better

Dim MyData As DataObject

Set MyData = New DataObject
MyData.Clear
MyData.SetText = Format(ActiveCell.Value, "00000-000000")
MyData.PutInClipboard


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149370

Joel, Sam

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

Thnx!!!

"joel" wrote:


Using Sam's suggestion, this is better

Dim MyData As DataObject

Set MyData = New DataObject
MyData.Clear
MyData.SetText = Format(ActiveCell.Value, "00000-000000")
MyData.PutInClipboard


--
joel
------------------------------------------------------------------------
joel's Profile: http://www.thecodecage.com/forumz/member.php?userid=229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=149370

.