Copy two sheets data in new work book with two sheets. [Closed]

Report
-
 Blocked Profile -
Dear Concern,

Please resolve the query I requested below...

I have a work book like....
Sheet 1: It has student detials (Enrollment No, Name, father name, Dob, Date of Joining). count of "N" Students.
Sheet 2: has Enrollment No, Hall ticket, Subjects to appear.
Sheet 3: has Subject1 (Gained Marks, Min Marks,total Marks, % he scored) mapped with Hall Ticket.
Sheet 4: has Subject2 (Gained Marks, Min Marks,total Marks, % he scored) mapped with Hall Ticket.
Sheet 5: has Subject3 (Gained Marks, Min Marks,total Marks, % he scored) mapped with Hall Ticket.

Now I need a macro with Create a new work Book with Two Sheets: map the Student details...
Sheet1: Student details ( Hall Ticket No, Name of Student, Subjects)
Sheet2: Subjects of particular Student appeared with Marks and percentage.

Like wise i need for N students.


1 reply

POst some code, and we can help. We do not provide turn key solutions, but can help if you are stuck.

Have you recorded a macro doing what you want it to do? If not, I encourage you to r3cord a macro, then look at it to see how EXCEL VBA handles some different methods. Then make your code flexible with variables. POst back what you have so far!

It's kind of fun to do the impossible! -Walter Elias Disney
Blocked Profile
Dear the one who is asking for help,

You are selecting cell A1 every time? Change the value with a loop variable.
Posts
3
Registration date
Wednesday December 13, 2017
Status
Member
Last seen
December 15, 2017

Dear Concern,

Here my idea is:
A1 is my header. if run the logic it should "subfilter" and select entire details of the Unique Id "123" and paste in new workbook;select entire details of the Unique Id "124" and paste in new workbook;select entire details of the Unique Id "125" and paste in new workbook.

UniqueId Hlt No Std Name Subj Max Marks Min Marks Marks Obtain Percentage
123 1231231 ABC Subject 1 150 35 50 33%
123 1231231 ABC Subject 2 150 35 60 40%
123 1231231 ABC Subject 3 150 35 70 47%
124 1241232 DEF Subject 1 150 35 65 43%
124 1241232 DEF Subject 2 150 35 55 37%
124 1241232 DEF Subject 3 150 35 45 30%
125 1251233 GHI Subject 1 150 35 45 30%
125 1251233 GHI Subject 2 150 35 66 44%
125 1251233 GHI Subject 3 150 35 58 39%
OK, so do you know how to get values out of the cell ,and compare them to the previous value?

Here is an example of that:

dim therowcount, therange

for therowcount = 1 to 10 step 2 'we are counting by twos! 1,3 5, 7, 9

theOldrange = "A" & therowcount
theNewrange = "A" & therowcount + 1
oldval = ThisWorkBook.Worksheets("Sheet1").Range(theOLDrange).value
newval = ThisWorkBook.Worksheets("Sheet1").Range(theNewrange).value
if oldval=newval then
'the two values are the same, so the range should be written to the new sheet
next



That is a solid start. Have FUN!
Post code, and we can help. I am not going to provide you a complete solution, as you will not learn that way, and you will only cut and paste, and tell me it doesn't work. I do not expect it to work as written, but what I expect is for you to have the capacity to look at the example and make it fit into your MODEL!
Posts
3
Registration date
Wednesday December 13, 2017
Status
Member
Last seen
December 15, 2017

Dear Concern,

Can I reach you over phone, to discuss on this?
You sure can, have your paypal ready, as I am $1500 (US) per 8 hours!

No of course you cannot. I am a volunteer, who already has a full time job. I can help, but I cannot possibly design, author, and deploy your solution!