Dette et nøyaktig hva jeg var ute etter. Fant en annen tilnærming som også fungerte og fikk dermed redusert scriptet fra ca 300 linjer (!) til bare noen få. Legger ut scriptet når jeg er på jobb-pc’n
Dette scriptet jeg bruker. Scriptet ditt gjør eksakt samme jobben, NAPse
Kombinert med et script som fyller celler med haker når jeg dobbeltklikker på cellen fungerer dette utmerket.
Kode
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row >= 9 Then
With Target
If .Column = 5 Then
Application.EnableEvents = 0
.Cells.Offset(, 1).ClearContents
.Cells.Offset(, 2).ClearContents
.Cells.Offset(, 3).ClearContents
Application.EnableEvents = 1
End If
If .Column = 6 Then
Application.EnableEvents = 0
.Cells.Offset(, -1).ClearContents
.Cells.Offset(, 1).ClearContents
.Cells.Offset(, 2).ClearContents
Application.EnableEvents = 1
End If
If .Column = 7 Then
Application.EnableEvents = 0
.Cells.Offset(, -2).ClearContents
.Cells.Offset(, -1).ClearContents
.Cells.Offset(, 1).ClearContents
Application.EnableEvents = 1
End If
If .Column = 8 Then
Application.EnableEvents = 0
.Cells.Offset(, -3).ClearContents
.Cells.Offset(, -2).ClearContents
.Cells.Offset(, -1).ClearContents
Application.EnableEvents = 1
End If
End With
End If
End Sub
Sist endret av Pope; 20. oktober 2019 kl. 16:42.
Grunn: Automatisk sammenslåing med etterfølgende innlegg.