Compile error: Expected: To

[Dholt01]

Hi - I'm a novice user running into a problem I've spent a few days trying to correct. I'm using the following code to run through a worksheet and if the there is data in a cell in column O I need to clear contents of the corresponding cell in column H but I keep getting a compile error... the problem seems to be with the "For deleterate" statement. Any suggestions? Thanks in advance

Sub deleterate()


' disable excel fetures
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

'variables
Dim deleterate As Long
Dim ws As Worksheet

' set object
Set ws = Sheets("Import file")


' loop through the data to find the $$ amounts in column o

For deleterate = ws.Range("O" & Rows.count).End(xlUp).Row


' indentify values in O which have value

If ws.Range("O" & deleterate).Value <> 0 Then
ws.Cells(deleterate, 8).ClearContents
End If

' move to next cell in the range

Next deleterate

' enable excel features

Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
Application.ScreenUpdating = True



End Sub

 

[Joe4]

Welcome to the Board!

For is a loop command in VBA, and requires a To piece, and an ending Next line.
See: https://www.techonthenet.com/excel/formulas/for_next.php

 

[MrKowz]

You aren't defining a start value.

Try:


For deleterate = 2 to ws.Range("O" & Rows.count).End(xlUp).Row

 

[Dholt01]

Excellent resource, Thank you so much Joe4

 

[Dholt01]

MrKowz, thank you. I did't realize I needed a start value, works perfect now. Thanks again

 

[MrKowz]

MrKowz, thank you. I did't realize I needed a start value, works perfect now. Thanks again

Thanks for the feedback - glad we were able to get a working solution for you!

 

[Joe4]

You are welcome!

Google searches are great source of information for structures of these things and lots of examples.
There is a ton of good Excel information out there.