Автоматическая подстановка порядкового номера к дате

Вход

Регистрация

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

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

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

Автоматическая подстановка порядкового номера к дате (Макросы/Sub)

Автоматическая подстановка порядкового номера к дате

Jeto

Дата: Вторник, 16.12.2014, 17:50 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2003

Братцы почитал форумы накидал пару макросов в свой файлик, но не могу завершить начатое убил уже тучу времени. Суть проблемы такова как сделать что бы при добавлении новой строки с колонки А4 вставал порядковый номер (1,2,3 и т.д.). и автоматически добавлялась бы наименование организации с "С4 и ниже" из А1, так же не могу скорректировать формулу что бы даты не лезли за "Итого". Поклон

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

Ответить

Wasilich

Дата: Вторник, 16.12.2014, 21:20 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 1232

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

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

2003

Должно работать
[vba]

Код

Sub Добавить()
    Const psw As String = ""
      Unprotect psw
      r = Range("C" & Rows.Count).End(xlUp).Row
      Rows(r).EntireRow.Insert Shift:=xlDown
      Cells(r, 1) = Val(Cells(r - 1, 1)) + 1
      Cells(r, 3) = Cells(1, 1)
      Protect psw
End Sub

[/vba]

Сообщение отредактировал Wasilic - Вторник, 16.12.2014, 21:23

Ответить

Jeto

Дата: Среда, 17.12.2014, 13:18 | Сообщение № 3

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2003

Спасибо помогло, вопрос решен

Ответить

Автоматическая подстановка порядкового номера к дате (Макросы/Sub)

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