You are here:---Rispondi a: Aggiungere un comando uguale nello stesso foglio
Rispondi a: Aggiungere un comando uguale nello stesso foglio2020-02-12T15:50:53+01:00

Home Forum Domande su Excel VBA e MACRO Aggiungere un comando uguale nello stesso foglio Rispondi a: Aggiungere un comando uguale nello stesso foglio

BySalvBySalv
Amministratore del forum
    Post totali: 585

    Ciao questa la Modifica

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.Intersect(Target, [i2:i5000]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Target.Offset(0, -7).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
    Application.EnableEvents = True
    End Sub

    questa riporta il valore di “I” in “B”

    scusa ho letto meglio

    Private Sub Worksheet_Change(ByVal Target As Range)
    If not Intersect(Target, [i2:i5000]) Is Nothing Then 
    Application.EnableEvents = False
    Target.Offset(0, 2).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
    Application.EnableEvents = True
    endif
    If not Intersect(Target, [B2:B5000]) Is Nothing Then 
    Application.EnableEvents = False
    Target.Offset(0, 2).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
    Application.EnableEvents = True
    endif
    End Sub

    bye bye (8-D

    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