Issues with Looping macro...Do Until TextBox7.Value = 0 but it's crashing...Why?

[Shaka215]

The code below is my attempt at getting the macro to run the code
below with the "DO" command until TextBox7.Value = 0, however, I am
getting error messages saying "Loop without DO" or when I switch them
it says "DO without Loop". Any ideas as to what the heck is wrong with
this macro?
Your help is much appreciated! Thanks!

-Todd

'========================
Do
'========================
If TextBox7.Value > 0 Then
Sheets("export").Select
TextBox5.Value = Sheets("export").Range("GX1").Value
TextBox6.Value = Sheets("export").Range("HB1").Value
TextBox7.Value = Sheets("export").Range("HE1").Value
TextBox11.Value = Sheets("EXPORT").Range("HH1").Value
TextBox10.Value = Sheets("EXPORT").Range("HK1").Value
TextBox9.Value = Sheets("EXPORT").Range("HN1").Value
TextBox8.Value = Sheets("EXPORT").Range("HQ1").Value
TextBox13.Value = Sheets("EXPORT").Range("HT1").Value
TextBox12.Value = Sheets("EXPORT").Range("HW1").Value
Range(TextBox6.Value).Select
ActiveCell.FormulaR1C1 = TextBox7.Value
Range(TextBox6.Value).AutoFill Destination:=Range(TextBox5.Value)

If TextBox13.Value = 0 Then
Unload Me
UserForm1.Show
End If

If TextBox13.Value > 0 Then
Sheets("export").Range("IB3").Select
ActiveCell.Value = ActiveCell.Value + 1
Range(TextBox13.Value).Select
ActiveCell.Value = "X"
Range("A1").Select
Unload Me
UserForm1.Show
End If

If TextBox7.Value = 0 Then
MsgBox "Last Value Already Inserted", vbCritical, "- No More Data to
Insert -"
Exit Sub
End If

'========================
Loop Until TextBox7.Value = 0
'========================

End Sub

 

[Bob Flanagan]

You are missing an end if for "If textbox7.value > 0 then". The VBA
compiler gets confused sometimes.....

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

 

[Shaka215]

You are missing an end if for "If textbox7.value > 0 then". The VBA
compiler gets confused sometimes.....

Bob Flanagan
Macro Systemshttp://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel











- Show quoted text -

Bob,

I've end that IF statement but it still giving me the same message...
Thanks for catching btw...here is the changed code. Thanks Bob!

'========================
Do
'========================
If TextBox7.Value > 0 Then
Sheets("export").Select
TextBox5.Value = Sheets("export").Range("GX1").Value
TextBox6.Value = Sheets("export").Range("HB1").Value
TextBox7.Value = Sheets("export").Range("HE1").Value
TextBox11.Value = Sheets("EXPORT").Range("HH1").Value
TextBox10.Value = Sheets("EXPORT").Range("HK1").Value
TextBox9.Value = Sheets("EXPORT").Range("HN1").Value
TextBox8.Value = Sheets("EXPORT").Range("HQ1").Value
TextBox13.Value = Sheets("EXPORT").Range("HT1").Value
TextBox12.Value = Sheets("EXPORT").Range("HW1").Value
Range(TextBox6.Value).Select
ActiveCell.FormulaR1C1 = TextBox7.Value
Range(TextBox6.Value).AutoFill Destination:=Range(TextBox5.Value)
End If

If TextBox13.Value = 0 Then
Unload Me
UserForm1.Show
End If

If TextBox13.Value > 0 Then
Sheets("export").Range("IB3").Select
ActiveCell.Value = ActiveCell.Value + 1
Range(TextBox13.Value).Select
ActiveCell.Value = "X"
Range("A1").Select
Unload Me
UserForm1.Show
End If

If TextBox7.Value = 0 Then
MsgBox "Last Value Already Inserted", vbCritical, "- No More Data to
Insert -"
End If

'========================
Loop Until TextBox7.Value = 0
'========================

End Sub

 

[Shaka215]

You are missing an end if for "If textbox7.value > 0 then". The VBA
compiler gets confused sometimes.....

Bob Flanagan
Macro Systemshttp://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel











- Show quoted text -

Now the macro isn't looping correctly... TextBox7.Value will be equal
to 0 and it will continue to run even if the form is trying to be
closed so I've added the following to the code to the bottom. I can't
seem to get it to loop until TextBox7.Value is truly equal to 0. Any
ideas? Thanks!


'========================
Do
'========================
If TextBox7.Value > 0 Then
Sheets("export").Select
TextBox5.Value = Sheets("export").Range("GX1").Value
TextBox6.Value = Sheets("export").Range("HB1").Value
TextBox7.Value = Sheets("export").Range("HE1").Value
TextBox11.Value = Sheets("EXPORT").Range("HH1").Value
TextBox10.Value = Sheets("EXPORT").Range("HK1").Value
TextBox9.Value = Sheets("EXPORT").Range("HN1").Value
TextBox8.Value = Sheets("EXPORT").Range("HQ1").Value
TextBox13.Value = Sheets("EXPORT").Range("HT1").Value
TextBox12.Value = Sheets("EXPORT").Range("HW1").Value
Range(TextBox6.Value).Select
ActiveCell.FormulaR1C1 = TextBox7.Value
Range(TextBox6.Value).AutoFill Destination:=Range(TextBox5.Value)
End If

If TextBox13.Value = 0 Then
Unload Me
UserForm1.Show
End If

If TextBox13.Value > 0 Then
Sheets("export").Range("IB3").Select
ActiveCell.Value = ActiveCell.Value + 1
Range(TextBox13.Value).Select
ActiveCell.Value = "X"
Range("A1").Select
Unload Me
UserForm1.Show
End If


'========================
Loop Until TextBox7.Value = 0
'========================

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As
Integer)
'Prevent user from closing with the Close box in the title bar.
If CloseMode <> 1 Then
Unload Me
End If
Exit Sub
End Sub