Hvis jeg har forstået dig rigtig. Hvis der i cellerne F20 til F400 tastet 100, skal værdien fra F18 kopieres over kolonne J for den tilsvarende række fra kolonne F
Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("F20:F400")) Is Nothing Then On Error Resume Next If Target.Value = 100 Then Target.Offset(, 4).Value = Range("F18").Value End If If Target.Value <> 100 Then Target.Offset(, 4).Value = "" End If End If End Sub
|
For at bruge kode, kopiere ovenstående, højre klik på faneblad navnet (eks: Ark1), vælg "Vis programkode"", i vinduet som kommer frem, indsæt den kopierede kode. Gå tilbage til excel og test koden
Altid teste kode på et ark hvor ingen skade kan ske.