Ir ao conteúdo
  • Cadastre-se
DiegoVenuzka

Macro para localizar, copiar e colar

Recommended Posts

Salve pessoal!

Acompanho sempre o fórum, como visitante. Hoje finalmente decidi me cadastrar :D

Meu problema, o qual gostaria de ajuda, é o seguinte:

Possuo uma lista de arquivos excel em uma pasta, e cada arquivo possui em torno de 20 abas. O que preciso é localizar o nome do funcionario, que pode estar em qualquer uma dessas abas, se achar o nome copiar a aba inteira para um outro arquivo pré aberto, renomear a aba copiada com o nome do arquivo de origem e partir para o proximo, sempre copiado a aba para o mesmo arquivo.

O que já fiz está abaixo: Pegar o nome digitado no arquivo e percorrer o diretorio.

Sub PESQUISA_PROCESSO()
'
' PESQUISA_PROCESSO Macro
' Macro criada em 15/01/2013 por diego.venuzka
'

'
'CRIA ARQUIVO

Workbooks.Add

'PEGA O DIRETORIO DOS ARQUIVOS DIGITADO NA PLANILHA

Dim v_quem As String
Dim v_onde As String

v_onde = "W:\Administrativo\GERENCIAMENTO RH\QUADRO DE LOTACAO DA PRODUCAO\QL 2008"
v_quem = ActiveSheet.Range("E7").Value

' SE HOUVER ERROS, TENTA OUTRO DIRETORIO PADRÃO
If IsError(v_onde) Then v_onde = "C:\Temp"

'ESTE TRECHO VAI VARRER O DIRETORIO DE ARQUIVOS
Set FSO = CreateObject("Scripting.FileSystemObject")

Set aqui = FSO.GetFolder(v_onde)
For Each arqui In aqui.Files 'percorre lista de arquivos

Workbooks.Open Filename:=arqui.Path
Windows(arqui.Name).Activate


'INICIA CONFIGURAÇÃO DOS ARQUIVOS


'NÃO SALVA E FECHA O ARQUIVO E VAI PARA O PROXIMO

ActiveWindow.Close SaveChanges:=False


Next

End Sub

Agradeço toda a ajuda! :D

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×