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