Help please Run-time error 9
I started to learn macros. Only one month ago.
I have to finish one form today for my boss but I have run-time error 9
and a cannot find the mistake.
Please can you help me?
Code:
Private Sub a_Click()
Dim sheet_static, sheet_ifs As String
sheet_staticdata = "Static Data Form"
sheet_ifs = "IFS Input"
If a Then
Sheets(sheet_staticdata).Range("22:28").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("12:18").Select
Sheets(sheet_ifs).Range("12:18").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("12:18").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("22:28").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub b_Click()
If b Then
Sheets(sheet_staticdata).Range("32:38").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("19:24").Select
Sheets(sheet_ifs).Range("19:24").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("19:24").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("32:38").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub c_Click()
If c Then
Sheets(sheet_staticdata).Range("42:44").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("25:27").Select
Sheets(sheet_ifs).Range("25:27").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("25:27").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("42:44").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub d_Click()
If d Then
Sheets(sheet_staticdata).Range("48:49").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("28:29").Select
Sheets(sheet_ifs).Range("28:29").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("28:29").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("48:49").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub e_Click()
If e Then
Sheets(sheet_staticdata).Range("53:59").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("30:48").Select
Sheets(sheet_ifs).Range("30:48").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("30:48").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("53:59").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub f_Click()
If f Then
Sheets(sheet_staticdata).Range("63:78").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("49:64").Select
Sheets(sheet_ifs).Range("49:64").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("49:64").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("63:78").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub g_Click()
If g Then
Sheets(sheet_staticdata).Range("82:91").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("65:73").Select
Sheets(sheet_ifs).Range("65:73").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("65:73").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("82:91").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Private Sub h_Click()
If h Then
Sheets(sheet_staticdata).Range("95:106").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_ifs).Activate
'Sheets(sheet_ifs).Rows("74:85").Select
Sheets(sheet_ifs).Range("74:85").Select
Selection.EntireRow.Hidden = False
Worksheets(sheet_staticdata).Activate
Else
Worksheets(sheet_ifs).Activate
Sheets(sheet_ifs).Range("74:85").Select
Selection.EntireRow.Hidden = True
Worksheets(sheet_staticdata).Activate
Rows("95:106").Select
Selection.EntireRow.Hidden = True
End If
End Sub
Re: Help please Run-time error 9
Thread moved to Office Development/VBA forum (note that the "VB Editor" in Office programs is actually VBA rather than VB, so the VB6 forum is not really apt)
Re: Help please Run-time error 9
Re: Help please Run-time error 9
First can you verify that there are two sheets named exactly as you have defined your vars?
Code:
sheet_staticdata = "Static Data Form"
sheet_ifs = "IFS Input"
Re: Help please Run-time error 9
Hi :-)
I checked and I have behind the sheet name IFS input one claer space more.
Thanks a lot.
Martina
Re: Help please Run-time error 9
