Code to hide cell range is not working

[rcirone]

I am try to get a code to hide cell range or Columns but I can not get it to work in Office 365. and trying to tide it to a button

Sub DoIfNotEmpty()
    Dim ra As Range, re As Range


    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("D4:F40")
        For Each re In ra
            If IsEmpty(re.Value) Or re.Value = vbNullString Then
                Columns("D:F").EntireColumn.Hidden = True
            End If
        Next re
    End With
End Sub

Private Sub CommandButton1_Click()

End Sub

 

[Jeffrey Mahoney]

Please try this

Sub DoIfNotEmpty()
    Dim ra As Range, re As Range


    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("D4:F40")
    For Each re In ra
      If IsEmpty(re.Value) Or re.Value = vbNullString Then
        ra.EntireColumn.Hidden = True
        Exit For
      End If
    Next re
    End With
End Sub

Private Sub CommandButton1_Click()

  DoIfNotEmpty

End Sub

 

[rcirone]

Please try this

Sub DoIfNotEmpty()
    Dim ra As Range, re As Range


    With ThisWorkbook.Worksheets("Sheet1")
    Set ra = .Range("D4:F40")
    For Each re In ra
      If IsEmpty(re.Value) Or re.Value = vbNullString Then
        ra.EntireColumn.Hidden = True
        Exit For
      End If
    Next re
    End With
End Sub

Private Sub CommandButton1_Click()

  DoIfNotEmpty

End Sub

It is still not working for me How do I get this to work on a button
I may be doing that wrong just checking

 

[Jeffrey Mahoney]

Creating a ActiveX Button and Adding Code

Private Sub HideColumns_Btn_Click()
DoIfNotEmpty
End Sub

 

[rcirone]

Creating a ActiveX Button and Adding Code

View attachment 106157


View attachment 106156

Private Sub HideColumns_Btn_Click()
DoIfNotEmpty
End Sub

Thank you I got it to hide the columns but when I click it again they are not coming back up they are staying hidden this is what I am using

Sub DoIfNotEmpty()
Dim ra As Range, re As Range


With ThisWorkbook.Worksheets("M1661104s")
Set ra = .Range("AD:AH")
For Each re In ra
If IsEmpty(re.Value) Or re.Value = vbNullString Then
ra.EntireColumn.Hidden = True
Exit For
End If
Next re
End With
End Sub

Private Sub CommandButton1_Click()

DoIfNotEmpty

End Sub

 

[Jeffrey Mahoney]

Does this do the trick?

Sub DoIfNotEmpty()
  Dim ra As Range, re As Range
  Dim Found As Boolean
  
  
  With ThisWorkbook.Worksheets("M1661104s")
    Set ra = .Range("AD:AH")
    For Each re In ra
      If IsEmpty(re.Value) Or re.Value = vbNullString Then
        ra.EntireColumn.Hidden = True
        Found = True
        Exit For
      End If
    Next re
    If Found = False Then ra.EntireColumn.Hidden = False
  End With
End Sub

 

[rcirone]

Does this do the trick?

Sub DoIfNotEmpty()
  Dim ra As Range, re As Range
  Dim Found As Boolean
 
 
  With ThisWorkbook.Worksheets("M1661104s")
    Set ra = .Range("AD:AH")
    For Each re In ra
      If IsEmpty(re.Value) Or re.Value = vbNullString Then
        ra.EntireColumn.Hidden = True
        Found = True
        Exit For
      End If
    Next re
    If Found = False Then ra.EntireColumn.Hidden = False
  End With
End Sub

I get this error (Subscript out of range)

 

[Jeffrey Mahoney]

Which line does it error on?

 

[rcirone]

Which line does it error on?

Columns AC:AG

 

[Jeffrey Mahoney]

Well, since I don't see any line in the code I provided like "Columns AC:AG", I don't know how to help.