Необходима написать макрос переноса данных

[DiemonStar]

with CreateObject("Scripting.Dictionary")
    for each Rw in ИсходныеДанные.Rows
      .Items.Add Rw.Номер & " " &Rw.Дата,  Rw.Row
    next Rw
    for each Rw in НовыеДанные.Rows
      if .exists(Rw.Номер  & " " &Rw.Дата) then
        MsgBox "Есть такая буква в этом слове"
      else
        .Items.Add  Rw.Номер  & " " &Rw.Дата, Rw.Row
        ' и добавляем в в список актов
      endif
    next Rw
end with

вот один из вариантов - если его доделать к своим данным

[Робин]

Туплю нереально
Че то не получается внедрить ваш код.
Например, не знаю что означают словосочетания ИсходныеДанные и НовыеДанные.

[DiemonStar]

Например, не знаю что означают словосочетания ИсходныеДанные и НовыеДанные.

Это объекты класса Range указывающие на область с вашими данными (мне немного лень разбираться с вашим примером). Этот код, как в анекдоте, требует обработки "напильником" для получения результата)

[Hugo121]

Думаю, словарь тут лишнее - ведь по задаче нужно найти одно совпадение.
И поэтому возможно/иногда/редко не придётся перебирать весь объём данных
Ну ладно - зато поиск в словаре быстрее, чем сравнение текущего значения с каждым элементом массива.
Вообще нужно потестить на сотне тысяч значений... Приду домой - проверю

[Робин]

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

[Hugo121]

Потестил на файле http://www.programmersforum.ru/attac...5&d=1349266760
Размножил данные на 100к строк, в нижней строке поместил совпадение (на первом листе в H21 дату).

Sub tt()
    Dim tm!
    Dim a(), i&
    a = Sheets(2).[a1].CurrentRegion.Value

    tm = Timer
    With CreateObject("Scripting.Dictionary")
        For i = 1 To UBound(a): .Item(a(i, 1) & "|" & a(i, 5)) = 0&: Next
        If .exists([c21].Value & "|" & [h21].Value) Then Debug.Print Timer - tm
    End With

    tm = Timer
    t = [c21].Value & "|" & [h21].Value
    For i = 1 To UBound(a)
        If a(i, 1) & "|" & a(i, 5) = t Then Debug.Print i, Timer - tm
    Next
End Sub

Результат:
2,34375
103830 0,40625

Словарь тут не нужен.

P.S. А по практической задаче - там не могут быть повторы. Т.к. нельзя зайти дважды в одну реку
Это если брать дату как она есть в файле.
С другой стороны - если брать только день без времени - а разве не может быть два акта на одну машину? Думаю вполне может быть, на разные ремонты.
Давайте продумайте и сформулируйте предельно точно задачу.
Но я скорее всего делать не буду - некогда.

[Робин]

Чо т я савсем запутался
Hugo121, например, как вы тестили мой файл если он не работает?
И вот сейчас только заметил, в спешке я вернул неправильные названиялистов.
И далее ,что должен делать приведенный вами макрос? У меня он, почему то ничего не делает.
А что касается пределно точной формулировки вопроса,то суть не в том, сколько может быть актов. А соль вся в том, что иногда бывает, ошибочно нажимаешь одну и ту же кнопку не один, а два раза. А надо только один.
Так вот, чтоб при втором (ошибочном) нажатии кнопки, одна и та же инфа,повторно в список не попала.
Вот и все.

Да и еще в голову пришло.
На практике два абсолюьно одинаковых акта не бывает.
Но допустим, что теоретически все даные каких то двух актов идентичны. Но их номера будут разными, в любом случае. Иначе это будет не два разных акта, а два экземпляра одного и того же акта.

[Hugo121]

Ваш файл работает. Да от него ничего и не зависит - код ведь другой
А то, что Вы не видите результата - это говорит о том, что Вы не знаете, куда смотреть!
Да и вообще - это пока теория, чистая наука
Практически Вы так пока и не сказали, что именно сравнивать и что вообще нужно делать.
Хотя весь код уже практически есть - только его нужно пересобрать в нужном виде
Ну а если сравнивать по номерам, которые всегда разные - то тем более.

[Робин]

Добрый день
Вот немного изменил и сделал пример понагляднее. Что куда копировать выделил одинаковым цветом.
А сверять нужно номер акта (см. в ячейке F7 на листе Акт)и ищем его в столбце А на листе Реестр.
А также дату (см. в ячейке Е8 на листе Акт) и ищем ее в столбце В на листе Реестр.
Если такие даные отсутствуют в реестре, то макрос записывает всю строку в Реестр.
А если такие номер и дата в Реестре уже есть, макрос сообщает об этом и дает отказ от записи.
Коль скоро передыдущий макрос не играет роли, я его не привожу.
Сильно извиняюсь за предылуший сумбур с моей стороны.

[Робин]

Еще раз извиняюсь.
Не понятно как в архив попал файл с 2007 экселя, смотрите пожалуйста файл 2003-го.