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

Вход

Регистрация

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

 

= Мир MS Excel/Фиксация времени внесения данных в ячейку - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фиксация времени внесения данных в ячейку (Макросы/Sub)
Фиксация времени внесения данных в ячейку
olya2084 Дата: Воскресенье, 08.10.2023, 13:21 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

Добрый день! Прошу подсказать: мне нужно добавить в столбец BZ аналогичное отображение времени, как в столбце BY (макрос прописан и он работает) при следующем условии: столбец BM заполнен и присвоен статус "все заполнено" в столбце BQ. Попробовала скопировать предыдущий макрос, изменив наименование столбцов- ничего не вышло, выдает ошибку.
К сообщению приложен файл: 8470610.xlsm (32.5 Kb)
 
Ответить
СообщениеДобрый день! Прошу подсказать: мне нужно добавить в столбец BZ аналогичное отображение времени, как в столбце BY (макрос прописан и он работает) при следующем условии: столбец BM заполнен и присвоен статус "все заполнено" в столбце BQ. Попробовала скопировать предыдущий макрос, изменив наименование столбцов- ничего не вышло, выдает ошибку.

Автор - olya2084
Дата добавления - 08.10.2023 в 13:21
MikeVol Дата: Воскресенье, 08.10.2023, 14:21 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 315
Репутация: 61 ±
Замечаний: 0% ±

Excel LTSC 2021 EN
olya2084, Доброго времени суток. А кто вам мешает дополнить по аналогии? Вам же Nic70y в вашей прошлой теме написал код с коментариями, где вы сами могли далее дополнить. [vba]
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a           As Long
    Dim b As String, c As String, d As String, e As String
    Dim u           As Long: u = UsedRange.Rows.Count

    If Not Intersect(Target, Range("AR6:BC" & u)) Is Nothing Then
        a = Target.Row                ' строка, в которую вносим данные
        b = Range("BF" & a).Value     ' статус
        c = Range("BY" & a).Value     ' дата / время

        d = Range("BQ" & a).Value     ' статус
        e = Range("BM" & a).Value

        If b = "все заполнено" And c = "" Then Range("BY" & a) = Now
        If d = "все заполнено" And e <> "" Then Range("BZ" & a) = Now
    End If

End Sub
[/vba]
Удачи.


Ученик.
 
Ответить
Сообщениеolya2084, Доброго времени суток. А кто вам мешает дополнить по аналогии? Вам же Nic70y в вашей прошлой теме написал код с коментариями, где вы сами могли далее дополнить. [vba]
Код
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a           As Long
    Dim b As String, c As String, d As String, e As String
    Dim u           As Long: u = UsedRange.Rows.Count

    If Not Intersect(Target, Range("AR6:BC" & u)) Is Nothing Then
        a = Target.Row                ' строка, в которую вносим данные
        b = Range("BF" & a).Value     ' статус
        c = Range("BY" & a).Value     ' дата / время

        d = Range("BQ" & a).Value     ' статус
        e = Range("BM" & a).Value

        If b = "все заполнено" And c = "" Then Range("BY" & a) = Now
        If d = "все заполнено" And e <> "" Then Range("BZ" & a) = Now
    End If

End Sub
[/vba]
Удачи.

Автор - MikeVol
Дата добавления - 08.10.2023 в 14:21
olya2084 Дата: Понедельник, 09.10.2023, 11:01 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 87
Репутация: -2 ±
Замечаний: 20% ±

MikeVol, спасибо за помощь!
 
Ответить
СообщениеMikeVol, спасибо за помощь!

Автор - olya2084
Дата добавления - 09.10.2023 в 11:01
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Фиксация времени внесения данных в ячейку (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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