Ir ao conteúdo
  • Cadastre-se
felipe de sousa ferreira

Excel código vba excel só funciona em uma planilha determinada

Recommended Posts

Boa noite, criei um código para exportar dados entre pastas de trabalho diferentes, porém o código só funciona em uma planilha chamada Atividades-CO FAC 07 05 18.xml. Como fazer o código funcionar em qualquer planilha que eu abrir ? segue abaixo o código

Sub DESCER_LINHA()
'
' TESTE Macro
'

'
    Range("A65536").End(xlUp).Select
   ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
   Dim importFileName As Variant
Dim importWorkbook As Workbook
Dim importSheet As Worksheet
Dim importRange As Range
       
    'mostre o diálogo aberto do arquivo
    importFileName = Application.GetOpenFilename(FileFilter:="Arquivo do Excel (*.xml; *.xlsx), *.xls;*.xlsx", Title:="Escolha um arquivo do Excel")
    
    ' se o usuário pressionou cancelar buton: exit
    If importFileName = False Then Exit Sub
    
    Application.ScreenUpdating = False
    
         ' se o usuário selecionou um arquivo excel, abra-o
         Set importWorkbook = Application.Workbooks.Open(importFileName)
         Set importSheet = importWorkbook.Worksheets(1)
         
         ' processo de exportação das colunas desejadas
         
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "FRANCA"
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=-39
    ActiveWindow.ScrollRow = 1137
    ActiveWindow.ScrollRow = 1129
    ActiveWindow.ScrollRow = 1052
    ActiveWindow.ScrollRow = 1016
    ActiveWindow.ScrollRow = 852
    ActiveWindow.ScrollRow = 711
    ActiveWindow.ScrollRow = 667
    ActiveWindow.ScrollRow = 460
    ActiveWindow.ScrollRow = 440
    ActiveWindow.ScrollRow = 319
    ActiveWindow.ScrollRow = 291
    ActiveWindow.ScrollRow = 205
    ActiveWindow.ScrollRow = 172
    ActiveWindow.ScrollRow = 117
    ActiveWindow.ScrollRow = 103
    ActiveWindow.ScrollRow = 70
    ActiveWindow.ScrollRow = 59
    ActiveWindow.ScrollRow = 50
    ActiveWindow.ScrollRow = 42
    ActiveWindow.ScrollRow = 39
    ActiveWindow.ScrollRow = 36
    ActiveWindow.ScrollRow = 34
    ActiveWindow.ScrollRow = 31
    ActiveWindow.ScrollRow = 28
    ActiveWindow.ScrollRow = 25
    ActiveWindow.ScrollRow = 23
    ActiveWindow.ScrollRow = 20
    ActiveWindow.ScrollRow = 14
    ActiveWindow.ScrollRow = 9
    ActiveWindow.ScrollRow = 3
    ActiveWindow.ScrollRow = 1
    Range("A2:C1203,F2").Select
    Range("F2").Activate
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=3
    Range("A2:C2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=3
    Selection.Cut
    ActiveWindow.SmallScroll Down:=-15
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    ActiveSheet.Paste
    Range("D2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("F2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    Range("D2125").Select
    ActiveSheet.Paste
    Range("E2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("H2:I2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    Range("E2125").Select
    ActiveSheet.Paste
    Range("G2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("S2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    ActiveSheet.Paste
    Range("H2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("Y2").Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveWindow.SmallScroll Down:=3
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    ActiveSheet.Paste
    Range("I2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("AI2:AJ2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    ActiveSheet.Paste
    Range("K2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("AN2:AP2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    Range("K2125").Select
    ActiveSheet.Paste
    Range("N2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("AR2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    Range("N2125").Select
    ActiveSheet.Paste
    Range("O2125").Select
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    Range("AZ2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Cut
    Windows("PROJETO_ANALISE FAC CENTRO.xlsm").Activate
    Range("O2125").Select
    ActiveSheet.Paste
    Windows("Atividades-CO_FAC_07_05_18.xml").Activate
    ActiveWindow.Close
End Sub

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esta parte abaxo você pode deletar do codigo

 

  ActiveWindow.ScrollRow = 20  

 

Pode apagar todas linhas iguais.

 

Qto a sua duvida esperimente

 

Trocar esta linha

 

Windows("Atividades-CO_FAC_07_05_18.xml").Activate

 

Por esta

 

importWorkbook.Activate

 

 

 

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

×