| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Issues with Looping macro...Do Until TextBox7.Value = 0 but it's crashing...Why?
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Issues with Looping macro...Do Until TextBox7.Value = 0 but it's crashing...Why?
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 wrote in message oups.com... 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Issues with Looping macro...Do Until TextBox7.Value = 0 but it's crashing...Why?
On Mar 18, 10:57 pm, "Bob Flanagan" wrote:
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 wrote in message oups.com... 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- Hide quoted text - - 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Issues with Looping macro...Do Until TextBox7.Value = 0 but it's crashing...Why?
On Mar 18, 10:57 pm, "Bob Flanagan" wrote:
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 wrote in message oups.com... 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- Hide quoted text - - 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Crashing Macro, Not Enough Memory | Excel Programming | |||
| Help with a crashing Macro needed | Excel Programming | |||
| Macro crashing on different computer | Excel Programming | |||
| Macro Crashing Excel | Excel Programming | |||
| Looping Macro | Excel Programming | |||
Linear Mode
