leandroxtr, segue o codigo:
Dim L3 As Integer
Dim Lu As Integer
Dim i As Integer
i = uf_lancamentos.lb_Lista_Temporária.ListIndex
If i = -1 Then Exit Sub
L3 = 2
If Planilha3.Cells(3, 1).Value = "" Then
Lu = 3
Else
Lu = Planilha3.Cells(2, 1).End(xlDown).Row - 1
If Lu < 3 Then Lu = 3
End If
Do
L3 = L3 + 1
If Planilha3.Cells(L3, 1).Value = "" Then Exit Do
If Planilha3.Cells(L3, 1).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 0) And _
Planilha3.Cells(L3, 2).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 1) And _
Planilha3.Cells(L3, 3).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 2) And _
Planilha3.Cells(L3, 4).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 3) And _
Planilha3.Cells(L3, 5).Value = uf_lancamentos.lb_Lista_Temporária.List(i, 4) Then
Planilha3.Rows(L3).Delete Shift:=xlUp
uf_lancamentos.lb_Lista_Temporária.RowSource = "List_Box_2!A3:E" & Trim(Str(Lu))
Exit Do
End If
Loop
Postado : 25/01/2017 5:54 pm