You are here:Home-Domande su Excel VBA e MACRO-[RISOLTO] ListBox MultiSelect elimina righe-Rispondi a: [RISOLTO] ListBox MultiSelect elimina righe
Rispondi a: [RISOLTO] ListBox MultiSelect elimina righe2018-01-25T22:19:43+01:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] ListBox MultiSelect elimina righe Rispondi a: [RISOLTO] ListBox MultiSelect elimina righe

AvatarDastardly
Partecipante
    Post totali: 20

    Ciao Sid

    scusami se usufruisco della tua pazienza.

    ho inserito l’ultimo codice vba che hai postato.

    quando mi si apre l’userform, la textbox2 mi da il numero di quanti clienti ho nella listbox, quindi nel

    Private Sub UserForm_Initialize()

    dovrei sostituire questo codice:

    Dim I As Integer
    Dim WB As Workbook
    Dim SH As Worksheet
    Dim rng As Range

    Set WB = ThisWorkbook
    Set SH = WB.Sheets(“AnagClienti”)
    Set rng = SH.Range(“A” & Rows.Count).End(xlUp)

    With Me.TextBox2
    .Text = rng.Row – 3

    .Enabled = False
    End With

    con un’altro codice vba.

    Quando elimino un cliente la tua formula funziona, mi da l’ultimo codice inserito.

    ma quando poi ricarico la lista con il pulsante private sub mCaricaTuttiDati_click

    mi ritorna il numero dei clienti presenti nella listbox, e anche lì è presente la stessa formula che ho postato qua sopra.

    Che cosa devo fare copiare questa formula:

    If Me.ListBox1.ListCount = 0 Then
        Me.TextBox2.Value = "Nessuno" ' o quello che vuoi te
    Else
        Me.TextBox2.Value = vNewTab(1, nIncr)
    End If
    
    nel Private Sub UserForm_Initialize() e nel Private sub mCaricaTuttiDati_click ?
    
    Grazie