2007 - Excel | Возможно ли такое ? копирование-ссылка ?

[PLATON]

Вообщем ребят подскажите, вообще запутался



Вообщем есть книга в ней 3 листа



1 - лист (Данные работников ФИО, должность, стаж, телефон)

2 - лист (ФИО и должность)

3 - лист (Фио)



Все листы у меня сделаны как бы с 1 листа берутся данные копируются на другие листы ='Список '!B21

Вообщем нужно вот, что.



1. Допустим у меня на 1 листе таблица из 20 фамилий и данных о них

2. Бывает такое что люди уходят и мне надо удалить 1 человека из списка



Как сделать что бы при удалении 1 строки с 1 листа, на других двух они тоже удалялись а не оставалась ячейка с "ССЫЛКА" ???



Заранее благодарю!

[npavel]

Если не принципиально наличие функции, то сводная таблица вам в помощь.

[PLATON]

а еще есть варианты, просто функции, есть в некоторых листах

[npavel]

Поподробнее, можно - что за функции у Вас используются с текстовыми значениями? Пример файла?

[Pliomera]

PLATON, легко можно сделать. VBA.



Пусть на листе, на котором вы удаляете строки (назовем его условно главным), список фамилий расположен в 1 столбце. Откройте редактор VBA и в модуль этого листа впишите следующий код:





Код:

Код: Выделить всё

Dim SurName As String
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
SurName = Target.Cells(1).Value
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Worksheet
For Each x In Sheets
If Not x.Cells.Find(SurName) Is Nothing Then x.Rows(x.Cells.Find(SurName).Row).Delete
Next x
End Sub

Если фамилии не в 1-м столбце, просто в строке SurName = Target.Cells(1).Value замените единичку на номер столбца с фамилиями.



При удалении строки с фамилией на главном листе с помощью правого клика по заголовку строки и выбора команды удалить (delete) данный код автоматически найдет соответствующую фамилию на всех остальных листах книги (сколько бы их ни было) и удалит с них строки, ее содержащие.



Надеюсь о том, как открыть редактор VBA и записать код в модуль листа - вам известно. Если нет - спрашивайте. Удачи.