Erro em tempo de execução: -2147467259 (80004005): Erro não especificado

[PaiDeLaura]

Bom dia,

Tenho um pequeno sistema de registro de denúncias. O cadastro funciona, de boa, mas a pesquisa quando vou escolher as datas, aparece esse erro aqui:

Erro em tempo de execução '-2147467259(80004005)': Erro não especificado

Eis o código:

Private Sub btnPesquisar_Click()

Dim linhaFinal, linha, x As Integer

ListBox1.Clear    // o erro para aqui e não depura mais

linhaFinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row

x = 0

For linha = 2 To linhaFinal


If Planilha1.Cells(linha, 1).Value >= MonthView1 And Planilha1.Cells(linha, 1).Value <= MonthView2 Then

ListBox1.AddItem Planilha1.Cells(linha, 1).Value

ListBox1.List(x, 1) = Planilha1.Cells(linha, 2).Value
ListBox1.List(x, 2) = Planilha1.Cells(linha, 3).Value
ListBox1.List(x, 3) = Planilha1.Cells(linha, 4).Value
ListBox1.List(x, 4) = Planilha1.Cells(linha, 5).Value

x = x + 1
End If

Next

End Sub

Porque isso acontece e o que pode ser feito?
Preciso da ajuda dos colegas!
Forte abraço!

 Resposta Rápida

 Resposta

• 1

[Strogonoff]

Em 02/09/2020 em 04:00, PaiDeLaura disse:

Bom dia,

Tenho um pequeno sistema de registro de denúncias. O cadastro funciona, de boa, mas a pesquisa quando vou escolher as datas, aparece esse erro aqui:

Erro em tempo de execução '-2147467259(80004005)': Erro não especificado

Eis o código:

Private Sub btnPesquisar_Click()

Dim linhaFinal, linha, x As Integer

ListBox1.Clear    // o erro para aqui e não depura mais

linhaFinal = Planilha1.Cells(Rows.Count, 1).End(xlUp).Row

x = 0

For linha = 2 To linhaFinal


If Planilha1.Cells(linha, 1).Value >= MonthView1 And Planilha1.Cells(linha, 1).Value <= MonthView2 Then

ListBox1.AddItem Planilha1.Cells(linha, 1).Value

ListBox1.List(x, 1) = Planilha1.Cells(linha, 2).Value
ListBox1.List(x, 2) = Planilha1.Cells(linha, 3).Value
ListBox1.List(x, 3) = Planilha1.Cells(linha, 4).Value
ListBox1.List(x, 4) = Planilha1.Cells(linha, 5).Value

x = x + 1
End If

Next

End Sub

Porque isso acontece e o que pode ser feito?
Preciso da ajuda dos colegas!
Forte abraço!

 Resposta Rápida

 Resposta

• 1

Coloque o "Me. " antes do listbox 1 e cuidado...

as variaveis linhafinal e linha estão declaradas como variant e não como integer

você precisa declarar cada uma sem virgula

dim linhafinal as integer

dim x as integer