Macro for Excel Data Consolidation

bb19august

New Member
Joined
Feb 1, 2019
Messages
18
Can someone help me with creating excel macro for the following.

Data will be entered in the "Main" Worksheet Table. Shown entries for a project with two units - Unit 1 and 2. this could be multiple units.[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD]"Enter Project Name Here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD]"Enter Test Date here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD]"Enter Test Report Name here"[/TD]
[TD][/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]"Enter Unit1 Name Here"[/TD]
[TD]"Enter Unit1 P/N Here"[/TD]
[TD]"Enter Unit1 Criticality Here"[/TD]
[TD]"Enter Unit1 SW Version here"[/TD]
[/TR]
[TR]
[TD]"Enter Unit2 Name Here"[/TD]
[TD]"Enter Unit2
P/N Here"[/TD]
[TD]"Enter Unit2 Criticality Here"[/TD]
[TD]"Enter Unit2 SW Version here"[/TD]
[/TR]
</tbody>[/TABLE]

A click option (Button or a cell with "Click here") in the Main worksheet will populate the Project (say P1) data in a different worksheet in the same file (say "Data" worksheet) in the below fashion

[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]P1[/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD][/TD]
[TD][/TD]
[TD]10/10/2019[/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]111-11[/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]111[/TD]
[TD]A[/TD]
[TD]1.0[/TD]
[/TR]
[TR]
[TD]BB100[/TD]
[TD]222[/TD]
[TD]B[/TD]
[TD]1.2

[/TD]
[/TR]
</tbody>[/TABLE]

When a different project (say P2) details are entered and submitted in the Main worksheet, it will insert/add rows to include the data as shown below. Here shown for three units (AA100, BB101, C100). So it could be same unit name(AA100) or a new unit name (BB101, C100). Same unit names to insert rows below the same names and data populated. New unit names adds data below the last entered column as shown below.

[TABLE="width: 500"]
<tbody>[TR]
[TD]Project Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]P1[/TD]
[TD]P2[/TD]
[/TR]
[TR]
[TD]Test Date[/TD]
[TD][/TD]
[TD][/TD]
[TD]10/10/2019[/TD]
[TD]10/22/2019[/TD]
[/TR]
[TR]
[TD]Report Name[/TD]
[TD][/TD]
[TD][/TD]
[TD]111-11[/TD]
[TD]111-12[/TD]
[/TR]
[TR]
[TD]Unit Name[/TD]
[TD]Unit P/N[/TD]
[TD]Unit Criticality[/TD]
[TD]SW Version[/TD]
[TD]SW Version[/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]111[/TD]
[TD]A[/TD]
[TD]1.0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]AA100[/TD]
[TD]112[/TD]
[TD]A[/TD]
[TD]1.1[/TD]
[TD]1.1[/TD]
[/TR]
[TR]
[TD]BB100[/TD]
[TD]222[/TD]
[TD]B[/TD]
[TD]2.0[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]BB101[/TD]
[TD]223[/TD]
[TD]B[/TD]
[TD][/TD]
[TD]2.1[/TD]
[/TR]
[TR]
[TD]C100[/TD]
[TD]100[/TD]
[TD]A[/TD]
[TD][/TD]
[TD]1.0[/TD]
[/TR]
</tbody>[/TABLE]

It could be helpful if someone could help out. Not sure, If the above description seems confusion. i can try to answer better if there are any clarifications.

Thank you.
BB
 

Excel Facts

Is there a shortcut key for strikethrough?
Ctrl+S is used for Save. Ctrl+5 is used for Strikethrough. Why Ctrl+5? When you use hashmarks to count |||| is 4, strike through to mean 5.
I added a command button (in the Main worksheet) and include the following script. This will copy the contents from one sheet to another based on unit names. However need help with looking up this unit list from a table with unit names predefined.
Also help with inserting rows in between when same units are entered in the main sheet, rather than copying to the last blank row.

Private Sub CommandButton1_Click()
a = Worksheets("Main").Cells(Rows.Count, 1).End(xlUp).Row
For i = 5 To a
Worksheets("Main").Cells(i, 1).Value = "AA100" Or Worksheets("Main).Cells(i, 1).Value = "BB100" Or Worksheets("Main).Cells(i, 1).Value = "BB101" Or Worksheets("Main).Cells(i, 1).Value = "C100" Then
Worksheets("Main").Rows(i).Copy
Worksheets("Data").Activate
b = Worksheets("Data").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("Data").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Main").Activate
End If
Next
Application.CutCopyMode = False
ThisWorkbook.Worksheets("Main").Cells(1, 1).Select


End Sub
 
Upvote 0

Forum statistics

Threads
1,223,164
Messages
6,170,444
Members
452,326
Latest member
johnshaji

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top