Помогите с копированием столбцов.

[sergiksergik]

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

Огромное спасибо.....

[EducatedFool]

Так подойдёт?

[sergiksergik]

огромное спасибо...
Так подойдет....
Но еще вопросик..что мне изменить в макросе что бы все это можно было делать еще на одной кнопке и на другой лист (допусти 1234)???
Спасибо...

[EducatedFool]

Вот, собственно, весь макрос:

Sub ПереносДанных()
    Dim Источник As Worksheet: Set Источник = ThisWorkbook.Worksheets("Печать")
    Dim СК As Worksheet: Set СК = ThisWorkbook.Worksheets("ск")

    Dim Столбец As Range: Set Столбец = СК.Cells(5, СК.Columns.Count).End(xlToLeft).Next.EntireColumn
    With Столбец
        .Cells(5) = Источник.[c6]
        .Cells(6) = Источник.[f6]
        .Cells(7) = Источник.[a6]

        For i = 9 To 21
            v = Источник.Cells(i, 5): If Val(v) > 0 Then .Cells(i) = v
        Next
    End With
End Sub

В строках
Dim Источник As Worksheet: Set Источник = ThisWorkbook.Worksheets("Печать")
Dim СК As Worksheet: Set СК = ThisWorkbook.Worksheets("ск")
определяются листы - с какого листа и на какой копировать данные.

В строке Set Столбец = СК.Cells(5, СК.Columns.Count).End(xlToLeft).Nex t.EntireColumn
цифра 5 определяет, по какой строке производится поиск последнего заполненного столбца.


Будет проще, если Вы прикрепите к сообщению пример файла с этими листами, и также подробно укажите, что и куда надо копировать.

[sergiksergik]

Этот же файл... просто там будет еще 6 листов и для каждого листа будет своя кнопка.
Не всегда значения будут копироваться на один и тот же лист...

[EducatedFool]

Ну так создайте несколько копий этого макроса - одну за другой.
В этих копиях изменяйте названия макроса (обязательно, например, ПереносДанных, ПереносДанных2, ПереносДанных3 и т.п.), и, при необходимости, названия листов.

Каждой кнопке назначьте соответствующий макрос.

Если первую строку макроса:

Dim Источник As Worksheet: Set Источник = ThisWorkbook.Worksheets("Печать")

записать в виде

Dim Источник As Worksheet: Set Источник = activesheet

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

По идее, можно сделать запрос листа, на который требуется копировать данные - тогда макрос получится универсальным (один для всех листов).
Но проще сделать 2 - 3 копии исходного макроса.

[sergiksergik]

Я уже разобрался... и даже сделал еще лист...
Все очень подробно.. описано....
Огромное спасибо за советы....