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

Вход

Регистрация

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

 

= Мир MS Excel/Проставление номера договора при заполнении ячейки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проставление номера договора при заполнении ячейки (Макросы/Sub)
Проставление номера договора при заполнении ячейки
gredd Дата: Воскресенье, 27.03.2016, 11:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Помогите, пожалуйста, доработать макрос. Необходимо, чтобы при заполнении одного столбца, в другом автоматически проставлялся номер договора. У меня получилось создать макрос, где просто автоматически проставляется порядковый номер (1, 2, 3 и тд). А у меня номер договора, где присутствуют и буквенные символы. Как можно осуществить автоматическую нумерацию для номера договора? Файл с моими наработками прикладываю. Первая таблица в файле - тот макрос, которые получился, а вторая таблица - то, что нужно сделать. Подскажите, пожалуйста. На вас вся надежда :'(
[moder]Для макросов на форуме есть свой раздел. Перенесла тему.[/moder]
К сообщению приложен файл: Numb.xlsm(15Kb)


Сообщение отредактировал Manyasha - Воскресенье, 27.03.2016, 11:35
 
Ответить
СообщениеДобрый день! Помогите, пожалуйста, доработать макрос. Необходимо, чтобы при заполнении одного столбца, в другом автоматически проставлялся номер договора. У меня получилось создать макрос, где просто автоматически проставляется порядковый номер (1, 2, 3 и тд). А у меня номер договора, где присутствуют и буквенные символы. Как можно осуществить автоматическую нумерацию для номера договора? Файл с моими наработками прикладываю. Первая таблица в файле - тот макрос, которые получился, а вторая таблица - то, что нужно сделать. Подскажите, пожалуйста. На вас вся надежда :'(
[moder]Для макросов на форуме есть свой раздел. Перенесла тему.[/moder]

Автор - gredd
Дата добавления - 27.03.2016 в 11:20
Nic70y Дата: Воскресенье, 27.03.2016, 11:23 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3493
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013
Код
Target.Offset(0, -1) = "A 1-" & WorksheetFunction.Max(Range("A2:A100")) + 1
так что ли?
а не поспошил


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Воскресенье, 27.03.2016, 11:26
 
Ответить
Сообщение
Код
Target.Offset(0, -1) = "A 1-" & WorksheetFunction.Max(Range("A2:A100")) + 1
так что ли?
а не поспошил

Автор - Nic70y
Дата добавления - 27.03.2016 в 11:23
gredd Дата: Воскресенье, 27.03.2016, 12:15 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Nic70y, спасибо, так работает.
А если я этот же макрос добавляю к другим уже существующим, выдает такую ошибку "ambiguous name detected: worksheet_change". Вы не знаете как это исправить можно? И почему вообще такая ошибка получается?
 
Ответить
СообщениеNic70y, спасибо, так работает.
А если я этот же макрос добавляю к другим уже существующим, выдает такую ошибку "ambiguous name detected: worksheet_change". Вы не знаете как это исправить можно? И почему вообще такая ошибка получается?

Автор - gredd
Дата добавления - 27.03.2016 в 12:15
Nic70y Дата: Воскресенье, 27.03.2016, 12:29 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3493
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013
так работает
не может быть.
у меня только так получилось :(
[vba]
Код
Target.Offset(0, -1).FormulaR1C1 = "=""А 1-""&MID(R[-1]C,SEARCH(""-"",R[-1]C)+1,15)+1"
Target.Offset(0, -1) = Target.Offset(0, -1).Value
[/vba]
почему вообще такая ошибка получается
думаю это другая тема


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Воскресенье, 27.03.2016, 13:36
 
Ответить
Сообщение
так работает
не может быть.
у меня только так получилось :(
[vba]
Код
Target.Offset(0, -1).FormulaR1C1 = "=""А 1-""&MID(R[-1]C,SEARCH(""-"",R[-1]C)+1,15)+1"
Target.Offset(0, -1) = Target.Offset(0, -1).Value
[/vba]
почему вообще такая ошибка получается
думаю это другая тема

Автор - Nic70y
Дата добавления - 27.03.2016 в 12:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Проставление номера договора при заполнении ячейки (Макросы/Sub)
Страница 1 из 11
Поиск:

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