[Resolvido] VBA VLookUp em diversas planilhas ao mesmo tempo

Olá,

Procuro saber se é possível fazer o seguinte, e como faze-lo:

Tenho 1 planilha com um userform para uma pesquisa. Vamos chamar essa planilha de PCP. Ali se insere um valor numérico (barcode).

Tenho 3 outras planilhas (CORTE1, CORTE2, CORTE3), todas com a mesma estrutura, mas alimentadas simultaneamente em salas diferentes.

Essas planilhas/arquivos ficam todos na mesma pasta de rede.

Preciso que ao inserir o barcode, faça um VLookUp nas outras 3 planilhas (em sequencia), buscando aquela informação, para preencher o userform. (Não precisa se preocupar, que o barcode é único, não se repetirá. Se ele existir em 1 das planilhas CORTE, não tem chance de ele existir nas outras 2)

Como eu defino essa busca em 3 planilhas diferentes? Dá pra fazer um Range com diversas planilhas?

Atualmente, eu tenho na planilha PCP esse userform funcionando, mas criei abas espelhadas das planilhas CORTE1, 2 e 3, usando formulas de vinculação. Só que isso deixou a planilha PCP gigantesca, e extremamente demorada pra carregar, sendo impraticável o uso dela.

Agradeço qualquer ajuda

Private Sub txt_talao_AfterUpdate()



Dim intervalo1 As Range

Dim talao As String

Dim dubl1 As String

Dim dubl2 As String

Dim Data As Date

Dim mensagem



talao = txt_talao

dubl1 = txt_dubl1

dubl2 = txt_dubl2

Sheets("BASE-SUPRIMENTOS&quot.Select

Set intervalo1 = Range("A2:j150005&quot



On Error GoTo Erro



pesquisa1 = Application.WorksheetFunction.VLookup(talao, intervalo1, 3, False)

pesquisa2 = Application.WorksheetFunction.VLookup(talao, intervalo1, 6, False)

pesquisa4 = Application.WorksheetFunction.VLookup(talao, intervalo1, 10, False)



txt_dubl1 = pesquisa1

txt_dubl2 = pesquisa2

txt_data = pesquisa4

Exit Sub

Erro:

texto = "Não localizado"

mensagem = MsgBox(texto, vbOKOnly + vbInformation)

End Sub