Issues with UserForm Box

K

kmzito

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
 
F

FSt1

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
 
G

Gord Dibben

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


Gord Dibben MS Excel MVP
 
S

Susan

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
 
F

FSt1

opps. missed that one.
guess i was scanning to fast.
thanks for catching that.

regards
FSt1
 
K

kmzito

opps. missed that one.
guess i was scanning to fast.
thanks for catching that.

regards
FSt1







- 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 :)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top