You are here:---Rispondi a: [RISOLTO] Convalida dati
Rispondi a: [RISOLTO] Convalida dati 2018-07-17T16:29:09+00:00

Home Forum Domande su Formule e Funzioni [RISOLTO] Convalida dati Rispondi a: [RISOLTO] Convalida dati

sidsid
Moderatore
    Post totali: 502

    Ciao ad entrambi
    Giusto perchè avevo fatto il lavoro in precedenza, e non mi andava andasse sprecato.

    Nel modulo del foglio interessato

    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nRiga As Integer
    
    On Error GoTo GEST_ERR
    If Not Intersect(Target, Me.Range("K4")) Is Nothing And Target.Count = 1 Then
        nRiga = --Mid(Target.Value, 1, InStr(1, Target.Value, "*", vbTextCompare) - 1)
        Application.EnableEvents = False
        Me.Range("J2").Value = nRiga
        Application.EnableEvents = True
        Application.Goto Me.Range("A" & nRiga), True
    End If
    
    GEST_ERR:
    If Err.Number <> 0 Then
        MsgBox "Manca la riga nel valore scelto", vbExclamation
    End If
    End Sub

    PS
    non è una UDF

    EDIT
    Gli ultimi valori della lista, manca la riga.
    in questo caso vieni avvisato d aun messaggio

    • Questa risposta è stata modificata 4 mesi, 3 settimane fa da sid sid.

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi