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-26T19:17:55+01:00

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

sidsid
Moderatore
    Post totali: 752

    Questa una possibile soluzione:
    Nell’evento Initialize della form elimina le istruzioni

    With Me.TextBox2
         .Text = rng.Row - 3
         .Enabled = False
    End With

    Al loro posto la chiamata alla UDF; il parametro che passo (SH) è il foglio AnagClienti
    Me.TextBox2.Value = ULTIMO_CLIENTE_REG(SH)
    In un modulo standard la UDF

    Function ULTIMO_CLIENTE_REG(ByVal ws As Worksheet) As Variant
    If ws.Range("A" & nRiga).Value = vbNullString Then
        ULTIMO_CLIENTE_REG = "nessuno" ' o quello che vuoi te
    Else
        ULTIMO_CLIENTE_REG = ws.Range("A" & ws.Range("A" & Rows.Count).End(xlUp).Row)
    End If
    End Function

    Se in un’altra parte del codice ti occorre sapere l’ultimo cliente registrato, puoi usare questa udf
    Spero sia chiaro.

    • Questa risposta è stata modificata 2 anni, 7 mesi fa da sidsid.
    • Questa risposta è stata modificata 2 anni, 7 mesi fa da sidsid.