небольшой макрос (копирование данных между листами)

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

небольшой макрос (копирование данных между листами) (Формулы/Formulas)

mean

Дата: Среда, 25.02.2015, 16:13 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

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

спасибо!

Ответить

_Boroda_

Дата: Среда, 25.02.2015, 16:21 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16907

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Без Вашего файла так:
[vba]

Код

Sheets("Лист1").Range("A1").Copy Sheets("Лист2").Range("D1")
Sheets("Лист2").PrintOut Copies:=2

[/vba]
Адреса там самостоятельно поменяйте.
Если в файле какая-то засада и код не работает, то нужно было его прикладывать, согласно Правилам форума.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

KolyvanOFF

Дата: Среда, 25.02.2015, 16:22 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 217

Репутация: 7 ±

Замечаний: 60% ±

Excel 2010

Это вопрос по VBA. Приложите файл!

С уважением, Евгений

Ответить

mean

Дата: Четверг, 26.02.2015, 09:28 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

_Boroda_ немного не то, нужно не конкретную ячейку а выделенную скопировать.

файлик прикрепил.
нужно чтобы активная ячейка, какую выбрал мышей (в принципе это будет только в столбике А), на Листе1 скопировалась на Лист2 в ячейку B16,
тогда у меня сформируется акт и можно делать печать 2 копий.

К сообщению приложен файл: PC.xlsm (65.6 Kb)

Ответить

_Boroda_

Дата: Четверг, 26.02.2015, 09:36 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 16907

Репутация: 6615 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Вот видите? Всегда нужно файл прикладывать
[vba]

Код

Sub tt()
     If Selection.Cells.Count > 1 Then Exit Sub
     Sheets("Лист2").Range("B16") = Selection
     Sheets("Лист2").PrintOut Copies:=2
End Sub

[/vba]

К сообщению приложен файл: 4545445_2.xlsm (64.3 Kb)

Ответить

mean

Дата: Четверг, 26.02.2015, 10:54 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

спасибо огромное, очень выручили!

Ответить

небольшой макрос (копирование данных между листами) (Формулы/Formulas)

Страница 1 из 1
1