Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Запись введенных данных кнопкой - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись введенных данных кнопкой (Макросы/Sub)
Запись введенных данных кнопкой
Narahon Дата: Воскресенье, 12.08.2018, 20:11 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!

Прошу маленькой помощи, не могу правильно сделать макрос с выведением на кнопку.
По поиску похожих тем к сожалению не нашел, точнее то, что мне бы помогло...

В общем, есть база из нескольких листов, 1 лист - титульный, где вводятся данные о клиенте, а есть 2 лист, где хранятся все данные о клиентах.

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

Я попытался сделать эти через запись действий, с некоторым поправлением кода, но кривые руки, делают так, что вообще ничего не работает))

Прикрепляю образец базы. Буду крайне благодарен за помощь в решении вопроса!
К сообщению приложен файл: baza-3.xlsm (45.8 Kb)
 
Ответить
СообщениеЗдравствуйте!

Прошу маленькой помощи, не могу правильно сделать макрос с выведением на кнопку.
По поиску похожих тем к сожалению не нашел, точнее то, что мне бы помогло...

В общем, есть база из нескольких листов, 1 лист - титульный, где вводятся данные о клиенте, а есть 2 лист, где хранятся все данные о клиентах.

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

Я попытался сделать эти через запись действий, с некоторым поправлением кода, но кривые руки, делают так, что вообще ничего не работает))

Прикрепляю образец базы. Буду крайне благодарен за помощь в решении вопроса!

Автор - Narahon
Дата добавления - 12.08.2018 в 20:11
китин Дата: Понедельник, 13.08.2018, 08:38 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7014
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
1 лист - титульный

и поэтому запаролен?


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
1 лист - титульный

и поэтому запаролен?

Автор - китин
Дата добавления - 13.08.2018 в 08:38
Narahon Дата: Понедельник, 13.08.2018, 10:14 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
и поэтому запаролен?


Извиняюсь, забыл снять защиту, вот новый)
К сообщению приложен файл: 0153279.xlsm (44.0 Kb)
 
Ответить
Сообщение
и поэтому запаролен?


Извиняюсь, забыл снять защиту, вот новый)

Автор - Narahon
Дата добавления - 13.08.2018 в 10:14
pechkin Дата: Понедельник, 13.08.2018, 12:50 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Может подойдет...
К сообщению приложен файл: 8991.xlsm (45.4 Kb)


Сообщение отредактировал pechkin - Понедельник, 13.08.2018, 13:11
 
Ответить
СообщениеЗдравствуйте! Может подойдет...

Автор - pechkin
Дата добавления - 13.08.2018 в 12:50
Narahon Дата: Понедельник, 13.08.2018, 20:44 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте! Может подойдет...


Да, огромное спасибо, всё работает просто замечательно, я, конечно, пытался всё как обычно усложнить донельзя, хотя это и понятно, так как то, что не понимаю, пытаюсь сделать формулами и вставить в vba =)

Ещё вопросик, а возможно ли сделать так, чтобы он, в случае дополнения информации, находил уже имеющуюся строку и дописывал или данные, например:

Я знаю фамилию и имя клиента, его номер телефона и данные об автомобиле, все эти данные я внес и через кнопку добавил в базу. Клиент приехал, я уточнил у него остальные данные (отчество, данные паспорта) так же на титульном листе их дописал и этот макрос нашёл этого клиента в базе и дописал нужную информацию. Или это уже не возможно?)

(у меня мысль о том, чтобы полностью перезаписывать данные, но как-то это не правильно, что ли...)
 
Ответить
Сообщение
Здравствуйте! Может подойдет...


Да, огромное спасибо, всё работает просто замечательно, я, конечно, пытался всё как обычно усложнить донельзя, хотя это и понятно, так как то, что не понимаю, пытаюсь сделать формулами и вставить в vba =)

Ещё вопросик, а возможно ли сделать так, чтобы он, в случае дополнения информации, находил уже имеющуюся строку и дописывал или данные, например:

Я знаю фамилию и имя клиента, его номер телефона и данные об автомобиле, все эти данные я внес и через кнопку добавил в базу. Клиент приехал, я уточнил у него остальные данные (отчество, данные паспорта) так же на титульном листе их дописал и этот макрос нашёл этого клиента в базе и дописал нужную информацию. Или это уже не возможно?)

(у меня мысль о том, чтобы полностью перезаписывать данные, но как-то это не правильно, что ли...)

Автор - Narahon
Дата добавления - 13.08.2018 в 20:44
pechkin Дата: Вторник, 14.08.2018, 08:42 | Сообщение № 6
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Здравствуйте! Проверяйте...
К сообщению приложен файл: 8997.xlsm (49.7 Kb)


Сообщение отредактировал pechkin - Вторник, 14.08.2018, 13:41
 
Ответить
СообщениеЗдравствуйте! Проверяйте...

Автор - pechkin
Дата добавления - 14.08.2018 в 08:42
Narahon Дата: Вторник, 14.08.2018, 12:58 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте! Проверяйте...


Здравствуйте, всё отлично, прямо как я хотел, только, при повторном внесении данных в поле "Выдан (число/месяц/год)" заносится номер телефона, а дата попадает на адрес прописки

А модель авто продублировалась на год выпуска авто


Сообщение отредактировал Narahon - Вторник, 14.08.2018, 13:14
 
Ответить
Сообщение
Здравствуйте! Проверяйте...


Здравствуйте, всё отлично, прямо как я хотел, только, при повторном внесении данных в поле "Выдан (число/месяц/год)" заносится номер телефона, а дата попадает на адрес прописки

А модель авто продублировалась на год выпуска авто

Автор - Narahon
Дата добавления - 14.08.2018 в 12:58
pechkin Дата: Вторник, 14.08.2018, 13:41 | Сообщение № 8
Группа: Проверенные
Ранг: Обитатель
Сообщений: 329
Репутация: 49 ±
Замечаний: 0% ±

2003
Исправил в предидущем посте :(
 
Ответить
СообщениеИсправил в предидущем посте :(

Автор - pechkin
Дата добавления - 14.08.2018 в 13:41
Narahon Дата: Вторник, 14.08.2018, 14:11 | Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Исправил в предидущем посте


Огромнейшее спасибо! Сразу не заметил исправленный файл, всё работает просто замечательно, даже лучше, чем я представлял) Огромный респект и + в карму)
 
Ответить
Сообщение
Исправил в предидущем посте


Огромнейшее спасибо! Сразу не заметил исправленный файл, всё работает просто замечательно, даже лучше, чем я представлял) Огромный респект и + в карму)

Автор - Narahon
Дата добавления - 14.08.2018 в 14:11
Narahon Дата: Вторник, 14.08.2018, 19:09 | Сообщение № 10
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Еще один вопросик, как я понимаю, проверка данных идёт по фамилии?
Или полностью по строке?

Если по фамилии, как можно изменить проверку по номеру телефона?
 
Ответить
СообщениеЕще один вопросик, как я понимаю, проверка данных идёт по фамилии?
Или полностью по строке?

Если по фамилии, как можно изменить проверку по номеру телефона?

Автор - Narahon
Дата добавления - 14.08.2018 в 19:09
StoTisteg Дата: Среда, 15.08.2018, 10:26 | Сообщение № 11
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Проверка там по ФИО, изменил Вам на телефон, тестируйте.
К сообщению приложен файл: 5699824.xlsm (45.8 Kb)


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеПроверка там по ФИО, изменил Вам на телефон, тестируйте.

Автор - StoTisteg
Дата добавления - 15.08.2018 в 10:26
StoTisteg Дата: Среда, 15.08.2018, 10:35 | Сообщение № 12
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
pechkin, простите, а Вы про Select Case слышали что-нибудь? %) Усиленно рекомендую :p


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
Сообщениеpechkin, простите, а Вы про Select Case слышали что-нибудь? %) Усиленно рекомендую :p

Автор - StoTisteg
Дата добавления - 15.08.2018 в 10:35
StoTisteg Дата: Среда, 15.08.2018, 10:46 | Сообщение № 13
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Короче, этот жуткий ой проще заново написать, чем оптимизировать... Щас сделаю.


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеКороче, этот жуткий ой проще заново написать, чем оптимизировать... Щас сделаю.

Автор - StoTisteg
Дата добавления - 15.08.2018 в 10:46
Pelena Дата: Среда, 15.08.2018, 10:52 | Сообщение № 14
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация: 4413 ±
Замечаний: ±

Excel 365 & Mac Excel
StoTisteg, а можно просто предложить свой супер-вариант, без язвительных замечаний? Здесь многие только учатся


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеStoTisteg, а можно просто предложить свой супер-вариант, без язвительных замечаний? Здесь многие только учатся

Автор - Pelena
Дата добавления - 15.08.2018 в 10:52
StoTisteg Дата: Среда, 15.08.2018, 11:27 | Сообщение № 15
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Pelena, прошу пардону. Просто код впечатлил... Именно так я и сделаю...


Интуитивно понятный код - это когда интуитивно понятно, что это код.
 
Ответить
СообщениеPelena, прошу пардону. Просто код впечатлил... Именно так я и сделаю...

Автор - StoTisteg
Дата добавления - 15.08.2018 в 11:27
StoTisteg Дата: Среда, 15.08.2018, 13:19 | Сообщение № 16
Группа: Авторы
Ранг: Старожил
Сообщений: 1161
Репутация: 103 ±
Замечаний: 0% ±

Excel 2010
Готово, с проверкой наличия телефона и корректности данных.

UPD. Добавил проверку года выпуска машины.
К сообщению приложен файл: 3923182.xlsm (52.4 Kb)


Интуитивно понятный код - это когда интуитивно понятно, что это код.

Сообщение отредактировал StoTisteg - Среда, 15.08.2018, 16:43
 
Ответить
СообщениеГотово, с проверкой наличия телефона и корректности данных.

UPD. Добавил проверку года выпуска машины.

Автор - StoTisteg
Дата добавления - 15.08.2018 в 13:19
Narahon Дата: Среда, 15.08.2018, 16:41 | Сообщение № 17
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Готово, с проверкой наличия телефона и корректности данных.


Во, вот это отличный вариант, огромнейшее спасибо! Всё работает просто на ура!
 
Ответить
Сообщение
Готово, с проверкой наличия телефона и корректности данных.


Во, вот это отличный вариант, огромнейшее спасибо! Всё работает просто на ура!

Автор - Narahon
Дата добавления - 15.08.2018 в 16:41
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Запись введенных данных кнопкой (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!