ПЕРЕСТАЕТ РАБОТАТЬ СОРТИРОВЩИК

[Cone]

День добрый! Макрос который раньше сортировал все на ура перестает работать после редактирования таблицы, причем редактирование не касается переменных макроса, но он перестает работать! В приложении фаил в котором нужно производить сортировку согласно заданным значением которые вводятся при запуске макроса, но вот ни черта он не работает, не могу понять почему! Раньше работал теперь отказывается!

[IgorGO]

не знаю что вы вкладываете в понятие сортировка, но в коде на нее даже намека нет. Там скрываются определенные колонки или отображаются все колонки на листе HEAD.
Вместо того, что у Вас написано вставьте этот

Sub strin_ger()
  Dim I As Integer
  Dim RS As Integer
  Dim DH As String
  RS = InputBox("номер ряда")
  DH = InputBox("искомое значение")
  On Error Resume Next
  With Sheets("HEAD")
    For I = 7 To .[iv14].End(xlToLeft).Column
      .Columns(I).Hidden = InStr(1, .Cells(RS, I), DH, vbTextCompare) = 1
    Next
  End With
End Sub

Sub Unfol_all()
  Columns("G:BW").Hidden = False
End Sub

[Cone]

В этом и был смысл сортировщика, скрывать колонки не соответствующие введеным данным и отображать только введеные!

[Cone]

Спасибо за помощь!

[Cone]

Еще такой вопрос как сделать то же самое но теперь со скрытием не колонок я РЯДОВ, проверку надо начинать с 10 ряда! Заранее благодарю!

[IgorGO]

можно так переделать.
достаточно в функцию OkData добавить одну строку, и можно отбирать допустим тех, кто "не содержит"... или добавлять любые другие условия.