for loop

[ttropics]

can i make it so that you have to click a button to do a single step of my for loop

 

[Dryver14]

developer tab/insert/button(form control)

draw the button onto the spreadsheet where you want it, it will then ask you which macro you want it to run, select one and press ok.

 

[ttropics]

Yes, but wont this run the entire loop? I want the button to run 1 part of the loop, then the second click to run the next part of the loop.

 

[Dryver14]

Yes it will run the entire macro,

without seeing the code its hard to say.

you could put something like

msgbox "Loop complete" at the place where you want it to stop

then when you press OK it will continue

 

[ttropics]

Private Sub CommandButton1_Click()


Columns("B:C").ColumnWidth = 22


range("a1").Value = "Number"
range("b1").Value = "Square of the Number"
range("c1").Value = "Square root of the Number"


range("a2:c2").Value = 1


Dim x As Integer


For x = 1 To 17
Cells(x, 1).Interior.Color = RGB(178, 178, 178)
Next x


For x = 3 To 17
Cells(x, 1).Value = (x - 2) + 1
Next x


For x = 2 To 17
Cells(x, 2).Value = ((x - 2) + 1) ^ 2
Next x


For x = 2 To 17
Cells(x, 3).Value = ((x - 2) + 1) ^ (1 / 2)
Next x




End Sub

This is my code and i need the button click to preform just one pert of the loop

 

[Dryver14]

place this below each next x

msgbox "Loop complete"

 

[steve the fish]

You would have to put a test in there such as:

Columns("B:C").ColumnWidth = 22

Range("A1").Value = "Number"
Range("B1").Value = "Square of the Number"
Range("C1").Value = "Square root of the Number"

For i = 2 To 17
    If Cells(i, 1).Interior.Color <> RGB(178, 178, 178) Then
        Cells(i, 1).Interior.Color = RGB(178, 178, 178)
        Cells(i, 1).Value = i - 1
        Cells(i, 2).Value = (i - 1) ^ 2
        Cells(i, 3).Value = (i - 1) ^ 0.5
        Exit For
    End If
Next