перенос чисел по ячейкам, проверка по всем листам книги

[alex241v]

кидал частями так как очень большой код

[IgorGO]

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

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

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

[alex241v]

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

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

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

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

к сожалению файл не могу скинуть , нужно это для облегчения работы, а именно есть 2 файла 1 мэппинг и 2 сборник при запуске макроса эти 2 файла компонуются. Макрос копирует данные из них и создает третий "выходной файл с датой " так вот в этом "выходном файле " есть много листов имена все уникальные и в этих листах есть повторяющиеся строки , и как я выше написал нужно удалить дубликат строки и скинуть число с нижней строки в верхнюю, почему так потому что нужное нам число для переноса находится в нижней строки дубликата а так как макрос удаляет дубликат делает он это по нижней строке и соответственно удаляет нужное нам число в столбике R. и проделать это со всеми листами

[alex241v]

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

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

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

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

если коротко то: нужен макрос который при уже сформировавшемуся "выходному файлу" зайдет в него, в первый лист и будет идти по столбцам H,I,O он должен искать одинаковые строчки по этим столбцам и если к примеру H3=H4, I3=I4, O3=O4 то он переходит к столбцу R и из R4->переносит нужное нам значение в R3 и так по всему листу а потом и по всем листам книги , если это возможно сделать подскажите пожалуйста как , в заранее большое спасибо

[alex241v]

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

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

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

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

код работает хорошо ,только надо дописать такой макрос

[Aleksandr H.]

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

и будет идти по столбцам H,I,O он должен искать одинаковые строчки по этим столбцам и если к примеру H3=H4, I3=I4, O3=O4 то он переходит к столбцу R и из R4->переносит нужное нам значение в R3

сравнили h3 с h4 и, если h3=h4, тогда
1) в r3 переносим значение r4
2) удаляем 3 строку
или
1) в r4 переносим значение r3
2) удаляем 4 строку

[IgorGO]

Sub DelEqual(wb As Workbook)
  Dim sht As Worksheet, r As Long
  For Each sht In wb.Worksheets
    With sht
      r = 1
      Do While Not IsEmpty(.Cells(r, 8))
        If .Cells(r, 8) = .Cells(r + 1, 8) And .Cells(r, 9) = .Cells(r + 1, 9) And .Cells(r, 15) = .Cells(r + 1, 15) Then
          .Cells(r, 18) = .Cells(r + 1, 18)
          .Rows(r + 1).Delete
        End If
        r = r + 1
      Loop
    End With
  Next
End Sub

[alex241v]

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

Sub DelEqual(wb As Workbook)
  Dim sht As Worksheet, r As Long
  For Each sht In wb.Worksheets
    With sht
      r = 1
      Do While Not IsEmpty(.Cells(r, 8))
        If .Cells(r, 8) = .Cells(r + 1, 8) And .Cells(r, 9) = .Cells(r + 1, 9) And .Cells(r, 15) = .Cells(r + 1, 15) Then
          .Cells(r, 18) = .Cells(r + 1, 18)
          .Rows(r + 1).Delete
        End If
        r = r + 1
      Loop
    End With
  Next
End Sub

сейчас попробую запустить)

[alex241v]

Сообщение от Aleksandr H.

сравнили h3 с h4 и, если h3=h4, тогда
1) в r3 переносим значение r4
2) удаляем 3 строку
или
1) в r4 переносим значение r3
2) удаляем 4 строку

из r4 переносим в r3 и удаляем r4 то есть 4 строку , потому что в q3 у нас есть тоже значения а в q4 нет , и мы не должны терять данные )

[alex241v]

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

Sub DelEqual(wb As Workbook)
  Dim sht As Worksheet, r As Long
  For Each sht In wb.Worksheets
    With sht
      r = 1
      Do While Not IsEmpty(.Cells(r, 8))
        If .Cells(r, 8) = .Cells(r + 1, 8) And .Cells(r, 9) = .Cells(r + 1, 9) And .Cells(r, 15) = .Cells(r + 1, 15) Then
          .Cells(r, 18) = .Cells(r + 1, 18)
          .Rows(r + 1).Delete
        End If
        r = r + 1
      Loop
    End With
  Next
End Sub

Игорь прошу не ругать меня и прошу прощения за глупый вопрос, куда макрос засунуть? потому что я по всякому пробовал либо не работает либо ругается