Ana Carolina Di Rico

Olá Osvaldo

 

Já havia percebido o erro e corrigi, porém não mudou nada ainda não consegui salvar em outra planilha e fecha-lá instantânea mente.

 

ta difícil viu kkk

 

Boa Noite a todos,

 

Estou com dificuldades em acertar no código.

Tenho duas pastas, uma que será alimentada durante todo o dia (Origem) e outra pasta (DESTINO) que salvará todos os dados da pasta origem  e deve permanecer FECHADA.

A pasta DESTINO deverá abrir somente para salvar e já fechar assim que for selecionado o botão de SALVAR na planilha ORIGEM.

Abaixo segue o código que tentei desenvolver porém ele está salvando na pasta de DESTINO mais não está fechando e retornando para a pasta de ORIGEM que terá os dados apagados para novo preenchimento.

 

Sub salvar_registro()
'
' Macro1 Macro
'
Dim wsORIGEM As Worksheet
Dim wsDESTINO As Worksheet
Workbooks.Open Filename:="\\Mfgsvr\svn\CONTENÇÃO\BASE\BASE CONTENÇÃO.xlsx"
Set wsORIGEM = Workbooks("Controle diário contenção.xlsm").Worksheets("REGISTRO NOVO")
Set wsDESTINO = Workbooks("BASE CONTENÇÃO.XLSX").Worksheets("BASE")

    
    With wsORIGEM
    
    wsORIGEM.Range("A2:K37").Copy
    wsDESTINO.Range("A99999").End(xlUp).Offset(1, 0).Select
   
      Application.CutCopyMode = False
      
      End With
      Workbooks("BASE CONTENÇÃO.wlsx").Close SaveChanges:=True
      wsORIGEM.Range("A2:K37").ClearContents
      wsORIGEM.Range("A2").Select
      
      MsgBox "REGISTRO DE CONTENÇÃO SALVO COM SUCESSO"
   
End Sub

 

Quando clico em executar a linha em negrito fica amarela e aparece a mensagem dizendo: SUBSCRITO FORA DO INTERVALO.

Preciso que os dados da ORIGEM salvem na pasta DESTINO que deve ser salva e fechada para que o MSGBOX aparaça na pasta ORIGEM já com as células vazias para novo preenchimento.

 

Por favor se alguem puder me ajudar, por que minha cabeça já não esta pensando em mais nada.

 

Eu agradeço muito!!!!