Ir para conteúdo
Fórum Script Brasil

thcferreira

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Sobre thcferreira

thcferreira's Achievements

0

Reputação

  1. Olá pessoal, Eu não tenho muito conhecimento em VBA, estamos com um problema em uma macro. A macro foi feita por outro desenvolvedor que já não temos mais contato com ele, ela serve para abrir um documento excel ler as várias abas que tem nele e juntar essas informações em apenas uma aba. Está retornando o erro: ERRO EM TEMPO DE EXECUÇÃO 9. O código é esse: Public Sub Consolida_QTD() Dim lin01, lin02, lin03, plan_inic, plan_fim As Integer lin01 = 2 lin02 = 2 lin03 = 2 plan_inic = 2 'Application.ScreenUpdating = False 'ArqPeriferico = "QDT_GTI_OPRACAO_SUPORTE.xlsx" 'Workbooks.Open (ThisWorkbook.Path & "\QDT_GTI_OPRACAO_SUPORTE.xlsx") 'lin03 = ThisWorkbook.Sheets(Consolidado_QTD).Cells("a:a").Find(What:=Empty).Row' 'LinhaEmBranco = ThisWorkbook.Planilha1.Cells(Row.Count, "a").End(xlUp).Row' ArqPeriferico = "QDT_GTI_OPRACAO_SUPORTE" Workbooks.Open (ThisWorkbook.Path & "\" & ArqPeriferico & ".xlsx") For plan_fim = 1 To Sheets.Count Next plan_fim = plan_fim - 1 Do Until (plan_fim - 1) < plan_inic Do Until Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 1).Value = Empty >>>> AQUI OCORRE O ERRO ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 1).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 1).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 2).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 2).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 3).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 3).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 4).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 4).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 5).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 5).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 6).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 6).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 7).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 7).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 8).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 8).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 9).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 9).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 10).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 10).Value ThisWorkbook.Sheets("Consolidado_QTD").Cells(lin03, 11).Value = Workbooks(ArqPeriferico).Sheets(plan_inic).Cells(lin02, 11).Value lin02 = lin02 + 1 lin03 = lin03 + 1 Loop lin02 = 2 plan_inic = plan_inic + 1 Loop Workbooks(ArqPeriferico).Close (False)
×
×
  • Criar Novo...