Macro Enabled VBA code to hide table column

here ya go, easy peasy

dmcgov,

Thank you for the help and quick response, but I guess I should have given a harder example.... Unfortunately, I can't just hide the whole column as there is useful information above. Also, the sheet will be locked with a password. Maybe you are up for this challenge???

Let me know if you have any questions about my file!

Best,

charlie

don't know how to do this if i cant hide columns. maybe cycle through customers and items and assign them to array. then clear the range. i tried to use filters but that just hides rows so that won't work. are you familiar with array's?

so i cobbled this together and made array's out of the customers and item numbers. is that what you are looking for?

I think that this may be as good as it gets. I really appreciate the help. Not too familiar with arrays, but I will try to reverse engineer what you did.

do you need the background color to change? other than that, you should be good to go.

I think the way you hid the data should be enough to avoid confusion. Is there a way to run the "write customers" sub automatically after the "hide items" sub to avoid the extra clicking?

The goal would be to populate one column and hide the other column simultaneously and be able to continuously switch back and forth.

Ok, I will give that a shot

if this works for you, please mark the thread as solved (top of post under thread tools) and if i have helped you in any way, please click the Add Reputation under my username.

UPDATE:

I was having difficulty with the code to work consistently with my search function, so I ended up just changing the background of my cells to match a colorindex number and then wrote a code to change the font color of the text within the range. Sometimes simpler can be better! Big thanks to dmcgov for helping me through this.



Sub hideitemnumbers()

ActiveSheet.Unprotect Password:="password"
On Error Resume Next
ActiveSheet.ShowAllData

Range("D29:D5000").Font.ColorIndex = 19

Range("C29:C5000").Font.ColorIndex = 1


ActiveSheet.Protect Password:="password"

End Sub

Sub hidecustomers()

ActiveSheet.Unprotect Password:="password"
On Error Resume Next
ActiveSheet.ShowAllData

Range("C29:C5000").Font.ColorIndex = 20

Range("D29:D5000").Font.ColorIndex = 1


ActiveSheet.Protect Password:="password"

End Sub