Olá bom dia gostaria de saber como posso estar fazendo o filtro em duas tabelas diferentes? Esse código eu uso para fazer em uma gostaria de estar fazendo em duas, a minha outra tabela chama "Emprestado" ou "Plan3" e as buscas são as mesmas desta abaixo.
Sub FiltrarLoc()
Sheets("Filtro").Range("A2:X1000").ClearContents
ultimalinha = Plan2.Cells(Rows.Count, "A").End(xlUp).Row
ultimaColuna = Plan2.Cells(1, Columns.Count).End(xlToLeft).Column
linha = 2
For x = 2 To ultimalinha
If Plan2.Cells(x, 4) = Frm_Loc.TextEmpresa And Plan2.Cells(x, 7) = Frm_Loc.HoraTravada Then
For i = 1 To ultimaColuna
Plan14.Cells(linha, i) = Plan2.Cells(x, i)
Next
linha = linha + 1
End If
Next
End Sub
Postado : 27/05/2014 9:35 am