Поиск и вставка номера документа

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

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

Поиск и вставка номера документа (с помощью макроса)

Муля2010

Дата: Суббота, 11.02.2012, 15:49 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

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

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

День добрый!
Ребята , пжт помогите разобраться. Пол дня долбаюсь и не получается макрос для поиска найбольшего номера документа в списке, который находится на листе СписокДокументов, и его вставки в ячейку F3 , что на листе Дркумент. Плюс увеличить полученый результат на единицу.

К сообщению приложен файл: 2206682.xls (29.0 Kb)

С ув. Муля!

Сообщение отредактировал Муля2010 - Суббота, 11.02.2012, 15:51

Ответить

Jhonson

Дата: Суббота, 11.02.2012, 16:49 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 514

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

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

Попробуйте так:

[vba]

Code

Sub НомерДокумента()
Sheets("Документ").Range("F3") = Application.Max(Sheets("СписокДокументов").Range("A:A")) + 1
End Sub

[/vba]

"Ничто не приносит людям столько неприятностей, как разум."

Сообщение отредактировал Jhonson - Суббота, 11.02.2012, 16:50

Ответить

Муля2010

Дата: Суббота, 11.02.2012, 17:04 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

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

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

Jhonson,
Ели пали, как вске просто. А я нагородил всякой ерунды и з боку бантик.
Спасибо вам большое!

С ув. Муля!

Ответить

nerv

Дата: Суббота, 11.02.2012, 17:33 | Сообщение № 4

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

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

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

[vba]

Code

[f3] = [max(a:a)+1]

[/vba]

Чебурашка стал символом олимпийских игр. А чего достиг ты?
Тишина - самый громкий звук

YM 41001156540584 / WM WMR R21924176233

https://github.com/nervgh/vba

Ответить

Муля2010

Дата: Воскресенье, 12.02.2012, 13:49 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

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

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

Quote (nerv)

[f3] = [max(a:a)+1]

День добрый!
Уважаемый!
Че то не догоняю как ваш код работает с разными листами. Если не трудно, пжт, приведите весь макрос. Заранее СПАСИБО!

С ув. Муля!

Ответить

nerv

Дата: Вторник, 14.02.2012, 11:07 | Сообщение № 6

Группа: Редакторы

Ранг: Обитатель

Сообщений: 431

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

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

[vba]

Code

Sub io()
     Sheets(1).[f3] = Sheets(1).[max(a:a)+1]
     ' или
     [Лист1!f3] = [max(Лист1!a:a)+1]
End Sub

[/vba]

Ответить

Муля2010

Дата: Воскресенье, 19.02.2012, 19:34 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 290

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

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

nerv,
Доброго вечера!
ПРОШУ ПРОЩЕНИЯ ЗА ДОЛГОЕ МОЛЧАНИЕ!
На целую недельку ездил в село к маме, а там ни ПК ни интернета нету.
СПАСИБО за код, очень даже неплохой.

С ув. Муля!

Сообщение отредактировал Муля2010 - Воскресенье, 19.02.2012, 19:38

Ответить

Поиск и вставка номера документа (с помощью макроса)

Страница 1 из 1
1