Put Existing Functions in VBA Code

**wwconslt** · 04-23-2015, 10:48 AM

Hello Everyone,

VBA Newbie using Excel 2013.

I've created a worksheet ("To Database") that has several columns containing functions that refer to cells in another worksheet ("Payment_Type_D"). I would like to create a sub routine that a user can run that will create this new worksheet ("To_Database") and have the data fill based on these functions. I have the VBA code to create the new sheet, but don't know how to insert the functions.

The data will be used as a csv feed into a larger database. The database requires two records (rows) per gift payment numbered 01 and 02. We could have up to 50 gifts with two rows per gift.

Any help to get me started would be greatly appreciated. Sample file attached.

Thank you!

**simarui** · 04-23-2015, 11:47 AM

hi wwconslt, these rows are strange - it is generally inadvisable to have two different datatypes per column, and also i'm not really following why some of those columns are labeled as they are... "Gift Code" returns a credit card type? Campaign ID and Gift Desig both return the same exact value... called Desig Code on 'Payment_Type_D'...?

anyway, i'd highly recommend turning those 3 columns (E:G) into 6 columns so you can avoid the data-mismatch within a given column.

but, your ask was around inserting functions, for which the code is:

Please Login or Register  to view this content.

ActiveCell can (and probably should) be replaced with a variable you've declared up front, and based on your dataset i'm guessing you really want your code to look something like this:

Please Login or Register  to view this content.

**wwconslt** · 04-23-2015, 01:57 PM

Hi Simarui,

Thanks so much for this excellent solution--it works perfectly! I agree that the mix of data types in columns is odd. But that's the exact structure and format the vendor requires. They want the resulting csv file to look like this:

000000001,4001,01,10,Visa,4/20/2015,,
000000001,4001,02,020000,025100,10,,
000000002,4002,01,60,Visa,4/20/2015,,
000000002,4002,02,020000,025200,60,,

But in any case, your solution works great. Thanks again!