Dear Masters,
I need a VBA code to do the following:
I have a worksheet consist of some 17,000 records - from ColA:ColDZ. In Datasheet, I have all values. From this, based on some values in ColA all records should be copied into another sheet(s).
I have attached a sample workbook in which I have explained the requirement.
Please help me to find the solution.
Thanks in advance.
acsishere.
Last edited by VBA Noob; 11-15-2008 at 12:17 PM.
Try this
Please Login or Register to view this content.
Hope that helps.
RoyUK
--------
For Excel Tips & Solutions, free examples and tutorials why not check out my web site
Free DataBaseForm example
Try this simple codeIt is different with the previous code in the fact that I copy per row and the previous code collects all rows (UNION) and copies this in two blocks. What I do not understand is why this is required?Please Login or Register to view this content.Please Login or Register to view this content.
Last edited by rwgrietveld; 11-12-2008 at 10:27 AM.
Looking for great solutions but hate waiting?
Seach this Forum through Google
www.Google.com (e.g. +multiple +IF site:excelforum.com/excel-general/ )
www.Google.com (e.g. +fill +combobox site:excelforum.com/excel-programming/ )
Ave,
Ricardo
Dear Mr. RoyUK,
Thanks a lot for your help. This is working very nicely.
But, I need a small adjustment in it. I just wanted to paste the values in the other sheets only from 4th row onwards.
Can you please help me, Sir.
Thanks in advance.
acsishere.
Last edited by acsishere; 11-12-2008 at 10:24 AM.
The code that I provided copies from Row 3 which is the first line of data in your workbook datasheet.
Edit: the other code does as well
Dear Mr. RoyUK,
Yes Sir,
It is copying from row 3 onwards. But PASTING in other sheets from row 1 onwards. Here I need that it should be pasted from row 4 onwards.
Please Sir,
Thanks in advance,
acsishere.
This will paste in row 4
Please Login or Register to view this content.
Last edited by royUK; 11-12-2008 at 12:34 PM.
see attached workbook.
The code has been modified to paste in row 4 in destination sheets.
modytrane
Am I missing something? The attachment contains my original code & will not paste to Row 4, the amended code, that I posted, doesOriginally Posted by modytrane
royUK,
I had made small change to your code.
And it does work.Please Login or Register to view this content.
The change was made on the two lines "case 1" and "case 2".
I am still a novice when it comes to the VBA.
So I was trying to understand your code and learn from it.
I have benefited very much from these forums and in return if I could help in some way, I was trying to do just that.
In case if you were busy, I was trying to help.
It is your code and in no way was I trying to take any credit.
Sorry, if you felt that way.
modytrane.
No problem, I didn't see that. That's the best way to learn & it's good to see someone trying to understand the code.royUK,
I had made small change to your code.
And it does work.Please Login or Register to view this content.
The change was made on the two lines "case 1" and "case 2".
I am still a novice when it comes to the VBA.
So I was trying to understand your code and learn from it.
I have benefited very much from these forums and in return if I could help in some way, I was trying to do just that.
In case if you were busy, I was trying to help.
It is your code and in no way was I trying to take any credit.
Sorry, if you felt that way.
modytrane.
Dear Sirs,
Thanks for your code and subsequent modifications.
That's the spirit. Thanks again.
Here, I need a bit more modification. i.e. the values must be copied in pastespecial mode paste:pastevalues.
Because, my Outsh. sheets are already formatted and I don't want to disturb the formatted sheet. I just need to copy only the values.
Please help.
acsishere.
Added the starting from 4 and the pasteSpecial
Please Login or Register to view this content.
Try this
Please Login or Register to view this content.
Dear Mr. RoyUK,
Thanks for your reply.
But when I run the code, again it copies entirely, not only the values.
As I am to paste only the values and destination sheets are already formatted, I need your kind solution in this regard.
Please Sir,
Thanks in advance,
acsishere.
Dear Mr. RoyUK,
I need your kind help accomplish the task successfully.
Please Sir,
Thanks in advance,
acsishere.
Does the last code not change to values?
If not attach a small example workbook.
Dear Mr. RoyUK,
Dear Sir,
Thanks for your reply.
I am herewith attached the sample workbook with all the three codes.
Thanks in advance.
acsishere.
Dear Mr. RoyUK,
Please help me to find the solution.
Thanks in advance, acsishere.
I can't see what the problem is. The examplee has no formatting in the other sheets, nor any formulas.
When I add formulas the code replaces them with values.
Dear Mr. RoyUK,
Once again, this is acsishere.
Good Evening Sir, as you said, I have once again attached the sample workbook, in which I have demonstrated the problem what I was facing.
The code is the ultimate one, but it is to paste only the values instead of all formats.
Please look into that, give me a solution Sir.
Thanks in advance.
acsishere.
Hopefully this is what you want
Please Login or Register to view this content.
Dear Mr. RoyUK,
That's it. And, You did it.
Thanks a lot, lot, lot for your continuous support.
Best wishes!
acsishere.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks