Добавление новых данных, в список на отдельном листе

Старая форма входа

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

Добавление новых данных, в список на отдельном листе (Макросы/Sub)

Zagit12

Дата: Воскресенье, 10.02.2019, 08:47 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2016

Доброе утро, есть выпадающий список, хочу сделать чтобы в него можно было добавлять новые данные если их там нет, код нашел в отдельной теме, помогите сделать чтобы он заработал, во вложение файл, там в исходном коде страницы "лист1", заранее спасибо

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

Ответить

Nic70y

Дата: Воскресенье, 10.02.2019, 09:39 | Сообщение № 2

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

[vba]

Код

                        If lReply = vbYes Then
                            Sheets("общий").Range("a" & Cells(Rows.Count, 1).End(xlUp).Row + 1) = Target
                        End If

[/vba]

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Воскресенье, 10.02.2019, 09:42

Ответить

Zagit12

Дата: Воскресенье, 10.02.2019, 11:08 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2016

спасибо огромное, всё работает!!!

Сообщение отредактировал Zagit12 - Воскресенье, 10.02.2019, 22:04

Ответить

Zagit12

Дата: Воскресенье, 10.02.2019, 12:41 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2016

Теперь другая проблема, при дублировании страницы, он начинает перезаписывать заного данные. Работает так, что в какой ячейки пишешь, в той он и добавляет на другой странице

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

Сообщение отредактировал Zagit12 - Воскресенье, 10.02.2019, 22:04

Ответить

Nic70y

Дата: Воскресенье, 10.02.2019, 19:03 | Сообщение № 5

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

Извените, но я лично ни чего не понял из Вашего сообщения.

ЮMoney 41001841029809

Ответить

Zagit12

Дата: Воскресенье, 10.02.2019, 20:23 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2016

В общем, пишешь слово, он его добавляет на листе "общий" в ту же ячейку, где ты написал на листе 1

Сообщение отредактировал Zagit12 - Воскресенье, 10.02.2019, 22:03

Ответить

Pelena

Дата: Воскресенье, 10.02.2019, 20:55 | Сообщение № 7

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

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

Сообщений: 19405

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

Замечаний: ±

Excel 365 & Mac Excel

Попробуйте так
[vba]

Код

Sheets("общий").Range("a" & Sheets("общий").Cells(Rows.Count, 1).End(xlUp).Row + 1) = Target

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Nic70y

Дата: Воскресенье, 10.02.2019, 20:58 | Сообщение № 8

Группа: Друзья

Ранг: Экселист

Сообщений: 9006

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

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

Excel 2010

ну, да тупанул немножко, можно же...
[vba]

Код

Sheets("общий").Range("a" & Sheets("общий").Cells(Rows.Count, 1).End(xlUp).Row + 1) = Target

[/vba]

ЮMoney 41001841029809

Ответить

Zagit12

Дата: Воскресенье, 10.02.2019, 21:19 | Сообщение № 9

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

Ранг: Новичок

Сообщений: 31

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

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

Excel 2016

Nic70y, спасибо работает, но теперь если на листе 2 выделяешь строки по столбцу А, и удаляешь выдает ошибку run time eror 13 type missmatch
Выделяет строку: If WorksheetFunction.CountIf(Sheets("общий").Columns(1), Target) = 0 Then

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

Сообщение отредактировал Zagit12 - Понедельник, 11.02.2019, 07:57