Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
erro subscrito fora...
 
Notifications
Clear all

erro subscrito fora do intervalo.

 
2024 - VBA & Macros
2 Posts
2 Usuários
0 Reactions
2,320 Visualizações
RSS
 denisw
(@denisw)
Posts: 64
Trusted Member
Topic starter
 

Boa tarde,
tenho uma função que nesta parte da erro
ele abre a planilha (cópia de despacho2014.xlsm) seleciona todas as celulas da sheet( romaneio)copia
e deveria colar na workbook( entregas 20 06 2014xlsm ) sheet( desp- onde esta o botão q chama a função) e cola somente valores.
PORÉM , ELE ABRE A PLANILHA, SELECIONA AS CÉLULAS , MAS NÃO COLA , DÁ O SEGUINTE ERRO " SUBSCRITO FORA DO INTERVALO"

Workbooks.Open ("C:despachosciroCópia de despacho2014.xlsm")
Worksheets("ROMANEIO").Activate
Cells.Select
Selection.Copy
Workbook.Close
With Workbooks("ENTREGAS 20 06 2014.xlsm").Worksheets("desp")
Range( "a1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Aplication.CutCopyMode = False
End With

 
Postado : 20/06/2014 12:46 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 
Workbooks.Open ("C:despachosciroCópia de despacho2014.xlsm")

worksheets("ROMANEIO").cells.copy 'esta linha faz o mesmo que as apagadas, sem depender de selecionar. É mais rápida e mais confiável.

''''workbooks.close
''''Eliminei a linha que dá o Close, pq ela nao podia estar aqui e ela nao estava fechando nada pois nao havia indicação do que fechar. 
''''Esta era a linha do erro e subcrito fora do intervalo, a que fica amarela qdo o erro acontece.

With Workbooks("ENTREGAS 20 06 2014.xlsm").Worksheets("desp")
.Range( "a1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Aplication.CutCopyMode = False

End With
Workbook("Cópia de despacho2014.xlsm").Close 'agora sim pode fechar o arquivo, pois já colou o conteúdo...

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/06/2014 1:02 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico