Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste With A Custom Format
Greetings,
I am passing a string of characters in the format like this: 123abc45 I would like to have it show up after pasting as: 123A <BC-45 The code I am using to paste with now is: Select Case Target.Column Case 3 For i = 1 To 118 With ws1_1.Range("InvData" & i) Select Case i Case 4 'Cust List data .Value = _ ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value I tried to wrap the last line with this format: Format(ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value, "#### <##-##") And get a type mismatch. How can I get this custom format at the destination cell? Any help is really appreciated, Thanks. -Minitman |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste With A Custom Format
hi
small problem. 123abc45 is text. you cannot "format" text. you can only format numbers. that is where you are getting your type mismatch error. for text you have to do something like this. I was have trouble with your ranges so assuming 123abc45 is in a1....... Sub stringtest() Dim s As String s = Range("A1").Value Range("A2").Value = _ "'" & Left(s, 4) & "<" & Mid(s, 5, 2) & "" & Right(s, 2) End Sub regards FSt1 "Minitman" wrote: Greetings, I am passing a string of characters in the format like this: 123abc45 I would like to have it show up after pasting as: 123A <BC-45 The code I am using to paste with now is: Select Case Target.Column Case 3 For i = 1 To 118 With ws1_1.Range("InvData" & i) Select Case i Case 4 'Cust List data .Value = _ ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value I tried to wrap the last line with this format: Format(ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value, "#### <##-##") And get a type mismatch. How can I get this custom format at the destination cell? Any help is really appreciated, Thanks. -Minitman |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Paste With A Custom Format
Thanks for the reply FSt1,
Looking at the problem a bit deeper, it seems that this piece of data is coming from a different workbook. Out of 118 cells, about 45 are getting their figures from this external workbook. these are working fine!!! I will have to look into why this one can't seem to see it's data in this workbook. I have to give up for tonight (I have an early morning appointment). Since this a logic screw-up, trying to explain what is going in will probably reveal the problem, if not I'll be back with better information. -Minitman btw: I realized that I had asked this question in a slightly different way back on July 8, 2007 and received these replies: Target.Value = "Map " & UCase(Left(Target.Value, 4)) & " <" & _ UCase(Mid(Target.Value, 5, 2)) & "-" & Right(Target.Value, 2) & "" This is going to seem like magic<g... Your above line of code can be replaced with this... Target.Value = Format(Target.Value, "!Map @@@@ \<@@-@@\") Rick Rothstein \(MVP - VB\) For your information :^) On Mon, 6 Apr 2009 20:47:01 -0700, FSt1 wrote: hi small problem. 123abc45 is text. you cannot "format" text. you can only format numbers. that is where you are getting your type mismatch error. for text you have to do something like this. I was have trouble with your ranges so assuming 123abc45 is in a1....... Sub stringtest() Dim s As String s = Range("A1").Value Range("A2").Value = _ "'" & Left(s, 4) & "<" & Mid(s, 5, 2) & "" & Right(s, 2) End Sub regards FSt1 "Minitman" wrote: Greetings, I am passing a string of characters in the format like this: 123abc45 I would like to have it show up after pasting as: 123A <BC-45 The code I am using to paste with now is: Select Case Target.Column Case 3 For i = 1 To 118 With ws1_1.Range("InvData" & i) Select Case i Case 4 'Cust List data .Value = _ ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value I tried to wrap the last line with this format: Format(ws2_1.Range("MCL_Name").Offset(ws1_1 _ .Range("MyRowNum").Value - 1, 60).Value, "#### <##-##") And get a type mismatch. How can I get this custom format at the destination cell? Any help is really appreciated, Thanks. -Minitman |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to paste values created by custom format? | Excel Discussion (Misc queries) | |||
Need help with converting CUSTOM format/TEXT format to DATE format | Excel Worksheet Functions | |||
Format Cell as custom type but data doesn't display like I custom. | Excel Discussion (Misc queries) | |||
Excel 2003. Custom format gets replaced by Special format. | New Users to Excel | |||
Custom Cell format to mimic time format | Excel Discussion (Misc queries) |