VBA: Hide All Unspecified Columns

[canyon]

I was able to find and write code which hides all specified columns for a report at work that I am slowly trying to automate. The report in question has 20 or so columns and I only really need 8 from the report.

I can easily use the code to write 12 or so lines to hide them. However it seems that it would easier to read and much more efficient to write the inverse of that code. I am fairly new to VBA and this is my first real project I am trying to utilize the language for so its been a mixture of trial and error.

Current Project:

Sub Hide_Me()

Dim Lastcolumn As Long
Lastcolumn = Cells(3, Columns.Count).End(xlToLeft).Column

For i = 1 To Lastcolumn

If Cells(3, i).Value = "Customer Name" Or Cells(3, i).Value = "Address" Or Cells(3, i).Value = "Phone Number" or ... 'continue to perpetuity
Then Columns(i).Hidden = true

Next

End Sub

 

[Joe4]

Welcome to the Board!

I can easily use the code to write 12 or so lines to hide them. However it seems that it would easier to read and much more efficient to write the inverse of that code.

So, do you mean rather than checking to see if the cell is equal to a certain value, do you mean to check to see that it is NOT a certain value?
If so, you not only need to change the "=" to "<>", but you also need to change the "Or" to "And", i.e.

If Cells(3, i).Value <> "Customer Name" And Cells(3, i).Value <> "Address" And Cells(3, i).Value <> "Phone Number" And ... 'continue to perpetuity

 

[canyon]

Welcome to the Board!


So, do you mean rather than checking to see if the cell is equal to a certain value, do you mean to check to see that it is NOT a certain value?
If so, you not only need to change the "=" to "<>", but you also need to change the "Or" to "And", i.e.

If Cells(3, i).Value <> "Customer Name" And Cells(3, i).Value <> "Address" And Cells(3, i).Value <> "Phone Number" And ... 'continue to perpetuity

Yes that's exactly what I'm trying to do, if the cell value/text doesn't match the parameters then I want them to be hidden.

 

[Joe4]

So, did my code suggestion work for you, and do you still have issues?

 

[canyon]

So, did my code suggestion work for you, and do you still have issues?

Just implemented your suggestions and it worked! If I learnt this program in consulting my life would have been 1000x easier. Thank you!

 

[Joe4]

You are welcome.
Glad I was able to help!