Excel 2003 - Como ocultar linhas indesejadas??

[jcgmcs]

???

Uéee eaeee!!!

[jcgmcs]

Uéee eaeee!!!

Poxa!!! ajudaee pessoal!!!

[jcgmcs]

Poxa!!! ajudaee pessoal!!!

Éeee.... ainda to akiii, esperando...!!

[Márcio Rodrigues]

Olá jcgmc

Infelizmente não consegui baixar a macro anterior, o link informa que esta deletado.

Fiz uma nova, veja se resolve.

http://www.sendspace.com/file/fsjwr9

Márcio

[jcgmcs]

Puxa ate que enfim!!

Marcio, muito grato a sua atenção

tão pelo que vi, sua planilha ta igual a anterior. Eu preciso que seja como esta com os botões ok!!

Segue novo link aee, veja se pode me ajudar com esta. Ela funciona perfeitamente só ate a linha 99, preciso que seja até a 1.000 beleza!!

Abraço!! T+++

http://www.sendspace.com/file/jg74je

[zinhovba]

Bom dia!!

Eu não sei se vai dar certo faça os testes.

Sub Ocultar_ZinhoVBA_1134128()
    Dim sWord As String
    Dim rFind As Range
    Dim rRows As Range
    Dim rData As Range
    Dim sFirstMatch As String

    sWord = InputBox("Digite a palavra")
    If sWord = "" Then Exit Sub

    Set rData = Sheets("Plan1").Range("K4:K" & Sheets("Plan1").Range("K" & Rows.Count).End(xlUp).Row)
    Set rFind = rData.Find(sWord)
    If rFind Is Nothing Then
        MsgBox "Ocorrencias não encontradas.", vbInformation
    Else
        sFirstMatch = rFind.Address
        Do
            If rRows Is Nothing Then
                Set rRows = rFind
            Else
                Set rRows = Union(rRows, rFind)
            End If
            Set rFind = rData.FindNext(rFind)
        Loop While rFind.Address <> sFirstMatch

        rRows.EntireRow.Hidden = True

    End If
End Sub

[jcgmcs]

Bom dia!!

Eu não sei se vai dar certo faça os testes.

Sub Ocultar_ZinhoVBA_1134128()
    Dim sWord As String
    Dim rFind As Range
    Dim rRows As Range
    Dim rData As Range
    Dim sFirstMatch As String

    sWord = InputBox("Digite a palavra")
    If sWord = "" Then Exit Sub

    Set rData = Sheets("Plan1").Range("K4:K" & Sheets("Plan1").Range("K" & Rows.Count).End(xlUp).Row)
    Set rFind = rData.Find(sWord)
    If rFind Is Nothing Then
        MsgBox "Ocorrencias não encontradas.", vbInformation
    Else
        sFirstMatch = rFind.Address
        Do
            If rRows Is Nothing Then
                Set rRows = rFind
            Else
                Set rRows = Union(rRows, rFind)
            End If
            Set rFind = rData.FindNext(rFind)
        Loop While rFind.Address <> sFirstMatch

        rRows.EntireRow.Hidden = True

    End If
End Sub

Ok! Resolvido, valeu Zinho!!

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.