макрос сравнения - ошибка??

[Bape}l{ka]

здравствуйте)

помогите пожалуйста разобраться!

есть макрос - проводит сравнение данных по колонкам.
1ый диапазон задается выделением, начало 2го вводится в юзерформ, а потом вычисляется разница между 1м и 2м диапазонами и далее в цикле сравнивается поколоночно.

так вот, если 1й диапазон (selection) идет перед 2м, то сравнение идет как-то криво, вообще не могу понять, что происходит (например, 1й диапазон - A1:A5, 2й - A11:A15) Т_Т если же наоборот, 1й диапазон после 2го, то все нормально

в чем ошибка??

прилагаю макрос
Compare.rar

[Bape}l{ka]

по сути идет вот такой цикл сравнения:

'FirstCol - первая колонка 1го вопроса
'MaxCol - последняя колонка 1го вопроса
'FirstCol2 - первая колонка 2го вопроса

RaznicaCol = Abs(FirstCol - FirstCol2)

     For Colm = FirstCol To MaxCol
        For Roww = FirstRow To MaxRow
                If Cells(Roww, Colm).Value = Cells(Roww, Colm - RaznicaCol).Value Then
                    With Cells(Roww, Colm)
                        .Interior.ColorIndex = 38
                        If OptionButtonDel.Value = True Then .Value = ""  'удаление
                    End With
                End If

        Next Roww
     Next Colm

п.с.: все переменные определены

[Bape}l{ka]

все, проблема решена))

не надо было считать разницу между колонками по модулю =ь
RaznicaCol = FirstCol - FirstCol2