Dentro de um loop provavelmente
deu certo, usei um do until.
Nossa, eu to há 2 dias pensando em como fazer isso e a solução era mais simples que eu imagina...Praticamente eu faço um loop pra quase tudo, só que antes de postar não me veio essa ideia a cabeça! Kkkkk
Muitissimo obrigado,
Pra quem estiver com a mesma dúvida que eu, segue o meu procedimento
Private Sub CommandButton7_Click()
Dim linvar As Long
Dim coluna As Long
Dim sItem As Long
linvar = 2
Do Until Sheets("Ficha de Clientes").Cells(linvar, 1) = Me.ListView1.SelectedItem
linvar = linvar + 1
Loop
Sheets("Ficha de Clientes").Cells(linvar, 1).EntireRow.ClearContents
With ListView1
sItem = .SelectedItem.Index
.ListItems.Remove (sItem)
End With
End Sub
Postado : 12/12/2016 2:01 pm