ciao ragazzi, sono nuovo.
ho questo problema, ho creato una listbox, che mi filtra delle date in scadenza su una userform
ora vorrei avere la possibilità che cliccando nella listbox una riga questa mi venga selezionata/evidenziata in excel..
posto qui il codice che ho inserito
codice:Private Sub UserForm_Activate() 'calcolo la data di sistema e la salvo su una variabile MyDate = Date 'creo la riga descrizioni della ListBox FrmScaduti.LstScaduti.AddItem "COD. COMMESSA" FrmScaduti.LstScaduti.List(Rigalista, 1) = "DESCRIZIONE" FrmScaduti.LstScaduti.List(Rigalista, 2) = "SCADENZA" FrmScaduti.LstScaduti.List(Rigalista, 3) = "FUNZIONE" FrmScaduti.LstScaduti.List(Rigalista, 4) = "OGGETTO" Rigalista = 0 ActiveSheet.UsedRange.Select Riga = Worksheets(1).UsedRange.Rows.Count For Indi = 2 To Riga If Range("C" & Indi) = MyDate Then Rigalista = Rigalista + 1 FrmScaduti.LstScaduti.AddItem Range("A" & Indi) FrmScaduti.LstScaduti.List(Rigalista, 1) = _ Range("B" & Indi) FrmScaduti.LstScaduti.List(Rigalista, 2) = _ Range("C" & Indi) FrmScaduti.LstScaduti.List(Rigalista, 3) = _ Range("D" & Indi) FrmScaduti.LstScaduti.List(Rigalista, 4) = _ Range("E" & Indi) End If Next End Sub Private Sub LstScaduti_ClickList() If LstScaduti.ListIndex Then Item.Select End If End Sub

Rispondi quotando
