Ajuda - Criar planilha a partir de um filtro.

Question

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

Answer 1

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

Answer 2

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