ExcelBanter - Compile Error

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - Compile Error (https://www.excelbanter.com/excel-programming/427995-compile-error.html)

mypetduke

Compile Error

I have the following code and keep getting a Compile error: For without Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

Bob Phillips[_3_]

Compile Error

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
ElseIf Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
ElseIf Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
ElseIf Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
Next cell

End Sub

--
__________________________________
HTH

Bob

"mypetduke" wrote in message
...
I have the following code and keep getting a Compile error: For without
Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

Mike H

Compile Error

Hi,

Maybe this

Set MyRange = Selection
For Each cell In MyRange
If Left(cell.Value, 5) = "GL Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Value = Left(cell.Value, 5)
End If
Next

Mike

"mypetduke" wrote:

I have the following code and keep getting a Compile error: For without Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

mypetduke

Compile Error

Thanks Bob. You've helped me see I have a more fundamental code application
issue so I resubmitted a better question.

"Bob Phillips" wrote:

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
ElseIf Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
ElseIf Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
ElseIf Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
Next cell

End Sub

--
__________________________________
HTH

Bob

"mypetduke" wrote in message
...
I have the following code and keep getting a Compile error: For without
Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

mypetduke

Compile Error

Thanks Mike You've helped me see I have a more fundamental code application
issue so I resubmitted a better question.

"Mike H" wrote:

Hi,

Maybe this

Set MyRange = Selection
For Each cell In MyRange
If Left(cell.Value, 5) = "GL Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Value = Left(cell.Value, 5)
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Value = Left(cell.Value, 5)
End If
Next

Mike

"mypetduke" wrote:

I have the following code and keep getting a Compile error: For without Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

Dana DeLouis

Compile Error

Hi. Maybe not correct, but perhaps some ideas...

Sub Demo()
Dim MyRange As Range
Dim S As String
Set MyRange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each Cell In MyRange.Cells
S = Left$(Cell.Value, 5)
Select Case S
Case "GL Op", "Au Op", "WC Op", "CA Op"
Cell = S
End Select
Next Cell
End Sub

= = = = =
HTH :)
Dana DeLouis

mypetduke wrote:
I have the following code and keep getting a Compile error: For without Next.
Can anyone help.

Set myrange = ActiveSheet.Range(Selection, Selection.End(xlUp))
For Each cell In myrange
If Left(cell.Value, 5) = "GL Op" Then
cell.Cut
cell.Paste ("GL Op")
End If
If Left(cell.Value, 5) = "Au Op" Then
cell.Cut
cell.Paste ("Au Op")
End If
If Left(cell.Value, 5) = "WC Op" Then
cell.Cut
cell.Paste ("WC Op")
End If
If Left(cell.Value, 5) = "CA Op" Then
cell.Cut
cell.Paste ("Au Op")
End If

End Sub

All times are GMT +1. The time now is 07:32 AM.