Ir ao conteúdo
  • Cadastre-se

Macro excel


Posts recomendados

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

 

Link para o comentário
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.

Link para o comentário
Compartilhar em outros sites

Visitante
Este tópico está impedido de receber novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades 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

×
×
  • Criar novo...