Hide Columns based on value in each column in a specific Row

[gootly]

I have a Excel 2021 on Windows spreadsheet with many columns and rows

I need a macro that can look at every column from B to SL and hide that column if the value of row 1790 is below 200%. For complete disclosure row 1790 is a calculation of two other elements in the column divided by the other and the result is displayed as a percentage
Example =B1783/B1279

or simply show columns where row value of cell 1790 in that column is above 200%

I am open to suggestions. I have researched for days but not found a solution that applies.

Thanks in advance.

Mark

 

[gootly]

Well, 'scuse me for being stupid.
Good luck.

Micron,

You are NOT stupid. I just wanted to clarify. I many times misread things and misunderstand out of the gate.

I still want to thank you for interacting on the question.

Mark

 

[Fluff]

How about

Sub gootly()
   Dim Cl As Range
   Application.ScreenUpdating = False
   For Each Cl In Range("B1790:SL1790")
      If IsError(Cl.Value) Then
         Cl.EntireColumn.Hidden = True
      Else
         Cl.EntireColumn.Hidden = Cl.Value < 2
      End If
   Next Cl
End Sub

 

[gootly]

Fluff,

That nailed it. Thanks. As a non programmer, I do not know how you come up with these things so quickly. They seem far from intuitive to me from looking at the code.

Mark

 

[Fluff]

Glad we could help & thanks for the feedback.

 

[gootly]

Glad we could help & thanks for the feedback.

Fluff,

One last thing. Is there a way to reverse what is done so I can see all the data? Do I need a macro or do I just have to click on something to view all hidden columns.

I tried selecting everything and choosing unhide but it did nothing.

Mark

 

[gootly]

Fluff,

One last thing. Is there a way to reverse what is done so I can see all the data? Do I need a macro or do I just have to click on something to view all hidden columns.

I tried selecting everything and choosing unhide but it did nothing.

Mark

OOps, when I hit unhide, I see that the hidden columns are actually there but so small that they are hidden. I will find a way to restore them to a viewable size.

 

[Fluff]

If you select all & right click on the column headers you can choose column width

 

[gootly]

If you select all & right click on the column headers you can choose column width

Fluff,

Thanks. I got it.

Mark

 

[Fluff]

You're welcome.