Go To Statement

[elgringo56]

I dont understand the go to statement, but I need to use it. I am running inside a next i loop. I am testing a cell for a blank condition using a Select Case Statement. If I find the cell is blank, I want to go to the "next i" end of the loop and bypass a lot of code. but I cant seem to figgure out how this works. Can anyone help me on this?

[zacemmel]

When using goto, you have to have labels. For instance:

Sub test()
GoTo blah
MsgBox "no"
blah:
MsgBox "yes"
End Sub

Would give you the message "yes" since you told it to goto the label "blah."

[elgringo56]

ok, given the below, can I put a lable above the next i and then go to that?
Select Case Range("X1").Value
Case Is = ""
GoTo
Case Else
ActiveSheet.Shapes("Group 20").Visible = False
A bunch more code
Next i

[zacemmel]

Yes, you can put a label above the "next i" and goto that.

[elgringo56]

Thanks, I will give it a try

[elgringo56]

Something isn't working right here. When I put in the lable, I used Blank:, I got a compile error, next without for. The loop worked prior to inserting the lable.

[zacemmel]

Copy/paste the code you have written.

[elgringo56]

For i = 1 To LoopRange
Range("AA6").Select
Selection.Copy
Range("AB6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AA9").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.AdvancedFilter Action:=xlFilterCopy, CriteriaRange:= _
Range("AB5:AB6"), CopyToRange:=Range("AP9:BB9"), Unique:=False
Select Case Range("X1").Value
Case Is = ""
GoTo Blank
Case Else
Range("BE10:BE61").Select
Selection.Copy
Range("BB10:BB61").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AP9").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("AP9").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.ClearContents
Range("AP10").Select
ActiveCell.CurrentRegion.Select
Selection.Copy
Range("A1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("AP10:BB509").Select
Selection.ClearContents
Next i

[elgringo56]

I put the lable right above the next i statement

[zacemmel]

I don't see the label anywhere in that code.

There should be a Blank: somewhere.