TimvMechelen
Board Regular
- Joined
- Nov 7, 2016
- Messages
- 121
Hi all,
My workbook is getting very slow, especially when i insert rows or enter new data for example.
Is there a faster way to achieve the same result?
I hope the formulas are translated correctly from dutch to english.
Formula 1:
=VLOOKUP(OFFSET(A85;-1;0);'CAPACITY'!$AM:$BL;COLUMNS('CAPACITY'!$AM$16:$BL$16);FALSE)
Formula 2:
=SUM(INDIRECT(ToColletter(COLUMN(G86))&MATCH(OFFSET($A86;-2;0);$A:$A;0)&":"&ToColletter(COLUMN(G86))&CELL("row";G86)-2))
The "ToColletter" is a VBA function that gives the charater of the column instead of the number:
My workbook is getting very slow, especially when i insert rows or enter new data for example.
Is there a faster way to achieve the same result?
I hope the formulas are translated correctly from dutch to english.
Formula 1:
=VLOOKUP(OFFSET(A85;-1;0);'CAPACITY'!$AM:$BL;COLUMNS('CAPACITY'!$AM$16:$BL$16);FALSE)
Formula 2:
=SUM(INDIRECT(ToColletter(COLUMN(G86))&MATCH(OFFSET($A86;-2;0);$A:$A;0)&":"&ToColletter(COLUMN(G86))&CELL("row";G86)-2))
The "ToColletter" is a VBA function that gives the charater of the column instead of the number:
Code:
Public Function ToColletter(Collet) ToColletter = Split(Cells(1, Collet).Address, "$")(1)
End Function