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

запишите макрос и повесьте его на кнопку .
...
Рейтинг: 0 / 0
12.09.2014, 15:21
| Ответить | Цитировать | Написать  
копирование данных на другой лист
    #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:34
| Ответить | Цитировать | Написать  
копирование данных на другой лист
    #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, 15:53
| Ответить | Цитировать | Написать  
копирование данных на другой лист
    #38745350
Denis1991
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Denis1991
Участник
The_Prist, спасибо! Да кнопку вставить и назначить ей выполнение макроса могу)
...
Рейтинг: 0 / 0
12.09.2014, 16:21
| Ответить | Цитировать | Написать  
6 сообщений из 6, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / копирование данных на другой лист
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&fpage=55&tid=2173850]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 32ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 288ms
total:  418ms
созд. / загр.: 418ms
x
x
Закрыть


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