Buongiorno
Ho questo codice dove, selezionando più righe nella listbox, vengono scritte nel foglio (Base199).
Volevo sapere se è possibile, man mano che seleziono le righe, avere il conto di quante righe sono selezionate nella Testbox3 (invece ora mi da solo il numero/posizione dell'ultima riga selezionata).
Grazie
Private Sub ListBox199_Change()
Dim I As Integer
Dim my_S As String
Application.ScreenUpdating = False
With ListBox199
For I = 0 To .ListCount - 1
If .Selected(I) = True Then
my_S = Switch(Len(my_S) = 0, .List(I), Len(my_S) <> 0, my_S & " " & .List(I))
End If
Next I
End With
Worksheets("Base199").Range("AO1").Value = my_S
Application.ScreenUpdating = True
'
For conta = 0 To ListBox199.ListCount - 1
If ListBox199.Selected(conta) = True Then
TextBox3.Value = conta
End If
Next conta
'
End Sub