Копирование на новый лист в EXEL

[Zoj]

Помогите кто может пожалуйста..
При нажатии на кнопку нужно с одного листа скопировать данные(Range("A2:H5")) в другой лист с начала ("A1")
Но вся соль в том что нада еще чтобы при следующем нажатии на кнопку оно опять копировалось но вставлялось уже не с начала , а продолжало ниже вставлятся и так сколько угодно раз.

[VictorM]

Код: Выделить всё

Sub test()
[a2:h5].Copy Destination:=Worksheets("Лист2").Range("A65536").End(xlUp).Offset(1, 0)
End Sub

Начинает "вставлять" данные с ячейки A2, в А1 можно поместить заголовки.

[Zoj]

Работает)СПС..
А как что бы оно копировало с другого листа а не с активного, и чтобы считало сколько раз скопировало.Помоги

[Zoj]

Еще одна проблема мне надо что бы оно копировало специально, чтобы только значения а формулы нет(

[VictorM]

Код: Выделить всё

Sub test()
    n = Worksheets("Лист1").Range("A1")    'счетчик
    Worksheets("Лист1").Range("A2:H5").Copy
    Worksheets("Лист2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlValues'только значения
    Application.CutCopyMode = False
    n = n + 1
    Worksheets("Лист1").Range("A1") = n
End Sub

[Zoj]

Спасибо огромное!!Работает нормально..
А можно еще сделать так чтобы это была типа функцыя не привязаная к контретным листам.
Например чтобы в параметрах функции можно было указать с какого листа копировать, рендж, и куда копировать, а остальное внутри функции.
Был бы очень благодарен)

[Zoj]

вот я сделал так)

Код: Выделить всё

Sub Êíîïêà521_Ùåëêíóòü()
    n = Worksheets("Anketa").Range("M1")
    Copy "tmpDetails", "a1:h5", "qDetails"
    Copy "tmpHeaders", "a1:g2", "qHeaders"
    Copy "tmpOutlets", "a1:f2", "outlets"
    n = n + 1
    Worksheets("Anketa").Range("M1") = n
End Sub

Sub Copy(ByVal Sheets As String, ByVal R1 As String, ByVal Paste As String)
    Worksheets(Sheets).Range(R1).Copy
    Worksheets(Paste).Range("A65536").End(xlUp).Offset(0, 0).PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
End Sub

Спасибо тебе Виктор))

[VictorM]

вот я сделал так)

Ну вот, все замечательно))

[Zoj]

)))спс еще раз огоромное!

[Majckl]

http://depositfiles.com/files/fp1imdwtw - все про VBA в MS OFFICE большинство для 2007 го и 2003 мне очень помогло