Hi,
I have created the following function in excel
I then use the following to call it when the toggle button is clicked![]()
Public Function Main_HideRows(ByVal rng As Range, tgbtn As ToggleButton) Dim sht As Excel.Worksheet Dim c As Integer Dim c2 As Integer Set sht = Sheet19 Set c2 = 32000 Application.ScreenUpdating = False ' this hides the rows for the range If tgbtn.Value = False Then Debug.Print tgbtn.Value tgbtn.Caption = "Show Detail" For c = 1 To sht.Range("rng").Rows.Count If sht.Range("rng").Cells(c, 1).Value = sht.Range("rng").Cells(c, 2).Value = "Visible" Then sht.Range("rng").Columns(c).Hidden = False If c < c2 Then c2 = c End If Else sht.Range("rng").Rows(c).Hidden = True End If Next Application.ScreenUpdating = True Else Debug.Print tgbtn.Value Application.ScreenUpdating = False ' this shows the rows for the range For c = 1 To sht.Range("rng").Rows.Count If sht.Range("rng").Cells(c, 1).Value = sht.Range("rng").Cells(c, 2).Value = "Visible" Then sht.Range("rng").Columns(c).Hidden = Truee If c < c2 Then c2 = c End If Else sht.Range("rng").Rows(c).Hidden = False End If Next Application.ScreenUpdating = True tgbtn.Caption = "Hide Detail" End If End Function
However, I get the 424 error saying that an object is required.![]()
Private Sub tgbtnSeasonal_Click() Call Main_HideRows(ra_main_seasonals, tgbtnSeasonal) End Sub
What is the reason behind this ?
Thanks
Bilal











LinkBack URL
About LinkBacks


Register To Reply

Bookmarks