PaiDeLaura 0 Posted September 2, 2020 Report Share Posted September 2, 2020 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 Quote Link to post Share on other sites
0 Strogonoff 0 Posted October 27, 2020 Report Share Posted October 27, 2020 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 Quote Link to post Share on other sites
Question
PaiDeLaura 0
Bom dia,
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!
Link to post
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.