|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.10.2011, 12:37 | #1 |
Новичок
Джуниор
Регистрация: 26.10.2011
Сообщений: 3
|
Перенос выбранных ячеек
Здравствуйте!
Скажите, как сделать, чтобы была возможность по средствам нажатия кнопки, строки в которых были введены данные, переносились в таблицу на другом листе? Может как-то ограничить определенный диапазон проверки введенных данных в ячейки? Есть таблица, в ней изменяются только колонка с расчетами. Колонка изначально с пустыми ячейками, но если ввести в ячейку данные, то строка с этой ячейкой переноситься на новый лист. Спасибо. Последний раз редактировалось W3r3Wolf; 26.10.2011 в 12:43. |
26.10.2011, 12:49 | #2 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Как по мне так тема процедур при изменеии данных в ячейке подымалась не один десяток раз. Попробуйте поиск по форуму и будет Вам счастье...
.....ник как у моего брата..... зовут тебя случайно не Ваня? |
26.10.2011, 13:10 | #3 |
Новичок
Джуниор
Регистрация: 26.10.2011
Сообщений: 3
|
Нет). Рома.
Я не программист, в этих делах не шарю. Поэтому и задал такой вопрос. |
26.10.2011, 13:25 | #4 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Что-то в таком роде:
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Long If Target.Column <> 1 Then Exit Sub If Target.Offset(0, 1) = "" Then MsgBox "Óêàæèòå íîìåð ñòîëáöà...", vbCritical, "Íå ïîíÿòíî, êóäà ñêëàäûâàòü äàííûå!" Exit Sub End If c = Target.Offset(0, 1) Cells(Cells(Rows.Count, c).End(xlUp).Row + 1, c) = Target End Sub |
26.10.2011, 13:31 | #5 |
Новичок
Джуниор
Регистрация: 26.10.2011
Сообщений: 3
|
Спасибо. Такой вопрос, куда мне это написать? )
|
26.10.2011, 13:44 | #6 |
Форумчанин
Регистрация: 09.06.2011
Сообщений: 515
|
Офис 2007 = Alt+F11 на необходимую страницу
|
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перенос данных из ячеек при условии | stels77 | Microsoft Office Excel | 13 | 06.07.2011 16:49 |
Дублирование выбранных ячеек. | GrayBy | Microsoft Office Excel | 12 | 05.03.2011 13:07 |
Перенос выбранных записей в другую таблицу | Tony1991 | БД в Delphi | 0 | 17.12.2010 16:59 |
Заполнение имени, при сохранении. Автозаполнение выбранных ячеек | GrayBy | Microsoft Office Excel | 41 | 01.07.2010 18:14 |
Перенос данных из ячеек | gavrylyuk | Microsoft Office Excel | 2 | 05.08.2008 14:24 |