Porque a listview/combobox não vem preenchidas

[jmarcosfigueiredo]

Galera,

Eu sou novo em VBA, e atraves de um video no Youtube, fiz uma programaçaõ, obedecendo o video, mas ele não carrega a listview e as combobox. Porque?

abaixo colo os codigos:

Private linha As Variant

Private Sub Comb_Conv_Change()

If Me.Comb_Conv = "" Then

Comb_Conv.BackColor = &HFFFFFF

Else

Comb_Conv.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call Lista

Call filtrar_dados

End Sub

Private Sub Comb_Dep_Change()

If Me.Comb_Dep = "" Then

Comb_Dep.BackColor = &HFFFFFF

Else

Comb_Dep.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub Comb_Fin_Change()

If Me.Comb_Fin = "" Then

Comb_Fin.BackColor = &HFFFFFF

Else

Comb_Fin.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub Comb_Fun_Change()

If Me.Comb_Fun = "" Then

Comb_Fun.BackColor = &HFFFFFF

Else

Comb_Fun.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 45) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub Comb_Ini_Change()

If Me.Comb_Ini = "" Then

Comb_Ini.BackColor = &HFFFFFF

Else

Comb_Ini.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub Comb_Local_Change()

If Me.Comb_Local = "" Then

Comb_Local.BackColor = &HFFFFFF

Else

Comb_Local.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub Comb_Mat_Change()

If Me.Comb_Mat = "" Then

Comb_Mat.BackColor = &HFFFFFF

Else

Comb_Mat.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 42) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub comb_Nome_Change()

If Me.comb_Nome = "" Then

comb_Nome.BackColor = &HFFFFFF

Else

comb_Nome.BackColor = &H80000005

End If

Sheets("Dados").Select

Sheets("Dados").Cells(5, 43) = comb_Nome

Call filtrar_dados

Call Lista

End Sub

Private Sub CommandButton1_Click()

On Error Resume Next

Unload Me

Application.DisplayAlerts = False

Sheets("Menu").Visible = True

Sheets("Menu").Activate

End Sub

Private Sub UserForm_Initialize()

Me.Height = Application.Height

Me.Width = Application.Width

Me.comb_Nome = ""

Me.Comb_Mat = ""

Me.Comb_Fun = ""

Me.Comb_Local = ""

Me.Comb_Dep = ""

Me.Comb_Conv = ""

Me.Comb_Ini = ""

Me.Comb_Fin = ""

Me.Comb_Dias = ""

With ListView1

.Gridlines = True

.View = lvwReport

.FullRowSelect = True

.ColumnHeaders.Add Text:="Nome do Colaborador", Width:=250

.ColumnHeaders.Add Text:="Matricula", Width:=55

.ColumnHeaders.Add Text:="Função", Width:=170

.ColumnHeaders.Add Text:="Local", Width:=115

.ColumnHeaders.Add Text:="Departamento", Width:=80

.ColumnHeaders.Add Text:="Data da Convocação", Width:=90

.ColumnHeaders.Add Text:="Data do Inicio", Width:=90

.ColumnHeaders.Add Text:="Data do Fim", Width:=92

.ColumnHeaders.Add Text:="Dias Excedidos", Width:=65

End With

Application.StatusBar = " Lembre-se de sempre fazer uma copia de backup a cada alteração!!! "

Dim linha As Variant

Dim a As Date

a = Now

UserForm1.Caption = "Controle de Períodico --->>> " & a

ListView1.Font.Size = 10

ListView1.ListItems.Clear

linha = 5

Do Until Sheets("Dados").Cells(linha, 6) = ""

Set linha = ListView1.ListItems.Add(Text:=Sheets("Dados").Cells(linha, 6).Value) ' nome do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 5).Value ' Matricula do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 8).Value ' Funçao do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 2).Value ' Local do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 40).Value ' Departamento do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 49).Value ' Data da convocação

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 50).Value ' Data do inicio

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 51).Value ' Data da conclusão

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 66).Value ' Dias decorridos

linha = linha + 1

Loop

comb_Nome.Clear

linha = 5

Do Until Sheets("Dados").Cells(linha, 43) = ""

comb_Nome.AddItem Sheets("Dados").Cells(linha, 43)

linha = linha + 1

Loop

Call Lista

End Sub

Sub Lista()

ListView1.ListItems.Clear

Sheets("Dados").Select

linha = 5

Do Until Sheets("Dados").Cells(linha, 43) = ""

If Cells(linha, 43).Rows.Hidden = False Then

Set linha = ListView1.ListItems.Add(Text:=Sheets("Dados").Cells(linha, 43).Value) ' nome do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 42).Value ' Matricula do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 45).Value ' Funçao do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 39).Value ' Local do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 40).Value ' Departamento do colaborador

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 49).Value ' Data da convocação

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 50).Value ' Data do inicio

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 51).Value ' Data da conclusão

ListView1.ListItems.Add Text:=Sheets("Dados").Cells(linha, 66).Value ' Dias decorridos

End If

linha = linha + 1

Loop

Label7 = Me.ListView1.ListItems.Count

End Sub

[Flavio Nascto]

Conseguiu resolver ?