Tópicos relacionados a códigos VBA, gravação de macros, etc.
Por AMORIM123 12 Jan 2019 às 12:48
Membro 1 Estrela
Mensagens: 91
Reputação: 1
#40063
Private Sub btn_editar_Click()

Dim I As Long



For I = ListView1.SelectedItem.Index To 1 Step -1

If ListView1.ListItems.Item(I).Selected = True Then

frm_editor.Show

Else

MsgBox "Selecione um Registro!", vbExclamation, "Atenção"

End If

Next I

End Sub