Este fórum está sendo desativado

[anacletotranstusa]

Olá,

Sei que vai parecer uma tarefa redundante, mas é uma necessidade, pois preciso que o lançamento seja realizado separado e também preciso que todos os lançamentos estejam consolidados em uma unica planilha. Sendo assim preciso criar uma macro que ao abrir a planilha execute a macro onde copia as informações das abas "Tupy,Centro,Vila_Nova e norte" e cola na Aba BaseDados.
Link abaixo:
http://www.planilhando.com.br/forum/vie ... 10&t=21978
Desde já agradeço a atenção.
Abraço!

[alexandrevba]

Boa tarde!!

Código: Selecionar todos

Sub UsePesquisaDoForum()
Dim ws As Worksheet

    For Each ws In Sheets(Array("Tupy", "Centro", "Vila_Nova", "Norte"))
        ws.Range("A2", ws.Range("H" & Rows.Count).End(xlUp)).Copy Worksheets("BaseDados").Range("A65536").End(xlUp)(2)
    Next ws
End Sub

Att

[gfranco]

Boa tarde.
Eu acho que já esbarrei com essa planilha hoje.
Enfim..
Fiz no power queery
A atualização de dados da sheet "BASE DE DADOS" se dará ao abrir o workbook e ao acessar a planilha "BASE DE DADOS"
aT
GFRANCO

[anacletotranstusa]

Olá gfranco,
É mesmo, estou tentando desenvolver uma planilha mais dinâmica, e casa instante surgem mais duvidas, mas enfim, com ajudo dos fóruns estou conseguindo.
Ao abrir seu exemplo me gerou um erro na depuração da macro, sabe me informar se preciso ativar algo.
Segue o Erro:
Private Sub Worksheet_Activate()
ThisWorkbook.RefreshAll
End Sub

[gfranco]

Pode ser porque vc não tenha o power pivot instalado mas faça assim:
Apague essa instrução ThisWorkbook.RefreshAll
e no lugar dela escreva:
Range("B4").Select
Selection.ListObject.TableObject.Refresh