Change calculation by insert new column for two sheets for separated ranges

abdo meghari

Well-known Member
Joined
Aug 3, 2021
Messages
705
Office Version
  1. 2019
Hi,
after I got help from two forums .
I want macro to do my requirements( please I don't want any answering or comments by POWER QUERY)
so in SELLING,COSTING sheets contain separated ranges and I would merge in RESULT sheet .
will brings the whole ranges from SELLING sheets and insert COSTING PRICE after SELLING PRICE column F and brings COSTING PRICE from COSTING sheet for each group and for each DESCRIPTION column contains ID
I highlighted what should be change whether words or formulas(no need color just to understand it) .
in COSTING sheet will be new ID in column C and will not be existed in SELLING sheet then should ignore (don't show in result sheet)
in RESULT sheet should delete data every time before brings data.
ABDO1 JT) (2).xlsb
ABCDEFG
1GROUP/COMPANY: GOMMEST
2ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICETOTAL
31GOMMEST BLUE TR414 100 PCSPIECE250.451,625.00
42GOMMEST EUS-65 ROUND PATCH 65X65 PIECE102.5025.00
53GOMMEST P1108 TAIWANPIECE115.5060.50
64GOMMEST PTO-2301-R 0.6X100MM.PIECE881.50132.00
75GOMMEST VMTC 7.50-16 V3-02-7PIECE160.0060.00
86GOMMESTHEADER OF PRESSUREPIECE14.004.00
97GOMMESTLEAD 10GM WIDEPIECE30.752.25
108GOMMESTLEAD 10GM TIDEPIECE70.855.95
119GOMMESTLEAD 15GM WIDEPIECE40.652.60
1210GOMMESTLEAD 15GM TIDEPIECE60.955.70
1311GOMMESTLEAD 20GM WIDEPIECE70.704.90
1412GOMMESTLEAD 20GM TIDEPIECE160.8012.80
1513GOMMEST BOAF0-50PIECE2100.90189.00
1614GOMMEST XIA TW-9250 250MLPIECE10.950.95
17SELLING TOTAL2,130.65
18
19
20
21GROUP/COMPANY: TIRES
22ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICETOTAL
231TIRESBS 750R16 R230 JAPPIECE10450.004,500.00
242TIRESBS 750R16 VSJ JAPPIECE8750.006,000.00
253TIRESBS 1200R20 G580 JAPPIECE22,500.005,000.00
264TIRESBS 315/80R22.5 R184 JAPPIECE801,950.00156,000.00
275TIRESBS 1400R20 VSJ JAPPIECE14,000.004,000.00
286TIRESBS 1200R24 G580 JAPPIECE22,800.005,600.00
297TIRESGC 1200R20 AZ026 CHIPIECE21,350.002,700.00
308TIRESGC 1200R20 QAZ183 CHIPIECE51,450.007,250.00
31SELLING TOTAL191,050.00
32
33
34
35GROUP/COMPANY: BATTERY
36ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICETOTAL
371BATTERYXPRO 70A L KORPIECE1350.00350.00
382BATTERYXPRO 70A R KORPIECE2300.00600.00
393BATTERYXPRO 90A R KORPIECE2425.00850.00
404BATTERYHANKOOK 150A L KORPIECE10850.008,500.00
415BATTERYASIMCO 150A L KORPIECE1750.00750.00
42SELLING TOTAL11,050.00
SALES



ABDO1 JT) (2).xlsb
ABCDEFG
1GROUP/COMPANY: GOMMEST
2ITEMBRAND NODESCRIPTIONUNITQTYCOSTING PRICETOTAL
31GOMMEST VMTC 7.50-16 V3-02-7PIECE10045.004,500.00
42GOMMESTHEADER OF PRESSUREPIECE1100.5560.50
53GOMMESTLEAD 10GM WIDEPIECE2000.2550.00
64GOMMEST BLUE TR414 100 PCSPIECE1250.3341.25
75GOMMEST EUS-65 ROUND PATCH 65X65 PIECE1001.50150.00
86GOMMEST P1108 TAIWANPIECE153.5052.50
97GOMMEST PTO-2301-R 0.6X100MM.PIECE901.25112.50
108GOMMEST XIA TW-9250 250MLPIECE120.495.88
119GOMMESTLEAD 10GM TIDEPIECE170.355.95
1210GOMMESTLEAD 15GM WIDEPIECE440.4419.36
1311GOMMESTLEAD 15GM TIDEPIECE660.4529.70
1412GOMMESTLEAD 20GM WIDEPIECE770.4635.42
1513GOMMESTLEAD 20GM TIDEPIECE1660.4778.02
1614GOMMEST BOAF0-50PIECE2500.48120.00
17COSTING TOTAL5,261.08
18
19
20
21GROUP/COMPANY: TIRES
22ITEMBRAND NODESCRIPTIONUNITQTYCOSTING PRICETOTAL
231TIRESBS 1200R20 G580 JAPPIECE102,400.0024,000.00
242TIRESBS 1200R24 G580 JAPPIECE202,700.0054,000.00
253TIRESGC 1200R20 AZ026 CHIPIECE301,300.0039,000.00
264TIRESBS 750R16 R230 JAPPIECE50400.0020,000.00
275TIRESBS 750R16 VSJ JAPPIECE80700.0056,000.00
286TIRESBS 315/80R22.5 R184 JAPPIECE1001,900.00190,000.00
297TIRESBS 1400R20 VSJ JAPPIECE203,900.0078,000.00
308TIRESGC 1200R20 QAZ183 CHIPIECE301,400.0042,000.00
31COSTING TOTAL533,000.00
32
33
34
35GROUP/COMPANY: BATTERY
36ITEMBRAND NODESCRIPTIONUNITQTYCOSTING PRICETOTAL
371BATTERYXPRO 70A L KORPIECE1300.00300.00
382BATTERYXPRO 70A R KORPIECE2250.00500.00
393BATTERYNOVA 150A L KORPIECE1700.00700.00
404BATTERYASIMCO 150A L KORPIECE2700.001,400.00
415BATTERYXPRO 90A R KORPIECE2400.00800.00
426BATTERYHANKOOK 150A L KORPIECE10800.008,000.00
43COSTING TOTAL11,700.00
COSTING




SHOULD BE
ABDO1 JT) (2).xlsb
ABCDEFGH
1GROUP/COMPANY: GOMMEST
2ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICECOSTING PRICETOTAL
31GOMMEST BLUE TR414 100 PCSPIECE250.450.333.00
42GOMMEST EUS-65 ROUND PATCH 65X65 PIECE102.501.5010.00
53GOMMEST P1108 TAIWANPIECE115.503.5022.00
64GOMMEST PTO-2301-R 0.6X100MM.PIECE881.501.2522.00
75GOMMEST VMTC 7.50-16 V3-02-7PIECE160.0045.0015.00
86GOMMESTHEADER OF PRESSUREPIECE14.000.553.45
97GOMMESTLEAD 10GM WIDEPIECE30.750.251.50
108GOMMESTLEAD 10GM TIDEPIECE70.850.353.50
119GOMMESTLEAD 15GM WIDEPIECE40.650.440.84
1210GOMMESTLEAD 15GM TIDEPIECE60.950.453.00
1311GOMMESTLEAD 20GM WIDEPIECE70.700.461.68
1412GOMMESTLEAD 20GM TIDEPIECE160.800.475.28
1513GOMMEST BOAF0-50PIECE2100.900.4888.20
1614GOMMEST XIA TW-9250 250MLPIECE10.950.490.46
17SELLING NET179.91
18
19
20
21GROUP/COMPANY: TIRES
22ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICECOSTING PRICETOTAL
231TIRESBS 750R16 R230 JAPPIECE10450.00400.00500.00
242TIRESBS 750R16 VSJ JAPPIECE8750.00700.00400.00
253TIRESBS 1200R20 G580 JAPPIECE22,500.002,400.00200.00
264TIRESBS 315/80R22.5 R184 JAPPIECE801,950.001,900.004,000.00
275TIRESBS 1400R20 VSJ JAPPIECE14,000.003,900.00100.00
286TIRESBS 1200R24 G580 JAPPIECE22,800.002,700.00200.00
297TIRESGC 1200R20 AZ026 CHIPIECE21,350.001,300.00100.00
308TIRESGC 1200R20 QAZ183 CHIPIECE51,450.001,400.00250.00
31SELLING NET5,750.00
32
33
34
35GROUP/COMPANY: BATTERY
36ITEMBRAND NODESCRIPTIONUNITQTYSELLING PRICECOSTING PRICETOTAL
371BATTERYXPRO 70A L KORPIECE1350.00300.0050.00
382BATTERYXPRO 70A R KORPIECE2300.00250.00100.00
393BATTERYXPRO 90A R KORPIECE2425.00400.0050.00
404BATTERYHANKOOK 150A L KORPIECE10850.00800.00500.00
415BATTERYASIMCO 150A L KORPIECE1750.00700.0050.00
42SELLING NET750.00
43
44SELLING NET TOTAL6,679.91
45
result
Cell Formulas
RangeFormula
H37:H41,H23:H30,H3:H16H3=(F3-G3)*E3
H17H17=SUM(H3:H16)
H31H31=SUM(H23:H30)
H42H42=SUM(H37:H41)
H44H44=H42+H31+H17






thanks
 

Excel Facts

How to change case of text in Excel?
Use =UPPER() for upper case, =LOWER() for lower case, and =PROPER() for proper case. PROPER won't capitalize second c in Mccartney

Forum statistics

Threads
1,226,514
Messages
6,191,479
Members
453,658
Latest member
healmo

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