Jump to content
Fórum Script Brasil
  • 0

Erro em tempo de execução 9


Question

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)

Link to post
Share on other sites

1 answer to this question

Recommended Posts

  • 0

Boa noite @thcferreira

Tenta simular se o código consegue selecionar o campo que esta puxando os valores em questão, exemplo:

ThisWorkbook.Sheets("Consolidado_QTD").select

...

Workbooks(ArqPeriferico).Sheets(plan_inic).select

Se você abrir o visualbasic e executar o comando CTRL + G vai abrir a "Verificação Imediata"

 

image.thumb.png.085ea2cdad530ac86fbf7716b412256f.png

Caso ele dê erro ao selecionar a planilha ( o nome da planilha deve estar diferênte, justificando o erro 9) ou a aba.

Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Cloud Computing


  • Forum Statistics

    • Total Topics
      149411
    • Total Posts
      645902
×
×
  • Create New...