СКРЫТИЕ СТРОК ВМЕСТО КОЛОНОК

[Cone]

Добрый день, в данный момент не обходим следующий макрос,

Private Sub CommandButton3_Click()
Dim I As Integer
Dim DH As Variant
Dim M As Integer
M = InputBox("введите номер строки")
If M = 0 Then Exit Sub
DH = InputBox("введите искомое значение")
If DH = "" Then Exit Sub
With Sheets("MAIN")
For I = 7 To .Range("iv29").End(xlToLeft).Column Step 1
If InStr(1, .Cells(M, I), DH, vbTextCompare) = 1 Then
.Columns(I).Hidden = False
Else
.Columns(I).Hidden = True
End If
Next
End With
End Sub

Это макрос написал Dober за что ему огромное спасибо, макрос фильтрует данные - скрывает колонки не соответствующие вводимым данным ! Мне нужен такой же макрос но чтобы он теперь не колонки скрывал а с строки
т.е. чтобы при выполнении макроса нужно было указывать номер колонки а не строки как ранее, и что бы но начинал проверку с 9 строки и далее вниз. Что нужно изменить в это макросе??

[The_Prist]

Здравствуйте.

Private Sub CommandButton3_Click()
    Dim I As Long
    Dim DH As Variant
    Dim M As Integer
    M = InputBox("введите номер столбца")
    If M = 0 Then Exit Sub
    DH = InputBox("введите искомое значение")
    If DH = "" Then Exit Sub
    With Sheets("MAIN")
        For I = 9 To .Range("iv29").End(xlUp).Row
            If InStr(1, .Cells(I, M), DH, vbTextCompare) = 1 Then
                .Rows(I).Hidden = False
            Else
                .Rows(I).Hidden = True
            End If
        Next
    End With
End Sub

[Cone]

не хочет работать!! Фаил в приложении

[The_Prist]

А я не сразу понял, что "iv29" это не именованный диапазон....
Замените строку цикла на такую:

For I = 9 To .Cells(Rows.Count, M).End(xlUp).Row

[Cone]

Спасибо тебе огромное!! Все робит!!

А как можно шаг изменить чтобы проверял через 1 строку или к примеру 2,!???!

[The_Prist]

Сообщение от Cone

А как можно шаг изменить чтобы проверял через 1 строку или к примеру 2,!???!

Справка рулит

For I = 9 To .Range("iv29").End(xlUp).Row Step 2

[Cone]

Сообщение от The_Prist

Справка рулит

For I = 9 To .Range("iv29").End(xlUp).Row Step 2

Да справка реально рулит если знаешь алгоритмы записи макросов, спасибо за помощь!

Если я еще не надоел с постоянными вопросами, то может подскажите как сделать следующее: В фале который я крепил в одной из колонок находиться номер программы, основная часть номера любой программы остается неизменной это 10BN000 ,к номеру каждой программы к концу прибавляется единица, т.е 10BN0001 следующая программа 10BN0002, потом 10BN0003 и так далее, - сложно ли создать макрос который будет формировать строки согласно возрастанию номера программы - потому что иногда приходиться заносить номер программы не поочередно , иногда получается так 10BN0004 потом идет 10BN0007 , 10BN0001, 10BN0005, 10BN00013, - те есть из за нарушенной последовательности трудно понять сколько всего программ и какой номер у последнее программы.

[SAS888]

А чем не устраивает обычная сортировка встроенная в Excel?

[Cone]

Сообщение от SAS888

А чем не устраивает обычная сортировка встроенная в Excel?

Не все в офисе знают что такое Excell я уже не говорю про макросы !

[SAS888]

Тогда в предложенном Вам макросе перед строкой End With добавьте строку

.Rows("8:" & .Cells(Rows.Count, 2).End(xlUp).Row).Sort Key1:=.[B9], Order1:=xlAscending, Header:=xlYes