не работает функция Function Duplication

[Ivan2010]

поставить точку останова, как это?

Файл вложил.

[Serge_Bliznykov]

Сообщение от Ivan2010

поставить точку останова, как это?

открыть редактор и ткнуть левой кнопкой мышки туда, где у меня круглая красная точка:
breakpoint.png

потом перейти в нужный лист и запустить макрос.
выполнение остановится в указанной строке.

[Ivan2010]

Сделал, вроде все соответствует. Разницы не увидел.

[Ivan2010]

Я, конечно, не понимаю, может здесь чего-то не хватает?

' check duplication
Duplication = ROI_Data_Duplication(Destination_Fi le_Name, Destination_Sheet_Name, _
ROI_Data_Paste_Row_Calc(Destination _File_Name, Destination_Sheet_Name), _
Pre_Alert_Data)


If (Duplication = False) Then
' data paste
Msg = ROI_Data_Paste(Destination_File_Nam e, Destination_Sheet_Name, _
ROI_Data_Paste_Row_Calc(Destination _File_Name, Destination_Sheet_Name), _
Pre_Alert_Data)

[Serge_Bliznykov]

Сообщение от Ivan2010

Сделал, вроде все соответствует.

нет, не соответствует.
не знаю, как и куда Вы смотрели.

но начиная с этой строчки уже не идёт:

(Workbooks(WBName).Worksheets(WSName).Cells(i, 3).Value = "`" + Pre_Alert_Data.Total_Weight) And

в таблице с третьем столбце написано "DMD" а сравнивается с Pre_Alert_Data.Total_Weight (это Общий вес груза, кг) и в этой переменной находится значение "`8,500".
Как Вы думаете, значение "DMD" совпадает со значением "`8,500" ?

[Ivan2010]

Да не совпадает. На сколько я знаю, на совпадение сверялся второй столбец, номер перевозочного документа. второй столбец совпадает, почему тогда не реагирует на совпадение.? Если даже удалить столбец DMD, все равно обрабатывает повторно.

[Serge_Bliznykov]

Сообщение от Ivan2010

Да не совпадает. На сколько я знаю, на совпадение сверялся второй столбец

нет. там другая логика. только если совпадает
в точности
поле "Из" И "Перевозочный документ №" И "Место прибытия груза №" И "Общий вес груза, кг" И "Количество мест" И "Номера пломб" И "Рейс"
вот только тогда и считается, что идёт дублирование.

Если любое из этих условий не совпадает.
всё. считается что дублирования НЕТ!

[Ivan2010]

т.е нужно добавить в сравнение третий столбец "DMD"? Либо его не должно быть в таблице вообще, правильно?

[Serge_Bliznykov]

Сообщение от Ivan2010

т.е нужно добавить в сравнение третий столбец "DMD"? Либо его не должно быть в таблице вообще, правильно?

или изменить процедуру сравнения.

я минут через 15 напишу Вам код.

[Serge_Bliznykov]

замените целиком текст функции на такой:

Function ROI_Data_Duplication(WBName, WSName, Data_Paste_Row, Pre_Alert_Data As ROI_PreAlertData_Type)

    Dim i, sTotal_WeightInCell$, sTotal_Weight_in_PAD$, d1 As Double, d2 As Double
    
    i = PREDEFINED_FIRST_DATA_ROW
    
    sTotal_Weight_in_PAD = Replace(Pre_Alert_Data.Total_Weight, ",", ".")
    d2 = Val(sTotal_Weight_in_PAD)
    
    While i < Data_Paste_Row
        
        sTotal_WeightInCell = Replace(Workbooks(WBName).Worksheets(WSName).Cells(i, 4).Value, "`", "")
        sTotal_WeightInCell = Replace(sTotal_WeightInCell, ",", ".")
        d1 = Val(sTotal_WeightInCell)
        
        If ((Workbooks(WBName).Worksheets(WSName).Cells(i, 1).Value = Pre_Alert_Data.From_Name) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 2).Value = "`" + Pre_Alert_Data.AWB_No) And _
            (Abs(d1 - d2) < 0.0001) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 5).Value = Pre_Alert_Data.Total_Pieces) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 7).Value = "`" + Pre_Alert_Data.Seal_No) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 8).Value = Pre_Alert_Data.Cargo_Description)) Then
            ROI_Data_Duplication = True
            Exit Function
        End If
        i = i + 1                       ' Increment Counter.
    Wend
    
    ROI_Data_Duplication = False
    
End Function