Здравствуйте форумчане, возник вопрос по переноске данных с 1 листа на другой соблюдая определенные условия. возможно ли это действо привязать к макросу? и вообще это возможно? Условия достаточно сложные для моего скудного умишки). Буду очень рад и признателен Вашей помощи. В примере все указал. Что куда и как надо перенести.
Здравствуйте форумчане, возник вопрос по переноске данных с 1 листа на другой соблюдая определенные условия. возможно ли это действо привязать к макросу? и вообще это возможно? Условия достаточно сложные для моего скудного умишки). Буду очень рад и признателен Вашей помощи. В примере все указал. Что куда и как надо перенести.Gatsufa
Вот и непонятно зачем это нужно. Прячьте/отображайте шапку и т.п. например группировкой. + слева от №строк
Этот файл выгружается из программы вместе с шапкой, а нужно данные которые выделены цветом перекинуть в другой файл с готовыми формулами, в дальнейшем туда собираюсь добавить и некоторые макросы. Потому очень важно чтобы перенос произошел по макросу в лист в который нужно сделать перенос
Вот и непонятно зачем это нужно. Прячьте/отображайте шапку и т.п. например группировкой. + слева от №строк
Этот файл выгружается из программы вместе с шапкой, а нужно данные которые выделены цветом перекинуть в другой файл с готовыми формулами, в дальнейшем туда собираюсь добавить и некоторые макросы. Потому очень важно чтобы перенос произошел по макросу в лист в который нужно сделать переносGatsufa
Sub aaa() For i = 1 To 100000 If Cells(i, 3) = "Итого прямые затраты" Then Rows("26:" & i - 1).Cut Sheets("Сюда").Range("A13").Insert Shift:=xlDown Exit Sub End If Next i End Sub
[/vba] Это если "перенести". Если скопировать, поменяйте Cut на Copy.
[vba]
Код
Sub aaa() For i = 1 To 100000 If Cells(i, 3) = "Итого прямые затраты" Then Rows("26:" & i - 1).Cut Sheets("Сюда").Range("A13").Insert Shift:=xlDown Exit Sub End If Next i End Sub
[/vba] Это если "перенести". Если скопировать, поменяйте Cut на Copy.ShAM