Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
Página 1 de 1
Filtrar varias Guias baseado 1 critério copiar os dados para 1 guia
Bom dia!!
Att
- Código:
Sub AleVBA_FiltravariasGuiasParaGuia()
'Filtra baseado em um criterio na coluna A, em várias guias e copia para uma única guia ("Guia_Destino")
Dim sh As Worksheet, ws As Worksheet
Dim Rws As Long, Rng As Range, s As String
Set ws = Worksheets("Guia_Destino")
Application.ScreenUpdating = 0
s = InputBox("Digite seu Critério")
For Each sh In Sheets
If sh.Name <> "Guia_Destino" Then
With sh
Rws = .Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range(.Cells(2, 1), .Cells(Rws, 4)) 'Copia de Col A até Col D
.Range("A1").AutoFilter Field:=1, Criteria1:=s
Rng.Copy ws.Cells(Rows.Count, "A").End(xlUp).Offset(1, 0)
.Range("A1").AutoFilter
End With
End If
Next sh
End Sub
Att
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Copiar dados baseado em cabeçalho de uma guia para outra guia
» Copiar Com Critério para outra Guia
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
» Copiar Com Critério para outra Guia
» Copiar Dados de VARIAS Planilhas para uma só Planilha
» Copiar Mesmo Intervalo Uma Guia Para Duas Guias Dif
» Copiar duas células fixa de todas as guias para uma única guia, mas colando em duas colunas diferentes.
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos