Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
falha de método Pas...
 
Notifications
Clear all

falha de método Pastespecial

 
2024 - VBA & Macros
Post Recente por fpaulino31 10 anos atrás
3 Posts
2 Usuários
0 Reactions
756 Visualizações
RSS
 fpaulino31
(@fpaulino31)
Posts: 2
New Member
Topic starter
 

Prezados,

Estou com um problema simples mas não consigo resolver. A sub abaixo apresenta sempre falha de método pastespecial da classe range. Alguém pode me ajudar Segue:

Sub carregararquivo()

Workbooks.Open Filename:="C:Usersqa39DocumentsFranciscoDESENVOLVIMENTO PAINEL ATIVOsip-exportação_0.xlsx"

Sheets("SIP-Exportação_0").Select
Range("A1:U2400").Select
Selection.Copy
ActiveWindow.Close
Windows("SIPOC1.1 - CÓPIA.xlsm").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("SIP_PRODUÇÃO").Select
Sheets("SIP_PRODUÇÃO").Range("a1:U2400").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Plan1").Select
End Sub

Sds.: Francisco

 
Postado : 09/01/2015 6:09 am
 gtsalikis
(@gtsalikis)
Posts: 2373
Noble Member
 

Vc está fechando a planilha antes de colar os valores, dai a memória se apaga.

Tente assim:

Sub carregararquivo()

Dim ws As String

ws = ThisWorkbook.Name

Workbooks.Open Filename:="C:Usersqa39DocumentsFranciscoDESENVOLVIMENTO PAINEL ATIVOsip-exportação_0.xlsx"

Sheets("SIP-Exportação_0").Select
Range("A1:U2400").Select
Selection.Copy

Windows("SIPOC1.1 - CÓPIA.xlsm").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("SIP_PRODUÇÃO").Select
Sheets("SIP_PRODUÇÃO").Range("a1:U2400").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=False

Windows(ws).Activate
Sheets("SIP-Exportação_0").Select
ActiveWindow.Close

Sheets("Plan1").Select
End Sub

Lembre-se de AGRADECER aos que te ajudaram, e de marcar o tópico como [Resolvido]
Gente que cuida de gente.

Gilmar

 
Postado : 09/01/2015 6:18 am
 fpaulino31
(@fpaulino31)
Posts: 2
New Member
Topic starter
 

Caro Gilmar, muito obrigado. Problema resolvido!!!!!

 
Postado : 09/01/2015 11:34 am
Forum Jump:
  Tópico Anterior
Próximo Tópico