Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Microsoft Office > Excel VBA > Excel VBA
Password Reminder
Register
| FAQ | Members List | Search | Today's Posts | Mark Forums Read
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
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old August 9th, 2007, 11:40 PM
Authorized User
 
Join Date: Jul 2007
Location: , , .
Posts: 26
Thanks: 0
Thanked 0 Times in 0 Posts
Default Data rewriting/copy between worksheet

Hi
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

LINE_DES CURR ACCT DEPT DEBIT CREDIT ACCT-DATE
------- --- ---- ---- ---- -------
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,"|"),"")
etc-----
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.
Thanks...

Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


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



All times are GMT -4. The time now is 03:14 AM.


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