Копирование и вставка несвязанных ячеек

[hamlook]

Доброго времени.
Я до сих пор уверен, что похожая тема уже была, но не нашел.
В общем необходимо скопировать несвязанные ячейки в буфер (в примере выделено желтым) и вставить в таком же порядке на другой лист (в примере - красным). Список на втором листе отфильтрован в соответствии с первым.
При обычном копировании формулы пропадают, а при вставке скопированных несвязанных ячеек пропадают промежуточные ячейки.

[IgorGO]

скопировать можно что угодно, особенно - если понимать что требуется скопировать и куда

[hamlook]

Видимо вы имеете ввиду, что файл я выложил не в том формате. Прошу извинить меня за оплошность.

[IgorGO]

дело не в формате файла, дело в том что задача не понятна (судя с 4-м просмотрам первого файла не мне одному)

возможно так?

Sub Copy2FilteredRow()
  Dim dest As Range, r As Long
  Set dest = Worksheets("месяц").Cells(1, 5)
  With Worksheets("список")
    For r = 3 To 5
      Set dest = dest.Offset(1, 0)
      Do While dest.EntireRow.Hidden
        Set dest = dest.Offset(1, 0)
      Loop
      Range(.Cells(r, 2), .Cells(r, 14)).Copy
      dest.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=True, Transpose:=False
    Next
  End With
End Sub

[kuklp]

Видимо Игорь имеет ввиду что нихрена не понятно, что и куда Вы собрались копировать. Или Вы так каждый раз собираетесь играть в книжку-раскраску? В чем тогда смысл макроса? Проще сразу копировать по одной. Покажите пример с данными, чтоб было понятно, по какому признаку и что нужно, или не нужно копировать. Есть же какая-то закономерность в выборе копируемых ячеек?

[IgorGO]

Видимо Игорь имеет ввиду что нихрена не понятно

как будто мысли мои прочитал)))
думал я чуть по другому, но эти слова не положено писать в сообщениях

[hamlook]

Игорь спасибо. Все верно, так как и надо было.
kuklp, старался максимально просто объяснить что мне нужно (с раскрасками), как по другому не знаю. Прошу прощения.

[IgorGO]

пожалуйста, но видите-ли...

как только в данных окажется не 3, а 4 строки данных - макрос нужно поправить (чтобы он отработал для 4-х строк)
по сути - это не макрос, а недоразумение, который нужно "затачивать" под всякие новые данные

а возникло это недоразумение из-за того, что не понятно, что там будет происходить с данными, как эти изменения данных отследить и как на них среагировать макросом

[hamlook]

У меня в данных 40-50 строк, я в макросе поставил на 100... и столбцов более 100.
Моих знаний хватает только на эти корректировки, а нагружать вас всеми тонкостями мне не хочется.
Еще раз спасибо.

[IgorGO]

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

ладно, удачи!