Автозаполнение датой при записи в соседнюю ячейку - Страница 2

Вход

Регистрация

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

= Мир MS Excel/Автозаполнение датой при записи в соседнюю ячейку - Страница 2 - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Автозаполнение датой при записи в соседнюю ячейку (Формулы/Formulas)

Автозаполнение датой при записи в соседнюю ячейку

Александр7034

Дата: Среда, 15.02.2023, 11:43 | Сообщение № 21

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

Ранг: Участник

Сообщений: 58

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

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

Спасибо, работает как и хотел, но с не большим нюансом, если книга с этим кодом и книга на которую ведут связи будут одновременно открыты, то код ругается на строку:
[vba]

Код

ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources

[/vba]
Можно включить игнорирование данной ошибки с выводом сообщения "закройте документ хх"?

Сообщение отредактировал Александр7034 - Среда, 15.02.2023, 12:12

Ответить

_Boroda_

Дата: Среда, 15.02.2023, 12:14 | Сообщение № 22

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

[vba]

Код

Private Sub CommandButton1_Click()
    ar0_ = Range("T6:T106").Value
    On Error Resume Next
    ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
    If Err Then
        MsgBox "Закройте файл ХХХ и перезапустите макрос"
        Exit Sub
    End If
    On Error GoTo 0
    ar1_ = Range("T6:T106").Value
    ar_ = Range("V6:V106").Value
    For i = 1 To UBound(ar0_)
        If ar1_(i, 1) <> ar0_(i, 1) Then
            ar_(i, 1) = Date
        End If
    Next i
    Range("V6:V106").Value = ar_
End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

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