Код VBA для заполнения таблицы МИ с обновлениями из двух разных листов в той же книге Excel.

У меня есть три листа Excel: Лист 1, Лист 2, Лист 3 все с одинаковыми стандартными данными (Столбец А-Е - это стандартные данные в все листы) Столбцы F для JF - это календарные дни/месяцы. Разница заключается в том, что любое обновление для первого листа представляет собой число в ячейке в календаре, соответствующее именам в столбце A, а обновление до листа 2 - это только выделение для соответствующей ячейки (обновленные ячейки никогда не совпадают с соответствующей ячейкой в Листе 1 или наоборот, что, я думаю, имеет смысл).Код VBA для заполнения таблицы МИ с обновлениями из двух разных листов в той же книге Excel.

Лист 3 необходимо обновить для каждого обновления (ов) на листе 1 и 2.

Ищу использовать VBA, чтобы сделать это обновление для листа 3. Любая помощь будет оценена.

источник

2015-03-04 user3782929

Требуется уточнение, среди прочего: Что содержит лист 3? Объединение листов 1 и листа 2? Cat gifs? Что вы хотите обновить на листе 3? – user3819867

Лист 3 имеет те же данные, что и Листы 1 и 2 (без объединения, все три листа имеют одинаковые точные данные, но обновления будут в цифрах для листа 1, а на листе 2 будет применяться простая подсветка - но ячейки обновляются на листе одно не может быть таким же, как на листе 2), и каждое обновление к листу 1 и 2 должно отражать и на листе 3. – user3782929

Добавьте это в модуле, связанном с Лист 1. Код скопирует измененный диапазон, который соответствует Лист 3.

Private Sub Worksheet_Change(ByVal Target As Range) 
fr = Target.Row 
lr = fr - 1 + Target.Rows.Count 
fc = Target.Column 
lc = fc - 1 + Target.Columns.Count 

For i = fr To lr 
    For j = fc To lc 
     Sheets("Sheet 3").Cells(i, j).Value2 = Sheets("Sheet 1").Cells(i, j).Value2 
    Next 
Next 

End Sub

источник

2015-03-04 10:54:35 user3819867

Чтобы подчеркнуть содержимое листа 2, используйте 'Таблицы (« Лист 2 »). Ячейки (i, j) .Interior.ColorIndex = 37' сразу после' Таблицы («Лист 3»). Ячейки (i, j) .Value2 = Таблицы («Лист 1»). Ячейки (i, j) .Value2'. – user3819867

Спасибо, но никаких изменений не произошло в листе 3, когда я обновляю листы 1 или 2 – user3782929

Код VBA для заполнения таблицы МИ с обновлениями из двух разных листов в той же книге Excel.

ответ

Смежные вопросы