You are here:Home-Domande su Excel VBA e MACRO-Aggiungere un comando uguale nello stesso foglio-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: 771

    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

    Ciao By Sal (8-)
    se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie