Macro Não funciona

[Fernando Serra]

Bom dia

 

Não tenho conhecimento em VBA, mas elaborei uma macro a partir de soluções encontradas na WEB.

Concluí a macro e ao executar utilizando a tecla F8, ela funciona perfeitamente, porém ao executar a macro de forma automática ela trava.

A macro apenas abre um arquivo TXT, seleciona só as colunas necessárias, identifica a quantidade de linhas e copia os dados para outra planilha.

Nesta planilha, os dados são copiados para a célula D1. Depois disso copia fórmulas que estão na Plan2 para a Plan1, nas células A2:C2. Ai finalmente copia estas fórmulas para a quantidade de linhas identificadas no TXT e finalmente transforma as fórmulas em texto. 

Não sei como posso enviar os arquivos, mas não tem nada de mais, então se alguém puder criar arquivos com os nomes inseridos na macro e testar não terá problemas

Segue a macro

Sub Novo()

Dim Linha As Long

' Exclui as linhas preenchidas do Arq Teste a partir da linha A3.
' Isso tem o objetivo de manter a fórmula das células A2:c2
    Windows("Arq teste.xltm").Activate
    Range("A3").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.EntireRow.Delete
'   Selection.ClearContents
    Range("d2").Select
 

'Abre o arquivo texto selecionando apenas as colunas necessárias
    ChDir "C:\Users\User\Dropbox"
    Workbooks.OpenText Filename:="C:\Users\User\Dropbox\ABC_Vendas Dia.txt", _
        Origin:=932, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=True, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 9), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 9), Array(6, 9), Array(7, 9), Array(8, 1), _
        Array(9, 9), Array(10, 9), Array(11, 9), Array(12, 9), Array(13, 1), Array(14, 9), Array(15 _
        , 9), Array(16, 9), Array(17, 1), Array(18, 9), Array(19, 9), Array(20, 9), Array(21, 9), _
        Array(22, 9), Array(23, 9), Array(24, 9), Array(25, 9), Array(26, 9), Array(27, 9), Array( _
        28, 9), Array(29, 1), Array(30, 9), Array(31, 9), Array(32, 1), Array(33, 9), Array(34, 1), _
        Array(35, 1), Array(36, 9), Array(37, 9), Array(38, 9), Array(39, 9), Array(40, 9), Array( _
        41, 9), Array(42, 9), Array(43, 9), Array(44, 9), Array(45, 9), Array(46, 9), Array(47, 9), _
        Array(48, 9), Array(49, 9), Array(50, 9), Array(51, 9), Array(52, 9), Array(53, 9), Array( _
        54, 9), Array(55, 9), Array(56, 9), Array(57, 9)), TrailingMinusNumbers:=True
        
'Faz a contagem de linhas e vai para uma linha abaixo
    Windows("ABC_Vendas Dia.txt").Activate
    Range("A1").Select
    Linha = Range("C" & Rows.Count).End(xlUp).Row
    

    
' Seleciona os dados do arquivo TXT e copia
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    
' Seleciona o arquivo fim e cola os dados do TXT
    Windows("Arq teste.xltm").Activate
    Range("D1").Select
    ActiveSheet.Paste
    
    
'    Sheets("Plan1").Select
'    Range("A2").Select
    Sheets("Plan2").Select
    Range("A2:C2").Select
    Selection.Copy
    Sheets("Plan1").Select
    Range("A2").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
'    Range("A2").Select
    
    Windows("ABC_Vendas Dia.txt").Activate
    ActiveWorkbook.Close
    Windows("Arq teste.xltm").Activate
    
' Marca as células que contém fórmulas e copia para as demais linhas da planilha
    Range("A2:C2").Select
    Application.CutCopyMode = False
    Selection.AutoFill Destination:=Range("A2:C" & Linha)
    Range("A2:C" & Linha).Select
'    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("A1").Select
    

End Sub
 

 

 

 

Alguém pode me ajudar