none
Ajuda - Criar planilha a partir de um filtro. RRS feed

  • Pergunta

  • Boa noite, estou buscando ajuda para facilitar meu fluxo de trabalho (sou fraco em excel)...

    Eu tenho uma planilha com muitos dados e gostaria que quando filtrasse algo o excel geraria uma outra planilha com os dados que eu filtrei com base em um modelo já pré estabelecido.

    Se for o caso e eu posso mandar as planilhas e mais detalhes por email.

    Grato

    segunda-feira, 14 de abril de 2014 23:23

Todas as Respostas

  • Sub filtrar()
    
    Dim dado As String
    
    Dim filtro As String
    
    Dim i As Integer
    
    dado = Sheets(1).Range("A1")
    
    filtro = Sheets(1).Range("H1")
    
    lin = 1
    
    While Sheets(2).Range("A" & lin) <> ""
    
    lin = lin + 1
    
    Wend
    
    'Se o valor da célula A1 for igual ao valor da célula H1
    'Copia os dados de A1:A6 na planilha 2
    'Na próxima linha em branco
    
        If dado = filtro Then
        
            For i = 1 To 6
            
                Sheets(2).Cells(lin, i) = Sheets(1).Cells(1, i)
            
            Next i
        
        End If
    
    
    End Sub
    

    quarta-feira, 30 de julho de 2014 16:30
  • O seu modelo está na mesma planilha, está em outra pasta de trabalho ou num arquivo de modelo do Excel como xlt e xltx/m?

    Felipe Costa Gualberto - http://www.ambienteoffice.com.br

    segunda-feira, 4 de agosto de 2014 21:39
    Moderador