Wrox Programmer Forums
Go Back   Wrox Programmer Forums > Microsoft Office > Excel VBA > Excel VBA
Excel VBA Discuss using VBA for Excel programming.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Excel VBA section of the Wrox Programmer to Programmer discussions. This is a community of software programmers and website developers including Wrox book authors and readers. New member registration was closed in 2019. New posts were shut off and the site was archived into this static format as of October 1, 2020. If you require technical support for a Wrox book please contact http://hub.wiley.com
Old August 9th, 2007, 11:40 PM
Authorized User
Join Date: Jul 2007
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Default Data rewriting/copy between worksheet

I have been doing this task for last few weeks.
If you can give me some solution to do this using VBA will be a great.

I have 2 worksheet one is JE_Input and other one Is called RawData.
JE_Input is like below where user key-in all the data

------- --- ---- ---- ---- -------
Cash Mang USD 0102 0010 951.74 14-Jun-07
Cash Mang USD 0102 0012 6,825.00 15-JUL-07
Cash Mana USD 0104 0010 1,127.04 25-MaY-07
Cash Mang USD 0104 0012 2,950.00 05-AUG-07
Cash Mang USD 0125 0010 9,368.05
Cash Mang USD 0125 0012 3,675.00
Cash Mang USD 0131 0012 24,950.00

I am rewriting data from JE_Input to RawData in this format below.
That way I can import data into other database.

`Cash Mangt`| `USD`|`10`|`0102`|`0010`| |4150951.74|14-JUN-07
`Cash Mangt`| `USD`|`10`|`0102`|`0012`|6825| | 15-JUN-07
`Cash Mant`| `USD`|`10`|`0104`| `0012`|1,127.04| |25-MAY-07
`Cash Mant`| `USD`|`10`|`0125`| `0010`| |9338368.05|
`Cash Mant`| `USD`|`10`|`0125`| `0012`| 3675|
`Cash Mant`| `USD`|`10`|`0131`| `0012`| 24950|
`Cash Mant`| `USD`|`10`| `0135`| `0012`| 750|

User key in data in JE_Input worksheet which currently transferring to other worksheet (RawData) using formula like below

=IF(NOT(ISBLANK(JE_Input!$G3 )),CONCATENATE("`",JE_Input!G3,"`","|"),M2)
=IF(NOT(ISBLANK(JE_Input!$A3 )),CONCATENATE("`","10","`","|"),"")
=IF(NOT(ISBLANK(JE_Input!$I3 )),CONCATENATE("`",JE_Input!I3,"`","|")," ")
=IF(NOT(ISBLANK(JE_Input!K3)),CONCATENATE(JE_Input !K3,"|"),"")
It kind of pipe delimited and I like....`USD`| `10`| if number then 6825| 127.04| no ``(Quote)
If no data in the cell I want to see only |

On more thing when user enter ACC_DATE the automatically`10`| appears in that row column.

Similar Threads
Thread Thread Starter Forum Replies Last Post
Copy worksheet to another workbook and rename it Probleminfinity Excel VBA 1 August 19th, 2007 11:38 PM
Copy Worksheet into another workbook money Excel VBA 4 March 8th, 2007 05:17 AM
searching match data in the worksheet ct Excel VBA 0 April 15th, 2006 12:00 AM
Copy a worksheet range to a new workbook cej2583 Excel VBA 2 March 14th, 2006 11:55 PM
Copy a Worksheet as HTML pakman Excel VBA 3 April 14th, 2005 11:53 AM

Powered by vBulletin®
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Copyright (c) 2020 John Wiley & Sons, Inc.