Alberto Moura em 27/8/2020, 14:37
Obrigado mais uma vez o mestre Avelino Sampaio e ao colega cleverson_manaus.
Funcionou direitinho...
Segue o código como ficou:
Dim n As Integer
For n = (Me!ListQtdAgendaNotas.ListCount - 1) To 0 Step -1
'------------------------------
'Vai marcando item por item
If Me!ListQtdAgendaNotas.Column(1, n) = Format(txtDataAgendamento, "dd/mm/yyyy") Then ' aonde zero(estou pegando o dado da primeira coluna)
'------------------------------
Me!ListQtdAgendaNotas.Selected(n) = True 'seleciona a data de acordo com a txt
Else
Me!ListQtdAgendaNotas.Selected(n) = False 'caso não tenha a data no listbox desmarca a seleção anterior
End If
Next