http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27185

A melhor forma de agradecer e votar como util e / ou marcar gostar resposta. Anderson Diniz diniabr2011


Você está assistindo: Importar dados de outra planilha excel vba

*

*

Para de quem for responder, saiba que ele postou naquela mesma pergunta por outro lado fórum:

http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=27244&p=135818#p135818

A melhor formato de para te agradecer e votar como util e / alternativa marcar gostar resposta. Anderson Diniz diniabr2011

*

*



Ver mais: Frases Sobre Aproveitar Os Momentos Da Vida ♡, Frases Sobre Aproveitar A Vida

Option ExplicitSub Importar_Dados()Application.ScreenUpdating = False"" Importar_Dados Macro" Importar dados da planilha doadoraDim PlanReceptora together WorkbookDim PlanDoadora as WorkbookDim NRLinhas as IntegerWorkbooks.Open (ThisWorkbook.Path & "BASE DE cobrar Moeda 17 vs bloco G - PARAMETRO.xlsx")Set PlanDoadora = ActiveWorkbookNRLinhas = Worksheets("Exportar Dados").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count"Importar pilar A (FILIAL)PlanDoadora.Sheets("Exportar Dados").Range("A2:A" & NRLinhas).SelectSelection.Copy"Workbooks.Open (ThisWorkbook.Path & "BASE DE carga GERAL - CONSOLIDACAO - Copia.xlsm")Set PlanReceptora = ThisWorkbookPlanReceptora.ActivatePlanReceptora.Sheets("GERAL").SelectPlanReceptora.Sheets("GERAL").Range("A5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = False"Importar coluna C (ID) "-------------------------------------------------Erro a partir da fileira abaixoPlanDoadora.ActivatePlanDoadora.Sheets("Exportar Dados").Range("C2:C" & NRLinhas).SelectSelection.Copy"Workbooks.Open (ThisWorkbook.Path & "BASE DE taxa GERAL - CONSOLIDACAO - Copia.xlsm")"Set PlanReceptora = ThisWorkbookPlanReceptora.ActivatePlanReceptora.Sheets("GERAL").SelectPlanReceptora.Sheets("GERAL").Range("B5").SelectSelection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=FalseApplication.CutCopyMode = False"Range("C2:C" & NRLinhas).NumberFormat = "0""Salvar PlanilhaPlanReceptora.SavePlanDoadora.Close savechanges:=FalseApplication.ScreenUpdating = True"LOGMsgBox "Importação concluída" & vbCr & "Copiados: " & NRLinhas & " Filial(s)" & vbCr & vbCr & "Copiados: " & NRLinhas & " ID(s)", vbInformation, "Importação de dados"End SubA melhor formato de agradecer e votar gostar util e / alternativa marcar como resposta. Anderson Diniz diniabr2011