SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
maloy15
Цитата:| выделяется желтым строка ActiveSheet.Rows(i).copy Sheets("Вывод") |
ошибка как раз в этой строке :-)) вы забыли указать, куда же выводить (куда, кстати,
ну, что на лист "Вывод" понятно, а в какую строчку?!
Надо указать что-то вроде:
Код:
Dim k As Integer, i As Integer
Sheets("Лист1").Select
k = 1
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, 45).Value > Sheets("Данные").Cells(1, 2) Then
ActiveSheet.Rows(i).Copy Sheets("Лист3").Rows(k)
k = k + 1
End If
Next i
|
Только мне АБСОЛЮТНО непонятно, зачем вы цикл крутите снизу вверх?!!
У Вас же строчки на лист "Вывод" будут попадать в ОБРАТНОМ порядке!
filemoto да не за что. тем более, что макрос не мой ;-)
А Вы обратите внимание, с какой книгой идёт работа!
ThisWorkbook - это та книга, в которой находится макрос при его запуске.
ActiveWorkbook - книга, активная в тот момент запуска макроса.
поменяйте.
Кроме того, удаляются ссылки с ПЕРВОГО листа книги.
Это надо подправить. (ну, хотя бы на активный лист -вместо ThisWorkbook.Worksheets(1)
написать ActiveSheet )
Кроме того, макросы не откатываются, поэтому будет совсем не лишним, перед тем, как всё напрочь поудалять, хотя бы спросить у пользователя, хотите ли удалить все гиперссылки на таком-то листе!
|
