Atwist
Terugkerende gebruiker
- Lid geworden
- 24 jan 2006
- Berichten
- 1.055
- Besturingssysteem
- Wndows 10
- Office versie
- 2016
Hallo forumleden,
Ik heb hier op het forum een leuke macro gevonden die ik graag wil gebruiken, deze macro begind namelijk in A2 eindigt in D2 maar ik wil dit graag wijzigen in A16 en eindigen in H16.
Dacht dat ik dit wel kon door de cel nummer te wijzigen maar dat werkte niet.
Heeft iemand een tip voor onder staande macro.
Met vriendelijke groet,
Atwist
Ik heb hier op het forum een leuke macro gevonden die ik graag wil gebruiken, deze macro begind namelijk in A2 eindigt in D2 maar ik wil dit graag wijzigen in A16 en eindigen in H16.
Dacht dat ik dit wel kon door de cel nummer te wijzigen maar dat werkte niet.
Heeft iemand een tip voor onder staande macro.
Code:
Option Explicit
Private Sub Worksheet_Activate()
Range("A2").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Count > 1 Or Target.Row <> 2 Then GoTo Einde
If Target.Column = 4 Then
Do While Not IsEmpty(Cells(2, 4))
Cells(2, 1).EntireRow.Insert
Loop
Else
GoTo Einde
End If
Range("A3: D3").Copy
Range("A2: D2").PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
Range("A2").Select
Einde:
Application.EnableEvents = True
Application.ScreenUpdating = True
Exit Sub
End Sub
Met vriendelijke groet,
Atwist
Laatst bewerkt door een moderator: