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

[Ivan2010]

Добрый день.
Нужна помощь, перестала работать Function Duplicatio в макросе.
Кто-нибудь сможет мне помочь?

[Serge_Bliznykov]

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

Нужна помощь, перестала работать Function Duplicatio в макросе.

что такое " Function Duplicatio" ?
это какой-то самописный макрос?
Ну тогда приводите код макроса и пример книги (тестовый файл), где этот макрос перестал работать.

Кроме того, "перестала работать " после чего? Само?
или после каких-то изменений/событий?

[Aleksandr H.]

Наверное мощный макрос раз человек решил после 7 лет молчания написать сюда.

[IgorGO]

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

[Ivan2010]

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

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

Добрый день.
Приложил два файла один с кодом, другой файл Pre-alert Красноярск, откуда собственно и запускается данный код.
После запуска создается два файла, DMD_1 и DMD_cons. Куда обрабатывается вся информация из Pre-alert Красноярск по датам. Данные из листа MAWB падают в DMD_1, с листа CN в DMD_cons.
Если запустить код повторно из файла Pre-alert Красноярск с теми же данными, то он обработается повторно, что не должно быть. Должно выдать сообщение, что данные пре-алерт уже обработан. Ну это почему то перестало работать.
Функция определяла, если данные уже обработаны в DMD_1, то выскакивало предупреждение что “данные пре-алерт уже обработан “

[Aleksandr H.]

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

перестала работать Function Duplicatio в макросе

имхо, не может работать то чего нету

[Ivan2010]

Понятно, можно это как то восстановить?
А то очень неудобно работать без данной функции.
Функция сверяла обработанные данные в DMD_1, по номеру перевозочного документа.

[Serge_Bliznykov]

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

Функция определяла, если данные уже обработаны в DMD_1, то выскакивало предупреждение что “данные пре-алерт уже обработан “

Есть такое.

Const PREDEFINED_DUPLICATION_NOTIFY_MSG = "Данный пре-алерт уже обработан."

а проверяется это в функции ROI_Data_Duplication:

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

    Dim i
    i = PREDEFINED_FIRST_DATA_ROW
    
    While i < Data_Paste_Row
        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 _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 3).Value = "`" + Pre_Alert_Data.Total_Weight) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 4).Value = Pre_Alert_Data.Total_Pieces) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 5).Value = "`" + Pre_Alert_Data.Seal_No) And _
            (Workbooks(WBName).Worksheets(WSName).Cells(i, 6).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

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

[Ivan2010]

Вы мне сможете помочь ?

[Serge_Bliznykov]

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

Вы мне сможете помочь ?

в принципе - могу, наверное.

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

у Вас есть все нужные файлы.
у Вас скрипт запускается и работает.
Вы знаете, что нужно получить в итоге.

поэтому, я бы рекомендовал Вам перейти в редактор кода (Alt-F11)
найти там функцию ROI_Data_Duplication
поставить точку останова и выполнить скрипт повторно (т.е. там, где он уже должен написать "Данный пре-алерт уже обработан."
в точке останова посмотреть, чем равны значения ячеек и соответствующие им поля в Pre_Alert_Data
увидеть, где же разница.
исходя из этого уже действовать дальше.