Я VBA только изучаю, поэтому возможно последуют "чайниковые" вопросы.
Есть некая база, пользователь вводит название страны, vba сортирует всю базу по этому названию, показывая только продукты из этой страны, далее надо скопировать все эти продукты на отдельный лист.
Выдает ошибку "Метод Paste из класса Worksheet завершен неверно".
Смотрел решения здесь, и на других площадках.
Пробовал решать через:
1) Do Events
2) цикл с paste, пока не будет ошибки (стал бесконечным)
3) Wait time, так как читал, что может быть связано с тем, что не успевает копироваться в буфер обмена
Также подумал, что проблема связана с копированием кучи ячеек за раз. Попробовал скопировать только одну ячейку в другой лист, та же ошибка, так что связано не с этим. Файл прикрепляю, смотреть макрос "test". Эксель стоит последний.
Буду очень благодарен за помощь!
Есть некая база, пользователь вводит название страны, vba сортирует всю базу по этому названию, показывая только продукты из этой страны, далее надо скопировать все эти продукты на отдельный лист.
Код |
---|
Sub test() Application.CutCopyMode = False Dim Country Country = InputBox("Введите страну") Sheets("Все вина").Select Cells.Find(What:="Франция", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveSheet.Range("$A$1:$P$676").AutoFilter Field:=10, Criteria1:=Country Range("A1:ZZ10000").Select Selection.Copy ActiveSheet.ShowAllData Sheets("temp").Select Range("b2").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub |
Выдает ошибку "Метод Paste из класса Worksheet завершен неверно".
Смотрел решения здесь, и на других площадках.
Пробовал решать через:
1) Do Events
2) цикл с paste, пока не будет ошибки (стал бесконечным)
3) Wait time, так как читал, что может быть связано с тем, что не успевает копироваться в буфер обмена
Также подумал, что проблема связана с копированием кучи ячеек за раз. Попробовал скопировать только одну ячейку в другой лист, та же ошибка, так что связано не с этим. Файл прикрепляю, смотреть макрос "test". Эксель стоит последний.
Буду очень благодарен за помощь!