You are here:---Rispondi a: [RISOLTO] Convalida dati
Rispondi a: [RISOLTO] Convalida dati 2018-07-18T16:07:36+00:00

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

sidsid
Moderatore
    Post totali: 502

    Le macro possono essere eseguite sia da comando, sia da evento
    Private Sub Worksheet_Change(ByVal Target As Range)
    Quel codice è un “evento” del foglio, e viene eseguito quando una o più celle vengono modificate.

    Per quanto riguarda l’esecuzione su più fogli, non c’è bisogno di inserire un codice per ogni modulo foglio, ma basta sfruttare l’evento SheetChange del modulo Questa_cartella_di_lavoro (oppure Thisworkbook, a seconda della versione dell’applicazione)

    Scusa ma la variabile nRiga va dichiarata Long

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

    Nell’istruzione
    Case “Foglio1”, “Foglio2”, “Foglio3”
    Inserisci tutti i nomi dei fogli in cui vuoi che venga eseguita la macro; mi raccomando, tra virgolette e separati da virgola

    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