Correct and compleate a VBA excel script
Budget: $10 – $30 AUD
Macro Button activated
Check column F of ‘Uniform Return’ and select the matching ‘Stock Levels -’ worksheet
if the content of that cell is Head Office select the worksheet ‘Stock Levels - Head Office’, if the content is West Metro select the worksheet ‘Stock Levels - West Metro’, if the content is North Metro select the worksheet ‘Stock Levels - North Metro’, if the content is South Metro select the worksheet ‘Stock Levels - South Metro’, f the content is Gippsland select the worksheet ‘Stock Levels – Gippsland’, if the content is North East select the worksheet ‘Stock Levels - North East’, if the content is South West select the worksheet ‘Stock Levels - South West’, if the content is North West select the worksheet ‘Stock Levels - North West’
then
find the cells that matches the contents of row 5 of the worksheet ‘Uniform Return’ and the content in column B11:B of the selected ‘Stock Levels -’ worksheet
then from those rows, in the selected ‘Stock Levels -’ worksheet, find where the contents of G13:G, M13:M, S13:S, Y13:Y, AE13:AE, AK13:AK, AQ13,AQ, AW13:AW, BC13:BC, BI13:BI, BO13:BO, BU13:BU, CA13:CA, CG13:CG, CM13:CM, CS13:CS, CY13:CY, DE13:DE, DK13:DK, DQ13:DQ, DW13:DW, EC13:EC, EI13:EI, EO13:EO, EU13:EU, FA13:FA, FG13:FG, FM13:FM, FS13:FS, FY13:FY, GE13:GE GK13:GK, GQ13:GQ, GW13:GW, HC13:HC in the worksheet ‘Uniform Return’ matches the content in column E11:E of the selected ‘Stock Levels -’ worksheet
when found
if J13:J, P13:P, V13:V, AB13:AB, AH13:AH AO13:AO, AT13,AT, AZ13:AZ, BF13:BF, BL13:BL, BR13:BR, BX13:BX, CD13:CD, CJ13:CJ, CP13:CP, CV13:CV, DB13:DB, DH13:DH, DN13:DN, DT13:DT, DZ13:DZ, EF13:EF, EL13:EL, ER13:ER, EX13:EX, FD13:FD, FJ13:FJ, FP13:FP, FV13:FV, FB13:FB, GH13:GH GN13:GN, GT13:GT, GZ13:GZ, HF13:HF in the worksheet ‘Uniform Return’ contains “R”
then to the corresponding cells in that row
add the amount found in H13:H, N13:N, T13:T, Z13:Z, AF13:AF, AL13:AL, AR13,AR, AX13:AX, BD13:BD, BJ13:BJ, BP13:BP, BV13:BV, CB13:CB, CH13:CH, CN13:CN, CT13:CT, CZ13:CZ, DF13:DF, DL13:DL, DR13:DR, DX13:DX, ED13:ED, EJ13:EJ, EP13:EP, EV13:EV, FB13:FB, FH13:FH, FN13:FN, FT13:FT, FZ13:FZ, GF13:GF GL13:GL, GR13:GR, GX13:GX, HD13:HD of the ‘Uniform Return’ worksheet to the cells in G11:G, of the selected ‘Stock Levels –‘ worksheet,
Copy the entries from ‘Uniform Return’ to the next empty row in ‘Returned Uniform – History’
Clear contents from ‘Uniform Return’ = upon copy.
Check column F of ‘Uniform Return’ and select the matching ‘Stock Levels -’ worksheet
if the content of that cell is Head Office select the worksheet ‘Stock Levels - Head Office’, if the content is West Metro select the worksheet ‘Stock Levels - West Metro’, if the content is North Metro select the worksheet ‘Stock Levels - North Metro’, if the content is South Metro select the worksheet ‘Stock Levels - South Metro’, f the content is Gippsland select the worksheet ‘Stock Levels – Gippsland’, if the content is North East select the worksheet ‘Stock Levels - North East’, if the content is South West select the worksheet ‘Stock Levels - South West’, if the content is North West select the worksheet ‘Stock Levels - North West’
then
find the cells that matches the contents of row 5 of the worksheet ‘Uniform Return’ and the content in column B11:B of the selected ‘Stock Levels -’ worksheet
then from those rows, in the selected ‘Stock Levels -’ worksheet, find where the contents of G13:G, M13:M, S13:S, Y13:Y, AE13:AE, AK13:AK, AQ13,AQ, AW13:AW, BC13:BC, BI13:BI, BO13:BO, BU13:BU, CA13:CA, CG13:CG, CM13:CM, CS13:CS, CY13:CY, DE13:DE, DK13:DK, DQ13:DQ, DW13:DW, EC13:EC, EI13:EI, EO13:EO, EU13:EU, FA13:FA, FG13:FG, FM13:FM, FS13:FS, FY13:FY, GE13:GE GK13:GK, GQ13:GQ, GW13:GW, HC13:HC in the worksheet ‘Uniform Return’ matches the content in column E11:E of the selected ‘Stock Levels -’ worksheet
when found
if J13:J, P13:P, V13:V, AB13:AB, AH13:AH AO13:AO, AT13,AT, AZ13:AZ, BF13:BF, BL13:BL, BR13:BR, BX13:BX, CD13:CD, CJ13:CJ, CP13:CP, CV13:CV, DB13:DB, DH13:DH, DN13:DN, DT13:DT, DZ13:DZ, EF13:EF, EL13:EL, ER13:ER, EX13:EX, FD13:FD, FJ13:FJ, FP13:FP, FV13:FV, FB13:FB, GH13:GH GN13:GN, GT13:GT, GZ13:GZ, HF13:HF in the worksheet ‘Uniform Return’ contains “R”
then to the corresponding cells in that row
add the amount found in H13:H, N13:N, T13:T, Z13:Z, AF13:AF, AL13:AL, AR13,AR, AX13:AX, BD13:BD, BJ13:BJ, BP13:BP, BV13:BV, CB13:CB, CH13:CH, CN13:CN, CT13:CT, CZ13:CZ, DF13:DF, DL13:DL, DR13:DR, DX13:DX, ED13:ED, EJ13:EJ, EP13:EP, EV13:EV, FB13:FB, FH13:FH, FN13:FN, FT13:FT, FZ13:FZ, GF13:GF GL13:GL, GR13:GR, GX13:GX, HD13:HD of the ‘Uniform Return’ worksheet to the cells in G11:G, of the selected ‘Stock Levels –‘ worksheet,
Copy the entries from ‘Uniform Return’ to the next empty row in ‘Returned Uniform – History’
Clear contents from ‘Uniform Return’ = upon copy.