| Home |
| Search |
| Today's Posts |
|
|
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Bubble sort Error (Compile Error: Type Mismtach) | Excel Programming | |||
| help with this error-Compile error: cant find project or library | Excel Discussion (Misc queries) | |||
| VBAProject name compile error, not defined at compile time | Excel Programming | |||
| error message: compile error, argument not optional | Excel Programming | |||
Hybrid Mode
