Коллеги, привет! Помогите найти ошибку в коде, пожалуйста.
Суть: есть большая таблица, в которую вносятся данные. Каждый месяц нужно проверять, что изменилось. Так как строк и столбцов будет много, нужно, что бы каждая строчка выносилась на отдельный лист формулой:
На листе "изменения" должен быть столбец А, в котором отображается дата, и столбец В, в котором отображается формула. Если какая-то ячейка на листе "Судебные дела" меняется, то текст на листе "Изменения" должен стать красным.
Проблема: эксель выдает ошибку 1004 на строке [vba]
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wsChange As Worksheet Dim newrow As Long Dim rng As Range
If Sh.Name <> "Судебные дела" Then Exit Sub
Set wsChange = ThisWorkbook.Sheets("Изменения")
For Each rng In wsChange.Range("A:A") If rng.Value = Target.Address Then rng.Value = Format(Now, "dd.mm.yyyy") rng.Offset(0, 1).Formula = "='Судебные дела'!B4 & ' ' & 'Судебные дела'!C4 & ' ' & 'Судебные дела'!D4" rng.Offset(0, 2).Interior.Color = RGB(255, 0, 0) Exit Sub End If Next rng
Коллеги, привет! Помогите найти ошибку в коде, пожалуйста.
Суть: есть большая таблица, в которую вносятся данные. Каждый месяц нужно проверять, что изменилось. Так как строк и столбцов будет много, нужно, что бы каждая строчка выносилась на отдельный лист формулой:
На листе "изменения" должен быть столбец А, в котором отображается дата, и столбец В, в котором отображается формула. Если какая-то ячейка на листе "Судебные дела" меняется, то текст на листе "Изменения" должен стать красным.
Проблема: эксель выдает ошибку 1004 на строке [vba]
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim wsChange As Worksheet Dim newrow As Long Dim rng As Range
If Sh.Name <> "Судебные дела" Then Exit Sub
Set wsChange = ThisWorkbook.Sheets("Изменения")
For Each rng In wsChange.Range("A:A") If rng.Value = Target.Address Then rng.Value = Format(Now, "dd.mm.yyyy") rng.Offset(0, 1).Formula = "='Судебные дела'!B4 & ' ' & 'Судебные дела'!C4 & ' ' & 'Судебные дела'!D4" rng.Offset(0, 2).Interior.Color = RGB(255, 0, 0) Exit Sub End If Next rng