Alterei para algo que faz mais sentido... q pode ser buscado no futuro por outras pessoas... (essa é a intenção para um nome bom no tópico)....
Quanto a sua dúvida, vamos lá....
peguei as linhas que importam:
Set wbOpen = Workbooks.Open (Filename:="C:Sistema de administração financeiraMODELO Sistema de administração financeira.xlsm", Editable:=True)
'Acima tem o nome do arquivo, mude o nome e a extenção se necessário
wbMe.Sheets(strSheet).Range("F63:F285").Copy Destination:=wbOpen.Sheets("anuidade").Range("J8:J230")
Perceba que o uso do underscore no final das linhas está confundindo você...
Eu removi o underscore e trouxe o conteúdo para a linha de cima... o _ ao final, só serve para continuar na linha de baixo, mas é como se tivesse na mesma linha... OU SEJA, por exemplo, não existe a linha "Destination:= . . . bla blabla "... na verdade esse é um pedaço da linha de cima... Dito isso vamos aos problemas:
1) A linha copia e cola, usando o recurso padrão de copiar e colar do excel. Por isso as referências aparecem.
Eu trocaria:
wbMe.Sheets(strSheet).Range("F63:F285").Copy Destination:=wbOpen.Sheets("anuidade").Range("J8:J230")
por
wbOpen.Sheets("anuidade").Range("J8:J230").value = wbMe.Sheets(strSheet).Range("F63:F285").value
Assim vc não usa o Copy /Paste, mas tem o mesmo efeito de copiar e colar valores...
2) Vc deve ter código no workbook_open do outro arquivo, não vou abrir agora. Ou na rotina Auto_Open... Esses códigos disparam quando vc abre o arquivo com a linha:
Set wbOpen = Workbooks.Open (Filename:="C:Sistema de administração financeiraMODELO Sistema de administração financeira.xlsm", Editable:=True)
Para corrigir, vc precisa *desligar os eventos do Excel para ele suprimir a chamada para esta rotina... assim:
Application.enableEvents=False
Set wbOpen = Workbooks.Open (Filename:="C:Sistema de administração financeiraMODELO Sistema de administração financeira.xlsm", Editable:=True)
Application.enableEvents = True
Isso resolverá o problema da msgbox...
Acho que isso resolve...
FF
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 28/08/2014 1:25 pm