dricoosz

Galera, uma ajudinha, tenho uma macro do Excel, que utilizo para abrir determinados planilhas para utilizar dos dados em cada uma, mas acontece que o caminho do arquivo já está definido, e eu gostaria que o usuário pudesse escolher o caminho do arquivo, eu utilizo o seguinte código. Set wkbNorm = Workbooks.Open("C:\Users\Teste\Desktop\Teste - Survey\POL.xlsx") Set wksNorm = wkbNorm.Worksheets("POL") ' Abre Arquivo POL na planilha POL Set wkbDest = Workbooks.Open("C:\Users\Teste\Desktop\Teste - Survey\Survey.xlsx") Set wksDest = wkbDest.Worksheets("VALIDA_PREENCHIMENTO") ' Informa qual planilha irá ser armazenado as informações ' Aqui eu seleciono os dados que quero copiar de uma planilha para a outra wksNorm.Range("B2:B6000").Copy wksDest.Cells(lngLast, "Y") ' Aqui eu fecho as planilhas abertas lá em cima wkbNorm.Close True wkbDest.Close True

Gente, preciso muito de um Help, não tenho muito conhecimento de VBA, e queria fazer uma comunicação entre 3 "Arquivos" meus, três planilhas que não estão dentro do mesmo arquivo, tenho o seguinte código: Sub teste() Dim lngLast As Long ''''''''Abre pastas de trabalho e planilhas. Set wkbCPF = Workbooks.Open("C:\Users\teste\Desktop\teste\CPF.xlsx") Set wksCPF = wkbCPF.Worksheets("Plan1") Set wkbEfetivo = Workbooks.Open("C:\Users\teste\Desktop\teste\Efetivo.xlsx") Set wkbEfetivo = wkbEfetivo.Worksheets("Plan1") Set wkbDest = Workbooks.Open("C:\Users\teste\Desktop\teste\Survey.xlsx") Set wksDest = wkbDest.Worksheets("Teste") 'Descobre a última linha da planilha de destino With wksDest lngLast = .Cells(3).End(xlUp).Row + 2 End With 'Indica a linha a ser copiada 'Carrega Nome wkbEfetivo.Range("B4:B250").Copy wksDest.Cells(lngLast, "D") 'Carrega CPF wksCPF.Range("C3:C250").Copy wksDest.Cells(lngLast, "H") wkbCPF.Close SaveChanges:=False wkbDest.Close SaveChanges:=True End Sub No código acima, eu pego o cpf e o nome de um funcionário, e colo em uma planilha a parte, mas eu tenho outra planilha de funcionários afastados, a ideia é que eu insira o nome e o cpf do funcionario na planilha como está sendo feito, mas para isso, eu tenho que verificar se o cpf desse funcionario está na lista de funcionários afastados, se estiver, ele não insere, se não estiver, ele segue o fluxo, como poderia encaixar isso no código? Obrigado!!