Extract Data from other sheet and plug into the calculation sheet

christina610

New Member
Joined
Sep 21, 2014
Messages
1
Hi there,

Im creating a dashboard. I have a table sheet name "data" with alot of information and values. I also have another sheet name "calculation". I have to get some value from the "data sheet" and plug into the "calculation sheet" and get the formula runs and plug the result into the "data sheet" back.

Example as below:
Data Sheet

A - Item CodeB -DescriptionC-Prod WidthD-Prod HeightE-Prod LengthF-Pack WidthG-Pack HeightH-Pleat DensityI -Pleat HeightJ -FaceguardK-Filter Weight
15000001Megalam MDL13-305*305-01/2030530566301301304520
15000002Megalam MDL13-305*610-01/2030561066301606304520
15000003Megalam MDL13-610*610-01/2061061066606606304520
15000004Megalam MDL13-762*610-01/2076261066758606304520

<tbody>
</tbody>


I would like to pull the value from coloumn C,D,E,H,I,J plug into the below calculation sheet get the Total weight and plug in back to the above Data Sheet at the K - Filter Weight column. and its have to work for the each row when i click run button

Calculation Sheet
WHDInletOutletP/Density:P/Height:
C
D
E
H
I
J

<tbody>
</tbody>

kg
1) Frame (kg/m)Error#VALUE!
2) Media (kg/m²)0.070.00
3) Hotmelt0.00
4) PU0.00
6) Gasket0.00
7) Faceguard (kg/m²)2.1170.00
Total Weight#####

<tbody>
</tbody>

Below is the VBA code which i have did.

'pull data from calculation sheet
RowDestination = 3
Sheets("Calculator1").Select
Rows("3:1048576").Select
Selection.ClearContents
Sheets("Data").Select
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
For RowA = 3 To LastRow

ProductWidth = Cells(RowA, "D")
ProdHeight = Cells(RowA, "E")
ProdLength = Cells(RowA, "F")
PleatDensity = Cells(RowA, "X")
PleatHeight = Cells(RowA, "Y")
Faceguard = Cells(RowA, "AL")


Sheets("Calculator1").Cells(RowDestination, "G") = W
Sheets("Calculator1").Cells(RowDestination, "H") = H
Sheets("Calculator1").Cells(RowDestination, "D") = D
Sheets("Calculator1").Cells(RowDestination, "L") = Faceguard
Sheets("Calculator1").Cells(RowDestination, "N") = P / Density
Sheets("Calculator1").Cells(RowDestination, "O") = P / Height

'Results(D, 32).Value = Sheets("Data").Range("AM3:AM1048576").Value


RowDestination = RowDestination + 1
' End If
' End If
Next RowA


But its not working. Need your help on this. Appriciate your help alot.

Thanks & Regards,
Keren
 

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

Forum statistics

Threads
1,213,536
Messages
6,114,202
Members
448,554
Latest member
Gleisner2

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