View Single Post
 
Old 10-16-2019, 06:59 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
 
Join Date: Apr 2014
Posts: 948
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default

Unfortunately I had already done most of the work to update the code before you attached your file in the last message, so the work was done on the old file. I attach that file and leave it to you to do the remaining adjustments.


I have added a bunch (60 ish) dictionary entries - you'll have to compare these with your own and choose what to keep.
Note that I've addded two columns and changed "" to Empty and "TRUE" to True. This is more robust.



Regarding the diagonal lines in cells, this is used (partly) to determine which cells to process so I haven't deleted them, only changed their colour. I restore their visibility with the Reset button. This is so that users can see that a given cell could be a candidate for processing. The code only changes the colour, not the thickness/dottedness etc. so you can choose those aspects manually independently.


In the code line that colours the green triangles I've included a range of shades of green for you to experiment with:
Code:
myshape.Fill.ForeColor.RGB = 31261  '5296274,3969910,10213316,5287936,31261,vbGreen    '(different greens to try)
I've done nothing about any formulae on the sheet at all.
Attached Files
File Type: xlsm msofficeforums40597JUNE 2018 QUERYBoffer03.xlsm (62.7 KB, 7 views)
Reply With Quote