Ir ao conteúdo
  • Cadastre-se
Sincero16

Excel Macro para localizar uma determinada palavra e copiar os dados abaixo dela

Recommended Posts

Ola pessoal

Estou desenvolvendo uma macro e preciso abrir um arquivo do Excel localizar uma palavra procurando na horizontal e copiar os dados abaixo na vertical e fazer um loop para fazer isso em todos arquivos que esta em determinada pasta e colar na base principal.

exemplo os dados estão da a2 ate a j2 preciso procurar uma determinada palavra nesse intervalo e copiar e colar em uma ordem que eu determinar.

eu ate comecei a fazer porém a formula esta ficando muito grande e não sei se estou indo no caminho certo pois consegui escolher um intervalo e copiar os dados e não individualmente.

 


 

' Macro1 Macro
'
'
Sub Abrir_Copiar_Colar()
Range("a2").Select
Dim FSO As Object
Dim Pasta As String
Dim Planilha As Object
Dim OpenBook As String

Set FSO = CreateObject("Scripting.FileSystemObject")
Pasta = "C:\User\Desktop\FUNCIONARIO 2 RETAS - CONFERÊNCIA\"
'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

'Seu código para copiar
Range("A2:j2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A2:j21").Select
    Selection.Copy

Windows(ThisWorkbook.Name).Activate

'Seu código para colar
  ActiveCell.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
  False, Transpose:=False
  Application.CutCopyMode = False
 
 
  
  
  
Application.CutCopyMode = False
Workbooks(OpenBook).Close False

  'Ativar depois ultima celula
Dim x As Integer
x = ActiveSheet.UsedRange.Rows.Count
ActiveCell.SpecialCells(xlLastCell).Select
ActiveCell.EntireRow.Cells(1, 2).Offset(1, 0).Activate

PRÓXIMO:
Next

 

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

×