Думаю, Вам не отвечают т.к. в Вашем коде очень много ошибок, что не строка то либо ошибка либо некорректность, и к тому же код оформлен неудобно для чтения.
Вот мои комментарии
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Private Sub Сброс()
' Сброс "Выбор" и обнуление всех данных
Application.ScreenUpdating = False
ActiveWorkbook.Worksheets("Выбор").Activate 'непонятно зачем это строка, ведь если нажали на кнопку "Сброс" которая на листе "Выбор" значит этот лист уже активный (лишняя строка)
Range("c15:c48").Name = "All" ' присваивание имени диапазону ячеек не обязательно делать в коде, можно один раз присвоить ручками на листе, есть смысл присваивать, если диапазон меняется (то же лишняя строка)
Range("All") = "" ' для очистки есть ClearContents
ShowAllData 'работает только если на листе установлен фильтр, следовательно, нужно делать проверку
ActiveWorkbook.Worksheets("RUR").Activate 'для того что бы работать с неактивным листом ненужно делать его активным
Dim a As Byte ' объявления лучше делать в начале кода
For a = 1 To 8
Selection.AutoFilter field:=a ' работать с объектом Selection не нужно
Next
Dim h As Integer
For hRUR = 6 To 56
ActiveWorkbook.Worksheets("RUR").Rows(hRUR).Hidden = True ' неправильно выбранный подход, достаточно ShowAllData
Next
ActiveWorkbook.Worksheets("Выбор").Activate ' если не было б ActiveWorkbook.Worksheets("RUR").Activate, не понадобилась бы эта строка
Application.ScreenUpdating = True
End Sub
Осмелюсь предложить Вам свой код для макроса Сброс
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub myShowAllData()
Dim xlShR As Worksheet
If Worksheets("Выбор").AutoFilterMode Then ' проверка установлен ли фильтр
For f = 1 To Worksheets("Выбор").AutoFilter.Filters.Count 'пробег по всем столбцам фильтра
If Worksheets("Выбор").AutoFilter.Filters(f).On Then Worksheets("Выбор").ShowAllData: Exit For
Next
End If
Set xlShR = Worksheets("RUR") 'можно установить ссылку на лист и затем пользоваться ссылкой (очень удобно)
If xlShR.AutoFilterMode Then ' проверка установлен ли фильтр
For f = 1 To xlShR.AutoFilter.Filters.Count
If xlShR.AutoFilter.Filters(f).On Then xlShR.ShowAllData: Exit For
Next
End If
Worksheets("Выбор").Range("c15:c48").ClearContents
End Sub
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub Проба_4()
' Отмечает выбранные строки и активиз ячейку
Range("C14").Select
ActiveCell.FormulaR1C1 = "o" 'вместо двух строк можно написать одну Range("C14").FormulaR1C1 = "o"
Range("C14:C48").Select
Selection.FillDown
Range("C14") = ""
Range("C14").Select
End Sub
1.
2.
3.
4.
5.
Private Sub mПроба_4()
' Отмечает выбранные строки и активиз ячейку
Range("C15:C48").SpecialCells(xlCellTypeVisible) = "o"
Range("C14").Select
End Sub
Я понимаю, что код записывался макрорекодером, но все же попробуйте хотя бы после записи убрать лишнее.
Относительно последнего кода, здесь действительно подход не верный, вам действительно нужно копировать отобранные строки на отдельный лист, и давать возможность дальше работать с ними.
