|
-
Jul 17th, 2009, 01:59 AM
#1
Thread Starter
New Member
 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
Last edited by si_the_geek; Jul 17th, 2009 at 03:50 AM.
Reason: added Code tags
-
Jul 17th, 2009, 03:50 AM
#2
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)
-
Jul 17th, 2009, 04:08 AM
#3
Thread Starter
New Member
Re: Help please Run-time error 9
-
Jul 17th, 2009, 04:09 AM
#4
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"
VB/Office Guru™ (AKA: Gangsta Yoda™  ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum. 
Microsoft MVP 2006-2011
Office Development FAQ (C#, VB.NET, VB 6, VBA)
Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
If a post has helped you then Please Rate it! 
• Reps & Rating Posts • VS.NET on Vista • Multiple .NET Framework Versions • Office Primary Interop Assemblies • VB/Office Guru™ Word SpellChecker™.NET • VB/Office Guru™ Word SpellChecker™ VB6 • VB.NET Attributes Ex. • Outlook Global Address List • API Viewer utility • .NET API Viewer Utility •
System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6
-
Jul 17th, 2009, 04:22 AM
#5
Thread Starter
New Member
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
-
Jul 20th, 2009, 12:31 PM
#6
Re: Help please Run-time error 9
VB/Office Guru™ (AKA: Gangsta Yoda™ ®)
I dont answer coding questions via PM. Please post a thread in the appropriate forum.
Microsoft MVP 2006-2011
Office Development FAQ (C#, VB.NET, VB 6, VBA)
Senior Jedi Software Engineer MCP (VB 6 & .NET), BSEE, CET
If a post has helped you then Please Rate it!
• Reps & Rating Posts • VS.NET on Vista • Multiple .NET Framework Versions • Office Primary Interop Assemblies • VB/Office Guru™ Word SpellChecker™.NET • VB/Office Guru™ Word SpellChecker™ VB6 • VB.NET Attributes Ex. • Outlook Global Address List • API Viewer utility • .NET API Viewer Utility •
System: Intel i7 6850K, Geforce GTX1060, Samsung M.2 1 TB & SATA 500 GB, 32 GBs DDR4 3300 Quad Channel RAM, 2 Viewsonic 24" LCDs, Windows 10, Office 2016, VS 2019, VB6 SP6
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|
Reply With Quote
