Поиск

Добрый день! 1. Заходим в макросы и добавляем этот код в любой Module: Sub автомат() Columns("L:L").Select Selection.Autofilter ActiveSheet.Range("$L$1:$L$2041").Autofilter Field:=1, Criteria1:="=" Rows("2:2041").Select Range("A2041").Activate Selection.Delete Shift:=xlUp ActiveSheet.Range("$L$1:$L$2041").Autofilter Field:=1 Call Повтор End Sub Sub m1() Range("I2").Select On Error GoTo eh Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True Rows("2:2").Select Selection.Delete Shift:=xlUp eh: Exit Sub End Sub Sub Повтор() Dim i& For i = 1 To 2000 Call m1 Next End Sub 2. В Module1 ищем макрос "Sub getGame(id As String)", мотаем в самый его конец и добавляем 2 строчки кода перед End Sub: Call ТоАрхив Sheets("Список").Select 3. В Module5 ищем макрос Sub ТоАрхив() и комментим или удаляем последнюю строку MsgBox "ДОБАВЛЕНО!.": 4. Добавляем кнопку и назначаем ей макрос - автомат Конец) p.s. Если вы сами не изменяли названия макросов, то всё должно сработать. Сделайте копию своей таблицы и потренируйтесь на ней.