ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Issues with UserForm Box (https://www.excelbanter.com/excel-programming/428684-issues-userform-box.html)

[email protected]
Issues with UserForm Box
 
I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.



Private Sub OKBUtton_click()

Dim Cell As Range



'Monthly
If OptionMonthly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Quarterly
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Yearly
If OptionYearly Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A1").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Other
If OptionOther Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Closes dialog box
Unload UserForm2

End Sub

FSt1
Issues with UserForm Box
 
hi,
under the "other" option, you have two ifs that start that block of code but
only one end if. Add a end if to the end of that block of code.

regards
FSt1

" wrote:

I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.



Private Sub OKBUtton_click()

Dim Cell As Range



'Monthly
If OptionMonthly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Quarterly
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Yearly
If OptionYearly Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A1").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Other
If OptionOther Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Closes dialog box
Unload UserForm2

End Sub

Gord Dibben
Issues with UserForm Box
 
Also under "Yearly" option you have 2 Ifs and one End If


Gord Dibben MS Excel MVP

On Tue, 19 May 2009 08:29:02 -0700, FSt1
wrote:

hi,
under the "other" option, you have two ifs that start that block of code but
only one end if. Add a end if to the end of that block of code.

regards
FSt1

" wrote:

I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.



Private Sub OKBUtton_click()

Dim Cell As Range



'Monthly
If OptionMonthly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Quarterly
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Yearly
If OptionYearly Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A1").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Other
If OptionOther Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Closes dialog box
Unload UserForm2

End Sub

Susan
Issues with UserForm Box
 
it would help if you indented your code more - you could see when you
are missing end if's............

'Other
If OptionOther Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If
missing end if

just a suggestion.
:)
susan



On May 19, 10:57*am, wrote:
I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.

Private Sub OKBUtton_click()

* * Dim Cell As Range

* * 'Monthly
* * If OptionMonthly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A12").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Quarterly
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A4").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Yearly
* * If OptionYearly Then
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A1").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Other
* * If OptionOther Then
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A12").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Closes dialog box
* * Unload UserForm2

End Sub

FSt1
Issues with UserForm Box
 
opps. missed that one.
guess i was scanning to fast.
thanks for catching that.

regards
FSt1

"Gord Dibben" wrote:

Also under "Yearly" option you have 2 Ifs and one End If


Gord Dibben MS Excel MVP

On Tue, 19 May 2009 08:29:02 -0700, FSt1
wrote:

hi,
under the "other" option, you have two ifs that start that block of code but
only one end if. Add a end if to the end of that block of code.

regards
FSt1

" wrote:

I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.



Private Sub OKBUtton_click()

Dim Cell As Range



'Monthly
If OptionMonthly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Quarterly
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A4").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Yearly
If OptionYearly Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A1").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Other
If OptionOther Then
If OptionQuarterly Then
Sheets("List").Select
Range("A3").Select
ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Range("A1:A12").Select
Selection.EntireRow.Insert
ActiveCell.Select
End If

'Closes dialog box
Unload UserForm2

End Sub

[email protected]
Issues with UserForm Box
 
On May 19, 2:36*pm, FSt1 wrote:
opps. missed that one.
guess i was scanning to fast.
thanks for catching that.

regards
FSt1



"Gord Dibben" wrote:
Also under "Yearly" option you have 2 Ifs and one End If

Gord Dibben *MS Excel MVP

On Tue, 19 May 2009 08:29:02 -0700, FSt1
wrote:

hi,
under the "other" option, you have two ifs that start that block of code but
only one end if. Add a end if to the end of that block of code.

regards
FSt1

" wrote:

I have the below as a Userform box. Can someone assist with cleaning
it up and solving my error? I get the 'Compile Error: Block If Without
End If" I have all of my End If's in, so I'm not sure where the issue
lies.

Private Sub OKBUtton_click()

* * Dim Cell As Range

* * 'Monthly
* * If OptionMonthly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A12").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Quarterly
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A4").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Yearly
* * If OptionYearly Then
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A1").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Other
* * If OptionOther Then
* * If OptionQuarterly Then
* * Sheets("List").Select
* * Range("A3").Select
* * ActiveCell.Offset(1, 0).Select
* * Do While Not IsEmpty(ActiveCell)
* * * * ActiveCell.Offset(1, 0).Select
* * Loop
* * ActiveCell.Range("A1:A12").Select
* * Selection.EntireRow.Insert
* * ActiveCell.Select
* * End If

* * 'Closes dialog box
* * Unload UserForm2

End Sub- Hide quoted text -

- Show quoted text -

I'm so sorry everyone! I didn't realize, I must have messed it up when
I copied the code. Thank you so much! Maybe it just takes another set
of eyes sometimes :)


All times are GMT +1. The time now is 10:11 AM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com