Filtro avançado ir buscar dados noutro livro

[Guest id13601]

Olá pessoal desde já muitos parabéns pela mudança na minha opinião acho que está espectacular.

Então é o seguinte pretendo com um filtro avançado ir buscar dados a outro livro que se encontra em c:\ com base num critério e que me vá colando esses dados sempre na ultima célula em branco. Até agora tenho isto:

Sub Filter()
Sheets("Sheet1").Range("A1:C7").AdvancedFilter _
	Action:=xlFilterCopy, _
	CriteriaRange:=Sheets("Sheet1").Range("E1:E2"), _
	CopyToRange:=Sheets("Sheet2").Range("A1"), _
	Unique:=False

End Sub

Desde já Obrigado

[acao]

boas

amigo terá que começar por aqui

http://www.macoratti.net/excel_vb.htm

boa sorte

cumps

acao

[Guest id13601]

boas

amigo terá que começar por aqui

http://www.macoratti.net/excel_vb.htm

boa sorte

cumps

acao

Olá obrigada por me estares a ajudar,eu fiz assim o seguinte código agora não sei se esta correcto mas funciona.

Sub teste()
Set Book = GetObject("C:\Nova pasta\bd1.xlsx")
Book.Sheets("Folha1").Range("A1:e20").AdvancedFilter _ Action:=xlFilterCopy, _ CriteriaRange:=Sheets("folha1").Range("h1:h2"), _ CopyToRange:=Sheets("folha1").Cells(Cells.Rows.Count, 1).End(xlUp).Offset(1, 0), Unique:=False
End Sub 

Aceito opiniões.

cumps

Edited June 5, 2012 at 06:21 PM by sagostinho

[acao]

boas

já vi que conseguiu, optimo.

depois dê topico resolvido.

cumps

acao

[Guest id13601]

Obrigado ao membro acao mas como esta questão já esta resolvida vou dar este tópico como resolvido.

Edited June 7, 2012 at 08:27 PM by sagostinho