Всем здравствуйте! Подскажите пожалуйста новичку, как сделать формулой так чтобы в моем файле номера путевок считались, но не повторялись в листах 296, 147, 255. Так чтобы, например, в одну и тужу дату на листах 296, 147, 255 было 31,32,33. Да и еще, можно как-то убрать строки если в ячейке значение 0 в листе бензин. Спасибо.
Всем здравствуйте! Подскажите пожалуйста новичку, как сделать формулой так чтобы в моем файле номера путевок считались, но не повторялись в листах 296, 147, 255. Так чтобы, например, в одну и тужу дату на листах 296, 147, 255 было 31,32,33. Да и еще, можно как-то убрать строки если в ячейке значение 0 в листе бензин. Спасибо.Alex1976
Спасибо огромное то что надо. Вот бы еще строки как-то убрать.
Рано обрадовался, может быть такая ситуация что к концу периода одна из машин не будет выезжать, тогда выпадут номер путевок. Может быть еще есть какие ни будь варианты.
Спасибо огромное то что надо. Вот бы еще строки как-то убрать.
Рано обрадовался, может быть такая ситуация что к концу периода одна из машин не будет выезжать, тогда выпадут номер путевок. Может быть еще есть какие ни будь варианты.Alex1976
Думаю только макросом. Собираем на одном из листов макс. значения номеров из всех з-х листов и ищем макс. из них троих. При вводе времени выезда, автоматом ставится № путевки = макс.+1. И все! В любом случае можно вставить № от руки. Лист "Бензин" удалил, Размер файла был >100 кб.
Думаю только макросом. Собираем на одном из листов макс. значения номеров из всех з-х листов и ищем макс. из них троих. При вводе времени выезда, автоматом ставится № путевки = макс.+1. И все! В любом случае можно вставить № от руки. Лист "Бензин" удалил, Размер файла был >100 кб.Wasilich
Извиняюсь, да действительно работает. Я глянул что нет формул и не придал значению. Вот только не пойму, как это работает и как мне это сделать в основном файле, в котором будет более 10 машин. Спасибо.
Извиняюсь, да действительно работает. Я глянул что нет формул и не придал значению. Вот только не пойму, как это работает и как мне это сделать в основном файле, в котором будет более 10 машин. Спасибо.Alex1976
Про файл я конечно же понял , просто сейчас у меня его нет он на работе. Завтра выложу. На счет имен не совсем понял. что значит начинать одинаково.
Про файл я конечно же понял , просто сейчас у меня его нет он на работе. Завтра выложу. На счет имен не совсем понял. что значит начинать одинаково.Alex1976
Макросом, который реагирует на выход из активной ячейки и исполняется в диапазоне ячеек F4 : F100. Надеюсь доступно пояснил. Вывод максимального значения в А1 каждого листа - прекрасное решение. Совет: Уберите нижнюю формулу со столбца А под ячейку ИТОГО а формулу в А1 внесите с запасом диапазона, например так. (Ну и для остальных машин.)
Код
=МАКС('296 '!A4:A50;'147'!A4:A50;'255'!A4:A50)+1
Чтоб не случилась ситуация выхода за пределы диапазона формулы. Ну а макрос похоже не очень уже и нужен. А если нужен то: Правая Кнопка Мыши на имени листа откроет окно, в нем выберите "Исходный текст" и в окно модуля скопируйте этот код. И так на все машины. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Range("F4:F100"), Target) Is Nothing Then If Target > O Then Cells(Target.Row, 1) = Range("A1") End If End If Application.EnableEvents = True End Sub
Макросом, который реагирует на выход из активной ячейки и исполняется в диапазоне ячеек F4 : F100. Надеюсь доступно пояснил. Вывод максимального значения в А1 каждого листа - прекрасное решение. Совет: Уберите нижнюю формулу со столбца А под ячейку ИТОГО а формулу в А1 внесите с запасом диапазона, например так. (Ну и для остальных машин.)
Код
=МАКС('296 '!A4:A50;'147'!A4:A50;'255'!A4:A50)+1
Чтоб не случилась ситуация выхода за пределы диапазона формулы. Ну а макрос похоже не очень уже и нужен. А если нужен то: Правая Кнопка Мыши на имени листа откроет окно, в нем выберите "Исходный текст" и в окно модуля скопируйте этот код. И так на все машины. [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Not Application.Intersect(Range("F4:F100"), Target) Is Nothing Then If Target > O Then Cells(Target.Row, 1) = Range("A1") End If End If Application.EnableEvents = True End Sub
Wasilic, Огромное спасибо за помощь, макрос проставил во все листы основного файла все работает. Правда та и не понял, как именно сам макрос написан (буду учится). У меня еще вопросик, а можно как-то сделать чтобы в листе бензин скрывалась строки с значением о в столбце F? На форуме было подобное, но я честно не понял. Спасибо.
Wasilic, Огромное спасибо за помощь, макрос проставил во все листы основного файла все работает. Правда та и не понял, как именно сам макрос написан (буду учится). У меня еще вопросик, а можно как-то сделать чтобы в листе бензин скрывалась строки с значением о в столбце F? На форуме было подобное, но я честно не понял. Спасибо.Alex1976
Если я задам этот вопрос в новой теме, то «Правила и модераторы» скажут, что такой вопрос уже был. Получается цикличность. :D удалено: нарушение п5о Правил. [moder]Скрытие строк никак не относится к нумерации. Создавайте новую тему[/moder]
Если я задам этот вопрос в новой теме, то «Правила и модераторы» скажут, что такой вопрос уже был. Получается цикличность. :D удалено: нарушение п5о Правил. [moder]Скрытие строк никак не относится к нумерации. Создавайте новую тему[/moder]Alex1976
Сообщение отредактировал Manyasha - Пятница, 19.02.2016, 22:33