перенос данных - Microsoft Office Excel

Earl Grey · 22.07.2010, 18:02

Тупик!!!
На первом листе расчеты параметров техпоцесса.
Макросом добавляю лист отчета (с табличками названиями и т.д.)
Как из первого листа значения диапазона типа а1:с1 вставить на второй лист в диапазон типа а1:а3.

уже три дня ступор.

EugeneS · 22.07.2010, 18:10

например, так:

Код:

    Sheets("Лист1").Range("A1:C1").Copy
    Sheets("Лист2").[a1].PasteSpecial Paste:=xlPasteValues, Transpose:=True: Application.CutCopyMode = False

Лист1 - параметры расчетов, Лист2 - куда необходимо скопировать

Earl Grey · 22.07.2010, 18:14

Цитата:

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

например, так:

Код:

    Sheets("Лист1").Range("A1:C1").Copy
    Sheets("Лист2").[a1].PasteSpecial Paste:=xlPasteValues, Transpose:=True: Application.CutCopyMode = False

Лист1 - параметры расчетов, Лист2 - куда необходимо скопировать

на втором листе должен быть столбик

Earl Grey · 22.07.2010, 18:15

Цитата:

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

например, так:

Код:

    Sheets("Лист1").Range("A1:C1").Copy
    Sheets("Лист2").[a1].PasteSpecial Paste:=xlPasteValues, Transpose:=True: Application.CutCopyMode = False

Лист1 - параметры расчетов, Лист2 - куда необходимо скопировать

Извини не заметил Transpose

Earl Grey · 22.07.2010, 18:18

Спасибо!!!
Муки закончились!!!

Earl Grey · 22.07.2010, 18:59

Цитата:

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

например, так:

Код:

    Sheets("Лист1").Range("A1:C1").Copy
    Sheets("Лист2").[a1].PasteSpecial Paste:=xlPasteValues, Transpose:=True: Application.CutCopyMode = False

Лист1 - параметры расчетов, Лист2 - куда необходимо скопировать

записал так:
sheets("Сеточный стол").Range(Cells(Лист3.strokaOrch eta, 11), _
Cells(Лист3.strokaOrcheta, 13)).Copy
один раз сработало и все! выдает ошибку

22.07.2010, 18:02	#1
Earl Grey Регистрация: 09.12.2009 Сообщений: 5	перенос данных Тупик!!! На первом листе расчеты параметров техпоцесса. Макросом добавляю лист отчета (с табличками названиями и т.д.) Как из первого листа значения диапазона типа а1:с1 вставить на второй лист в диапазон типа а1:а3. уже три дня ступор.

22.07.2010, 18:10	#2
EugeneS Форумчанин Регистрация: 06.08.2009 Сообщений: 472	например, так: Код: `Sheets("Лист1").Range("A1:C1").Copy Sheets("Лист2").[a1].PasteSpecial Paste:=xlPasteValues, Transpose:=True: Application.CutCopyMode = False` Лист1 - параметры расчетов, Лист2 - куда необходимо скопировать

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Изменение данных и перенос данных из одной таб в другую	Kot9ra	Microsoft Office Access	13	02.07.2010 12:22
сортировка данных (пересчет возможных вариантов комбинаций, перенос данных в таблицу)	Vitalik85	Microsoft Office Excel	4	12.08.2009 00:30
Перенос данных	Technolog	Microsoft Office Excel	5	27.03.2009 10:45
перенос данных	Viento	Microsoft Office Excel	10	16.01.2009 00:13
Перенос данных.	Victor	Microsoft Office Excel	8	01.09.2007 21:02

22.07.2010, 18:18	#5
Earl Grey Регистрация: 09.12.2009 Сообщений: 5	Спасибо!!! Муки закончились!!!