Problem with VBA Loop

[cfadr]

Hi,

I want to loop through rows in my worksheet and compare the cell values in particular columns with other rows defining a variable as True or False (my segment_trigger variable below) if the values are the same or different.

I have written the following code but its giving me "Compile Error: Object Required" - can someone please tell me where I am going wrong?

Thanks


Sub segment_trigger_returns()
Application.ScreenUpdating = False
Dim segment_trigger As Boolean
Dim trade_date As Date
Set trade_date = Range("A4:A75617")
Dim i As Range
For Each i In trade_date.Rows
i.Cells(1, 3) = company_name_curperiod
i.Cells(-1, 3) = company_name_prevperiod
i.Cells(1, 10) = segments_curperiod
i.Cells(-1, 10) = segments_prevperiod
If company_name_curperiod = company_name_prevperiod And segments_curperiod <> segments_prevperiod Then
segment_trigger = True
Else: segment_trigger = False
Next
Application.ScreenUpdating = True

End Sub

 

[Rick Rothstein]

It wasn't clear so I amended the code as follows and it tells me I am getting an error on line 18 which is sumall = sumall + alpha_1y(i, 1)

Try changing that line of code to this and see if it works correctly...

sumall = sumall + Val(alpha_1y(i, 1))

 

[offthelip]

Okay it appears to be because some of the values in alpha_1y are not numeric so I've tried to add the IsNumeric criteria but it's now telling the subscript is out of range?

Which line is this error coming up on. Please help us by giving us all the information about the error, ie. what the error is and what line it is on and if it is subscript out of range , hover over each variable using debug on the line and find out which varaible it is.
At this point you might be able to solve the probelm youself, but if not we can help

 

[cfadr]

Thanks for the help; I just resolved this by deleting the non numeric data and is working now