Vídeo recomendado
https://youtu.be/diWPPPhW-9E

ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Elane2020
Colaborador
Colaborador
Mensagens: 36
Registrado em: Sex Jun 26, 2020 9:26 pm

ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Elane2020 »

Boa noite,

Não estou conseguindo corrigir esse erro que está aparecendo ao executar um formulário.
Minha sub filtro está assim:

Código: Selecionar todos

 Sub Filtro()

'On Error GoTo Erro

Dim Linha, LinhaListBox1 As Long
Dim ULTIMALINHA As Variant
Dim Valor_Celula As String

LinhaListBox1 = 1
Linha = 3

ListBox1.Clear

Call Cabecalho

Planilha1.Activate

With Planilha1

    While .Cells(Linha, 1).Value <> ""
              
         Valor_Celula = .Cells(Linha, 2).Value
        If UCase(Left(Valor_Celula, Len(CVerbas.Value))) = UCase(CVerbas.Value) Then
        
         
With ListBox1

.AddItem
.List(LinhaListBox1, 0) = Planilha1.Cells(Linha, 1) 'cod
.List(LinhaListBox1, 1) = Planilha1.Cells(Linha, 2) 'CVerbas
.List(LinhaListBox1, 2) = Planilha1.Cells(Linha, 3) 'Tipo
.List(LinhaListBox1, 3) = Planilha1.Cells(Linha, 4) 'Rubrica
.List(LinhaListBox1, 4) = Planilha1.Cells(Linha, 5) 'INSS
.List(LinhaListBox1, 5) = Planilha1.Cells(Linha, 6) 'INSS13
.List(LinhaListBox1, 6) = Planilha1.Cells(Linha, 7) 'IRRF
.List(LinhaListBox1, 7) = Planilha1.Cells(Linha, 8) 'IRRFerias
.List(LinhaListBox1, 8) = Planilha1.Cells(Linha, 9) 'IRRF13
.List(LinhaListBox1, 9) = Planilha1.Cells(Linha, 10)    'FGTS
.List(LinhaListBox1, 10) = Planilha1.Cells(Linha, 11)   'FGTS13
.List(LinhaListBox1, 11) = Planilha1.Cells(Linha, 12)   'SalFam
.List(LinhaListBox1, 12) = Planilha1.Cells(Linha, 13)   'INSSCI

End With

LinhaListBox1 = LinhaListBox1 + 1

End If

Linha = Linha + 1

Wend
End With

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"

End Sub

Código: Selecionar todos

 Private Sub CVerbas_Change()

'On Error GoTo Erro

Planilha3.Activate

Dim Plan As String
Plan = Planilha3.Name

With Worksheets(Plan).Rows(2)

Set C = .Find(CVerbas.Value, LookIn:=xlValues, Lookat:=xlWhole)

If Not C Is Nothing Then

C.Select

ActiveCell.Offset(1, 0).Select

End If

End With

Call Filtro

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"

End Sub

Código: Selecionar todos

 Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

'On Error GoTo Erro

Pesquisar = "OK"

Dim F As Controle
Set F = Controle

Linha = ListBox1.ListIndex

        F.TCodVerba = ListBox1.List(Linha, 0)
        F.CVerbas = ListBox1.List(Linha, 1)
        F.TTipRub = ListBox1.List(Linha, 2)
        F.TRubesocial = ListBox1.List(Linha, 3)
        F.TINSS = ListBox1.List(Linha, 4)
        F.TINSS13 = ListBox1.List(Linha, 5)
        F.TIRRF = ListBox1.List(Linha, 6)
        F.TIRRFFerias = ListBox1.List(Linha, 7)
        F.TIRRF13 = ListBox1.List(Linha, 8)
        F.TFGTS = ListBox1.List(Linha, 9)
        F.TFGTS13 = ListBox1.List(Linha, 10)
        F.TSalFam = ListBox1.List(Linha, 11)
        F.TINSSCI = ListBox1.List(Linha, 12)


F.CBEditar.Enabled = True
F.CBExcluir.Enabled = True
F.CBSalvar.Enabled = False

Unload Me

Exit Sub
Erro:
MsgBox "Erro!", vbCritical, "ERRO"

End Sub

Grata se alguém puder me orientar.
Anexos
Modelo.zip
(76.06 KiB) Baixado 159 vezes
erro01.png
erro01.png (43.92 KiB) Exibido 6022 vezes
Editado pela última vez por Elane2020 em Dom Jul 26, 2020 3:13 pm, em um total de 1 vez.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Wagner Morel »

Elane,

Boa tarde!

Anexe seu arquivo aqui no fórum.


Elane2020
Colaborador
Colaborador
Mensagens: 36
Registrado em: Sex Jun 26, 2020 9:26 pm

Re: ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Elane2020 »

Boa tarde, Wagner!

Muito obgda por responder. Segue o modelo. Pesquisando aqui no fórum, vi que foi disponibilizado um tipo de filtro bem mais interessante. No entanto, não consegui ativar o evento ListBox_DblClick para que os dados retornem para o formulário principal para a edição dos dados.
Agradeço pela ajuda.

Cordialmente,

Elane
Anexos
Modelo.zip
(76.06 KiB) Baixado 178 vezes


Elane2020
Colaborador
Colaborador
Mensagens: 36
Registrado em: Sex Jun 26, 2020 9:26 pm

Re: ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Elane2020 »

Wagner,

Consegui transferir os dados da listbox para a edição/exclusão no userform. Mas não vou colocar o tópico como resolvido, pq ainda estou finalizando essa planilha. De qualquer forma, muito obgda! E se precisar, eu deixo minha dúvida aqui, novamente.

Cordialmente,

Elane


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Wagner Morel
Manda bem
Manda bem
Mensagens: 107
Registrado em: Qua Nov 29, 2017 11:51 am
Localização: Fortaleza - CE

Re: ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Wagner Morel »

Elane,

Boa noite!

Tive que desabilitar todas essas funções de API's do Windows pois no meu Excel aqui (2007) elas não funcionaram. Apesar de ter desabilitado (apenas comentando) não senti falta delas na execução do código.

Se o que você queria era apenas quando desse um duplo clique no item selecionado na ListBox que os dados do respectivo item fosse pro formulário de Controle para poder trabalhar os dados, então fiz dessa forma.

Veja se é isso mesmo.
Anexos
Modelo.zip
(74.97 KiB) Baixado 241 vezes


Elane2020
Colaborador
Colaborador
Mensagens: 36
Registrado em: Sex Jun 26, 2020 9:26 pm

Re: ERRO: Não foi possível definir a propriedade List. Valor de Propriedade inválido.

Mensagem por Elane2020 »

Muito obgda Wagner!

Desejo uma excelente semana!

Cordialmente,

Elane


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder