Notifications
Clear all

Erro em tempo de execução '9': Subscrito fora do intervalo

3 Posts
1 Usuários
0 Reactions
917 Visualizações
(@renatofusc)
Posts: 3
New Member
Topic starter
 

Boa tarde,

Por favor, vocês poderiam me ajudar?

Sou um novo usuário de Excel e criei um macro que copia algumas colunas de uma tabela ("formatea file de nemag e mastersoft_2014_06.xlsm") e cola em uma outra ("br_kpis_jan_2015_salvo_automaticamente.xlsx").

Depois de ter gravado o macro, mandei rodar e deu certo.

Porém, quando fechei minhas planilhas e abri de novo, aparecia o seguinte erro:

"Erro de tempo de execução '9':
Subscrito fora do intervalo"

Eu já alterei os nomes das planilhas para tudo minúsculo e tirei os acentos, mas ainda não obtive êxito.

Vocês sabem o que pode ter dado errado?

O código é esse:

"
Sub SUBSTITUICAO()
'
' SUBSTITUICAO Macro
' Este macro substitui os valores de todas as colunas sem formula.
'
' Atalho do teclado: Ctrl+u
'
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate

Range("A1").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select

Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate

Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate

Columns("A:Y").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AI1").Select
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("AA:AO").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("AA1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AQ1").Select
Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("AQ:BC").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate
Columns("BE:CY").Select
Application.CutCopyMode = False
Selection.Copy
Windows("br_kpis_jan_2015_salvo_automaticamente.xlsx").Activate
Range("BE1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
"

Agradeço desde já.

 
Postado : 10/03/2015 2:01 pm
(@renatofusc)
Posts: 3
New Member
Topic starter
 

Desculpem-me, esqueci de acrescentar.

O erro está na primeira linha:

"Windows("formatea file de nemag e mastersoft_2014_06.xlsm").Activate"

Obrigado

 
Postado : 10/03/2015 2:04 pm
(@renatofusc)
Posts: 3
New Member
Topic starter
 

Ok, depois eu percebi que, como estava selecionando todas as células das colunas, estava ficando com um tamanho absurdo.

Eu limitei minha escolha até 11.000 células por coluna e agora deu certo.

 
Postado : 11/03/2015 6:45 am