Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование данных на другой лист / 6 сообщений из 6, страница 1 из 1
12.09.2014, 10:10
    #38744897
Denis1991
Denis1991
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
Здраствуйте! Есть файл Excel.
На первом листе в 3 ячейках мы вводим ФИО. На втором 1 колонка которая будет содержать эти же ФИО.
Как сделать так чтобы данные с первого листа при нажатии на кнопку копировались на второй?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2014, 15:21
    #38745262
капитанская дочка
капитанская дочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
Denis1991,

запишите макрос и повесьте его на кнопку .
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2014, 15:34
    #38745291
Denis1991
Denis1991
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
капитанская дочка, спасибо. Как же я не догадался. Дельный совет.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
Sub Copy()
'
' Copy Ìàêðîñ
' Copy range to list2
'
' Ñî÷åòàíèå êëàâèø: Ctrl+q
'
    Dim lActRow As Long
    lActRow = ActiveCell.Row
    Cells(lActRow, 1).Select
    Selection.Copy
    Sheets("Ëèñò2").Select
    Range("E7").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Sheets("Ëèñò1").Select
    Cells(lActRow, 2).Select
    Selection.Copy
    Sheets("Ëèñò2").Select
    Range("F7").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Sheets("Ëèñò1").Select
    Cells(lActRow, 3).Select
    Selection.Copy
    Sheets("Ëèñò2").Select
    Range("G7").Select
    ActiveSheet.Paste
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub


Вот мой макрос. Пока ждал совета по написанию уже написал. Не был знаком с VBA(не моя сфера деятельности) поэтому и спрашивал. А то что нужен макрос и так знал...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2014, 15:53
    #38745319
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
Denis1991,

Думаю, вполне можно одной строкой обойтись:
Код: vbnet
1.
2.
3.
Sub test()
    Range("A1").CurrentRegion.Copy Sheets("Ëèñò2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub


А кнопку,надеюсь создадите. Как создать кнопку для вызова макроса на листе?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2014, 15:53
    #38745320
The_Prist
The_Prist
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
не усмотрел за раскладкой:
Код: vbnet
1.
2.
3.
Sub test()
    Range("A1").CurrentRegion.Copy Sheets("Лист2").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.09.2014, 16:21
    #38745350
Denis1991
Denis1991
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
копирование данных на другой лист
The_Prist, спасибо! Да кнопку вставить и назначить ей выполнение макроса могу)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование данных на другой лист / 6 сообщений из 6, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 445ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2173850]:
 0ms
get settings:
 8ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 52ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 44ms
get tp. blocked users:
 2ms
others: 302ms
total:  445ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]