Ir ao conteúdo
  • Cadastre-se
GuilDraco

Macro excel

Recommended Posts

Prezados, boa noite!  Estou com uma duvida.

 

Ao criar minha macro para procurar planilha X copiar e colar os dados dessa planilha em outra estou enfrentando dificuldades, pois mesmo a macro rodando corretamente, ou cola apenas 1 planilha ou caso coloque pra colar 20 vezes que é o máximo de planilhas, podendo variar para baixo ele copia as informações de todas as planilhas porém cola sempre da mesma. Segue macro que estou utilizando. Lembrando que a quantidade de planilhas pode variar o que me impede de usar uma programação fechada copiando e colando as 20 planilhas, pois caso tenha menos a macro dará erro.

Sub Junta()
'
' Junta Macro
'
' Atalho do teclado: Ctrl+j
'
    
Dim FSO As Object
Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String
Set FSO = CreateObject("Scripting.FileSystemObject")
Pasta = "C:\" 'Pasta com as planilhas que serão abertas e copiadas
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
For Each Planilha In FSO.GetFolder(Pasta).Files
If InStr(1, Planilha, ".xls") = 0 Then GoTo PRÓXIMO

Workbooks.Open (Planilha)
OpenBook = ActiveWorkbook.Name

'código para copiar
    Range("A1:L11").Select
    Selection.Copy

'código para colar
    Windows(ThisWorkbook.Name).Activate
    ActiveSheet.Paste
    Range("").Select
      
Application.CutCopyMode = False
Workbooks(OpenBook).Close False
PRÓXIMO:
Next
Application.ScreenUpdating = True
MsgBox "Dados Copiados com Sucesso!", vbInformation, "Aviso"
Application.Calculation = xlCalculationAutomatic
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

A ferramenta Nova Consulta poderia eventualmente fazer isso q você está querendo, ou seja, adicionar tabelas a uma tabela já existente originadas em um diretório único e em quantidade variada.

Tem q ver a sua versão do Excel entre outros detalhes.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dj, agradeço o retorno,porém preciso que esse macro rode em qualquer Excel, pois será usado em mais de 1 PC, claro alterando apenas o caminho do cód. a Programação relacionada acima é funcional, porém ou repito o copiar e colar as 20 vezes, o que acarreta erro quando a quantidade de arquivo é inferior, ou se modificar o cód. ele copia os 20 porém só cola 1. a duvida é o que tem de errado no cód. que esta acarretando tal erro.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Acrestente a linha em negrito nesta parte do codigo

 

'código para colar    

Windows(ThisWorkbook.Name).Activate    

Range("A1048576").End(XlUp).offset(1,0).select

ActiveSheet.Paste    

Range("").Select

Compartilhar este post


Link para o post
Compartilhar em outros sites

Casa do Hardware, obrigado mano, funcionou perfeitamente, só ficou com a 1° linha em branco, mas ai no final do comando fiz com que deletasse a 1° linha. Ficou redondo.. Valeu.. Caso alguém queira o cód. completo só falar.

 

Abraços!!

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

×