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-26T22:16:11+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

    ho fatto  il procedimento che hai scritto, ho eliminato le istruzioni ho inserito

    Me.TextBox2.Value = ULTIMO_CLIENTE_REG(SH)

    al posto della parte cancellata, ho aggiunto il modulo1 e ho trascritto l’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
    
    mi da errore run-time 1004
    Metodo Range dell'oggetto _Worksheet non riuscito.
    ho sbagliato qualcosa?