Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Pliomera

Технолог


Сообщения: 819
Благодарности: 117

Профиль | Отправить PM | Цитировать


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 и записать код в модуль листа - вам известно. Если нет - спрашивайте. Удачи.
Это сообщение посчитали полезным следующие участники:

Отправлено: 01:41, 20-02-2010 | #5