Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Copia dados do Arquivo e guia ativa para um Arquivo fechado (VBA)

Mensagem por alexandrevba em Dom Nov 02, 2014 9:07 am

Bom dia!!
Copiar os dados de uma guia ativa de um arquivo ativo para uma guia destino de um arquivo fechado.
Código:
Sub ImportAleVBA_I()
'Autor:AlexandreVBA
'Data: 02/11/2014
 Dim wbArchive As Workbook
    Dim wsSrc As Worksheet
    Dim wsDst As Worksheet
    Dim rngSrc As Range
    Dim rngDst As Range
    Dim LastRow As Long
    Dim Msg As Variant
    'Msg = MsgBox("Deseja limpar o conteúdo?", vbYesNo + vbQuestion + vbSystemModal, "Transferindo Dados")
    
   ' If Msg = vbYes Then
        Application.EnableEvents = False
        'Aponta o Livro e guia origem
        Set wsSrc = ThisWorkbook.Worksheets("GuiaOrig")
        'Conta até a ultima linha do Livro e guia ativa
        LastRow = wsSrc.Range("A" & Rows.Count).End(xlUp).Row
        'Aponta para a guia Origem do Livro ativo com a ultima linha selecionada
        Set rngSrc = wsSrc.Range("A2:B" & LastRow)
        'Local do Livro Destino no PC
        Set wbArchive = Workbooks.Open(FileName:="C:\Users\alexandre\Desktop\Org_Print.xls")
        'Aponta o Livro e guia desteino
        Set wsSrc = wbArchive.Worksheets("GuiaDest")
        'Cola na ultima linha do Livro e guia destino
        Set rngDst = wsSrc.Range("A" & Rows.Count).End(xlUp).Offset(1)
        rngSrc.Copy 'Copia da Origem
        rngDst.PasteSpecial xlPasteValues 'Cola valores no Destino
        'rngSrc.Clear 'Limpa origem
        Application.DisplayAlerts = False
        Application.CutCopyMode = False
        wbArchive.Close SaveChanges:=True
        Application.EnableEvents = True
        
    'End If

End Sub

Att
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum