Filtrar e copiar para outra folha

 

 

 

O que se pretende, é copiar para outra folha (ex. folha2) os registos que contenham apenas a sigla pretendida:

 

 

 

O exemplo de código possível:

 

Sub FiltrarECopiar()

 

Dim Msg As String

 

Sheets("Folha2").Select

Columns("A:C").Select

    Selection.ClearContents

    

Sheets("Folha1").Select

 

Msg = InputBox(" Escreva as siglas para filtrar")

Msg = UCase(Msg)

    Range("C2").AutoFilter Field:=3, Criteria1:=Msg

    Range("A2").Resize(Range("A" & Rows.Count).End(xlUp).Row – 1).EntireRow.Copy _

    Destination:=Sheets("Folha2").Range("A1")

 

ActiveSheet.ShowAllData

 

End Sub