VBA-Beginner needs help

Ankou

New Member
Joined
Dec 27, 2021
Messages
3
Office Version
  1. 2013
Platform
  1. Windows
Hi everyone ,
I need some help to create VBA code that could replace this formula.
There is a lot of cells that needs to be filled and this formula slows excels by a lot makes it almost unusable.
I couldn't post the whole sheet due to limited number of cells.
1652901639185.png

excel.xlsx
BCDEFGHIJKLMNOPQRSTUVWXYZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLBMBN
2Indentification numberERP system numberNameWeightBranchTotal orders4/25/20224/26/20224/27/20224/28/20224/29/20224/30/20225/1/20225/2/20225/3/20225/4/20225/5/20225/6/20225/7/20225/8/20225/9/20225/10/20225/11/20225/12/20225/13/20225/14/20225/15/20225/16/20225/17/20225/18/20225/19/20225/20/20225/21/20225/22/20225/23/20225/24/20225/25/20225/26/20225/27/20225/28/20225/29/20225/30/20225/31/20226/1/20226/2/20226/3/20226/4/20226/5/20226/6/20226/7/20226/8/20226/9/20226/10/20226/11/20226/12/20226/13/20226/14/20226/15/20226/16/20226/17/20226/18/20226/19/20226/20/2022
330031265S-AL209620.Obciążnik 900 kg AL20962090596Linia D1 wydział P30#N/A#N/A#N/A
430031266S-CT01081.Płyta przy. CT01081 (F-0270)52648Linia D1 wydział P30#N/A#N/A#N/A
530031269S-1812944.Korpus 181294444748Linia D1 wydział P3#N/A#N/A#N/A
630031272S-M954.800.040.061.Obciążnik M954.800.040.061 600kg61548Linia D1 wydział P352424
730031273S-CT01080.Pokrywa CT0108030648Linia D1 wydział P3
830031275S-AL209870.Obciążnik 1500kg AL2098701468120Linia D1 wydział P3
930031276S-GL315H009.Pokrywa GL315H00918924Linia D1 wydział P3
1030031280S-GL210H011.0.Korpus GL210H011.027024Linia D1 wydział P3
1130031284S-370165H01.Skrzynia przekładni 370165H01 / FUA000741424Linia D1 wydział P3
1230031285S-1V10H0457.Pokrywa pom. 1V10H0457101436Linia D1 wydział P3
1330031286S-2067664.Korpus silnika 206766451036Linia D1 wydział P3
1430031292S-1G-14001U.Skrzynia przekładni 1G-14001U (A5Z00492835)895120Linia D1 wydział P3
1530031295S-1G-30023-C.Obudowa łożyska 1G-30023-C (A5Z00488478)8224Linia D1 wydział P3
1630031298S-452.0921.Pierścień 452.0921-00137636Linia D1 wydział P3
1730031299S-442.9272.Pierścień 442.927231936Linia D1 wydział P3
1830031300S-0000956401D1.Korpus suportu 0000956401D18524Linia D1 wydział P3
1930031301S-0000956501-D.Korpus suportu 0000956501-D8424Linia D1 wydział P3
2030031303S-7087519650.Stojak 708751965044748Linia D1 wydział P3
2130031304S-ARCH_PAAJ023217.ARCH Obudowa PAAJ023217 (A5Z00023217)4824Linia D1 wydział P3
2230031305S-PAAJ044238.Pokrywa PAAJ044238 (A5Z00044238)9236Linia D1 wydział P3
2330031306S-PAAJ045723.Pokrywa PAAJ045723 (A5Z00045723)4624Linia D1 wydział P3
2430031307S-PAAJ044217.Pokrywa PAAJ044217 (A5Z00044217)7248Linia D1 wydział P3
MAIN
Cell Formulas
RangeFormula
J3:K6,L4:L6J3=INDEX(copy!$C:$C,MATCH(1,(MAIN!$D3=copy!$A:$A)*(MAIN!J$2=copy!$B:$B),0))
L3L3=INDEX(copy!$C:$C,MATCH(1,(MAIN!$D3=copy!$A:$A)*(MAIN!L$2=copy!$B:$B),0))
I3:I4I3=AGGREGATE(9,6,J3:BN3)
Press CTRL+SHIFT+ENTER to enter array formulas.
Named Ranges
NameRefers ToCells
copy!_FilterDatabase=copy!$A$1:$E$1J3:L6
Cells with Conditional Formatting
CellConditionCell FormatStop If True
E3:E522,F:FCellcontains an errortextNO




excel.xlsx
ABC
1NameDelivery timeAmount
2Głowica 3.45.261.008.4017/10/20202
3Głowica 3.45.261.008.4018/31/20204
4Głowica 3.45.261.008.4019/30/20204
5Kil SE80 449847 Komplet11/9/20211
6Pierścień BG00866668 REV D (BG00907838 REV A)2/2/20221
7Wrzeciennik 2042757-13 /M-71000A2/18/20221
8Pierścień 933.665.007.3.0 SG2/23/20221
9Obudowa 1199646503/4/20221
10Prowadnica 1413556503/8/20222
11Wał główny 702719767 (L-07457)3/15/20224
12Korpus GL225H0113/16/20224
13Korpus GL225H0113/16/20223
14Stojak FTAA-603/18/20222
15Rama 1416706503/21/20221
16Kor. pompy cz.górna L-06790 400LNN725 HYD A- żel. szare A48CL.40 wg ASTM3/23/20221
17Kor pompy cz.dolna L-06789 400LNN725 HYD A - żel. szare A48CL.40 wg ASTM3/23/20221
18Korpus silnika 265383/24/20222
19Obciążnik M954.800.040.061 600kg4/25/20225
20Obciążnik M954.800.040.061 600kg3/28/202228
21Kadłub 18-400-253/28/20226
22Wirnik 12396-C3T Rm471/ Rp330/ A5-12%3/29/20221
23Belka osi XR2238/428A3/30/20224
24Obciążnik M954.800.040.061 600kg3/30/202224
25Korpus CT01184/13/31/20222
26Pierścień 131172748 (L-07761)3/31/20223
27Kil 460.03.02 MID4/5/20221
28Koło 760677 M2414/6/202244
29Stoper 14160 Rm-400/Re-240/A5-12%4/8/20222
30Koło M354 9711954/8/20221
31Kadłub 18-400-254/8/202210
32Kil 460.03.02 MID4/8/20221
33Kil SE60 453328 Komplet4/11/20221
34Skrzynia przekładni 370165H01 / FUA00074/13/202220
35Korp. reg 101426105944/13/20223
36Kil B45T 315216 Komplet4/13/20221
37Korpus silnika 265384/14/202210
38Stopa 228254/14/202236
39KIL BENTE 28 (28 BEN-CK)4/14/20221
40KIL BENTE 28 (28 BEN-CK)4/14/20222
41Obciążnik 1500kg AL2098704/15/20221
42Obciążnik M954.800.040.061 600kg4/15/202224
43Płyta stołu T-31-01-00-82114/15/20222
44Kil 460.03.02 MID4/15/20221
45Kil 460.03.02 MID4/15/20221
46Obciążnik M954.800.040.061 600kg4/19/202224
47Obciążnik M954.800.040.061 600kg4/19/202224
48Obciążnik M954.800.040.061 600kg4/20/202224
49Kil B45F 3152864/20/20221
50Obciążnik M954.800.040.061 600kg4/21/202224
51Kil B45T 315216 Komplet4/21/20222
52Kor. pompy cz.górna L-06790 400LNN725 HYD A- żel. szare A48CL.40 wg ASTM4/22/20223
53Obciążnik M954.800.040.061 600kg4/22/202224
54Kor pompy cz.dolna L-06789 400LNN725 HYD A - żel. szare A48CL.40 wg ASTM4/22/20223
55Koło Blickle 349 (969429/00)4/22/202210
56Kil B46F 4055944/22/20221
57Kadłub CS0-1110254/25/20225
58Kostka 85x180x440 2004/25/20221
59Korpus 046270 (10015251)4/25/20221
60Obciążnik 900 kg AL2096204/28/202244
61Obciążnik 1150 kg AL2096184/26/202215
62Koło pasowe ZGR1-660P 01.03.00.04/26/20221
63Koło pasowe GRP1-550 02.02.00.24/26/20221
64Obciążnik M954.800.040.061 600kg4/26/202224
65Wirnik 000096464-D 457/320/124/26/20221
66Belka poprzeczna 48121116534/26/20223
67Wspornik 2745794 LAKIER4/27/20224
68Wspornik 2745794 LAKIER4/27/20221
69Wspornik 2792415 LAKIER4/27/20222
70Wspornik 2792415 LAKIER4/27/20222
71Wspornik 2792415 LAKIER4/27/20221
72Obciążnik M954.800.040.061 600kg4/27/202224
73Korpus CT012084/28/20222
74Piasta GK-4879/10316934/28/20221
75Kadłub RZ-4146404/28/20225
76Kadłub CS0-1110304/28/20225
77Obudowa wirnika 14413 Rm464/Rp280/A5=12%4/28/20221
78Obudowa wirnika 14413 Rm464/Rp280/A5=12%4/28/20221
79Pierścień BG00866668 REV D (BG00907838 REV A)4/29/202210
80Pierścień BG002203224/29/20224
81Pierścień BG002199294/29/20225
82Tłok BG002201774/29/20225
83Suwak EN 100/125 (P5305-10)4/29/20221
84Obciążnik 1150 kg AL2096184/29/20223
85Obciążnik 1800 kg AL2098724/29/20223
86Pierścień 452.6045-0014/29/202215
87Korpus prasy H1.2010.0161/104/29/20221
88Wirnik 14159-E 400/340/124/29/20221
89Kil 2228624/29/20221
90Obciążnik 1150 kg AL2096185/2/202224
91Obciążnik 900 kg AL2096205/2/202216
92Belka poprzeczna 48121116535/3/20223
93Korpus 610837H015/4/202217
94Obudowa spir. 9332211420-SG5/4/20224
95Koło Blickle 355 (765x920) Linia D15/4/20221
96Obciążnik M954.800.040.061 600kg5/4/202224
97Korpus CT01194/15/5/20221
98Obciążnik 1500kg AL2098705/5/20223
99Belka poprzeczna 1021849 M-70916A5/5/20223
100Wirnik 12396-C3T Rm471/ Rp330/ A5-12%5/5/20221
101Obciążnik M954.800.040.061 600kg5/6/202224
102Wirnik 282941-C3V Rm400/ Re330/ A5-12%5/6/20221
103Wirnik 282941-C3V Rm400/ Re330/ A5-12%5/6/20221
104Obudowa wirnika 13780 (000085300) 464/280/125/6/20221
105Obudowa wirnika 13780 (000085300) 464/280/125/6/20221
106Obudowa wirnika 12398 464/280/125/6/20221
107Koło Blickle 349 (969429/00)5/6/202233
108Kil 460.03.02 MID5/6/20221
109Wirnik L-07415 (201006395)5/9/20222
110Pokrywa łożyska 131249967 (L-07674)5/9/20223
111Obciążnik 1150 kg AL2096185/9/202216
112Kil B40T 3166705/9/20221
113Kil 460.03.11 SHOAL5/9/20221
114Korpus CT012085/10/20222
115Konik 2025945-13 (M-70992A)5/10/20221
116Obciążnik M954.800.040.061 600kg5/10/202224
117Belka poprzeczna 48121116535/10/20222
118Belka poprzeczna 48121116535/10/20221
119Belka poprzeczna 48121116535/10/20223
120Belka poprzeczna 48121116535/10/20221
121Belka poprzeczna 48121147265/10/20221
122Belka poprzeczna 48121147265/10/20223
123Wał główny 702719767 (L-07457)5/11/20224
124Obciążnik M954.800.040.061 600kg5/11/202224
125Korpus silnika 265385/11/202210
126Stopa 228255/11/202240
127Korpus CT012095/12/20222
128Obciążnik 1800 kg AL2098725/12/20225
copy
 

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.
You could make the formulas a bit more efficient by not referencing entire columns. For example:
=INDEX(copy!$C1:$C1000,MATCH(1,(MAIN!$D3=copy!$A1:$A1000)*(MAIN!J$2=copy!$B1:$B1000),0))
 
Upvote 0
Solution
You could make the formulas a bit more efficient by not referencing entire columns. For example:
=INDEX(copy!$C1:$C1000,MATCH(1,(MAIN!$D3=copy!$A1:$A1000)*(MAIN!J$2=copy!$B1:$B1000),0))
Thanks that helped ! i completely forgot that excel will check every cell even if they are empty.
 
Upvote 0

Forum statistics

Threads
1,223,980
Messages
6,175,764
Members
452,668
Latest member
mrider123

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