A

#### Anders J.

I have a large set of data samples and i need to put in a function which can

tell me the errors between two numbers. I have tried with this one:

Sub ErrorTrueFalse()

'

' Macro2 Macro

'

'

ActiveCell.Select

ActiveCell.Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveWindow.ScrollColumn = 1

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 7

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveCell.Offset(0, 3).Range("A1").Select

ActiveCell.FormulaR1C1 = "=IF(RC[-1]<(RC[-2]*0.75),FALSE,TRUE)"

ActiveWindow.ScrollColumn = 7

ActiveWindow.ScrollColumn = 6

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

ActiveCell.Offset(1, -33).Range("A1").Select

End Sub

but i get an error saying 'Application-defined or object-defined error' with

debug on the last line.

Can someone please help me fix this and make the macro go as a loop for 550

rows.

In advance thanks!!