none
Macros entre Planilhas - Copiar e colar valores RRS feed

  • Pergunta

  • Bom dia!! Então, eu preciso de uma planilha que copie valores e cola em outra planilha. Elas estão em arquivos diferentes.
    Entretanto, a planilha que eu iria copiar esses valores, as informações dela mudam todos os dias, pq eu tenho que inserir na minha base de dados (a base que eu vou colar). Mas os campos são os mesmos. 
    No caso, eu recebo todo dia uma planilha diferente com os mesmos campos que tem que ser copiada e colada para a minha base de dados; sempre na última linha não vazia. Eu queria uma forma de criar uma macro que ela entendesse que eu sempre tenho que copiar os valores da "nova planilha" que eu for abrir, já que todo dia ela varia (mas com os mesmos campos)
    É possível?

    quarta-feira, 5 de julho de 2017 13:36

Todas as Respostas

  • O CÓDIGO A SEGUIR DEVE FICAR NA PASTA DE TRABALHO QUE VAI RECEBER OS DADOS.

    ESSA PASTA DE TRABALHO QUE RECEBERÁ OS DADOS DEVERÁ SER SALVA COMO PASTA DE TRABALHO HABILITADA PARA MACRO DO EXCEL:

    Sub COPIARDAPASTADOADORA()
    
    
        Dim lngLastCol As Long
        Dim PLANILHARECEPTORA As Worksheet
        Dim PASTADOADORA As Workbook
        Dim PLANILHADOADORA As Worksheet
        
        Set PLANILHARECEPTORA = ThisWorkbook.Worksheets("Planilha1")
        Set PASTADOADORA = Workbooks.Open("c:\PASTADOADORA.xlsx")
        Set PLANILHADOADORA = PASTADOADORA.Worksheets("Planilha1")
        
        LINHA = PLANILHARECEPTORA.UsedRange.Rows.Count + 1
        
        PLANILHADOADORA.UsedRange.Copy
        
        PLANILHARECEPTORA.Range("A" & LINHA).PasteSpecial
        
        PASTADOADORA.Close SaveChanges:=True
    
    
    End Sub


    Anderson Diniz

    • Sugerido como Resposta AndersonFDiniz2 quarta-feira, 5 de julho de 2017 15:30
    quarta-feira, 5 de julho de 2017 15:30