Pessoal,

Eu tenho uma listview com 5 colanas.

Na 5° coluna, a mesma apresenta o status da programação (Aprovado ou Reprovado).

Nessa listview existe checkbox's para selecionar as linhas a serem gravadas na sheets.

Eu preciso de um código que só permita o cadastro das linhas que estiverem com o status Aprovado. Seria mais ou menos assim:

Dim iRow As Integer
Dim i, w, lastRow As Integer

Dim rStartCell As Range

Set rStartCell = Plan41.Range("A65536").End(xlUp).Offset(1, 0)
For i = 1 To lslista.ListItems.Count

If lslista.ListItems(i).Checked = True And Me.lslista.SelectedItem.SubItems(4) = "Aprovado" Then

RESPONSE = MsgBox("Você confirma o cadastro da programação : " & lslista.ListItems(i).Text, vbYesNo, "Atenção!")

Select Case RESPONSE

Case 6

Call CódigoCadastro


Case 7

'não faz o cadastro e da continuidade no loop.

End Select

End If

O que está errado nesse código que, mesmo se o status da linha estiver com reprovado, o cadastro é realizado?