loop: macro starten door validatielijst

[rubenreiling]

Beste mensen,

Ik heb een macro die start dmv een validatielijst. Er wordt een bepaalde deadline aan de activiteit toegevoegd. Dit werkt nu prima, echter zit ik nog met een vraag.

Hoe zorg ik er nu voor dat indien ik op een volgende rij (waar dus dezelfde validatieopties gelden) waar iets staat ingevuld dit ook werkt? Ik verwacht dat dit met een loop te doen moet zijn, alleen krijg ik het niet voor elkaar.

de code zover ik het nu heb is:

Private Sub Worksheet_Change(ByVal Target As Range)


If Target.Address = "$D$7" Then
ActiveSheet.Cells.EntireRow.Hidden = False
Select Case Target
Case "optie 1"
Range("V7").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[-21]+1" 'cel H7
Selection.Copy
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
End Select

Select Case Target
Case "optie 2"
Range("V7").Select
ActiveCell.FormulaR1C1 = "=RC[-14]+1"
Selection.Copy
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
End Select

Select Case Target
Case "optie 3"
Range("V7").Select
ActiveCell.FormulaR1C1 = "=R[-3]C[-21]+10"
Selection.Copy
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
End Select

Select Case Target
Case "optie 4"
Range("V7").Select
Selection.ClearContents
Selection.Copy
Range("E7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.NumberFormat = "m/d/yyyy"
End Select
End If
End Sub


alvast bedankt voor de reactie.

 

[HSV]

If Target.column = 4 Then

voor gehele D kolom.

Of:

If Not Intersect(Target, Range("D7:D20")) Is Nothing Then

voor een bereik.
Graag gebruik maken van codetags.

 

[rubenreiling]

Beste Harry,

Bedankt voor je reactie. Helaas werkt dit niet geheel naar behoren. De deadline verandert nu niet meer. Daarnaast zie ik ook niet hoe ik dit nu voor elke nieuw ingevoegde rij gaat werken.
Ik heb een voorbeeld bestandje bijgevoegd. Indien er een nieuw bedrijf wordt ingevoerd, moet er een procesfase, en vervolgens een processtap gekozen worden. Afhankelijk van deze stap is er een andere deadline (zie blad 'deadline gegevens') in de bijlage. Dit moet natuurlijk voor elke rij, voor elke activiteit werken.

alvast bedankt

Ps. ik zie nu ook hoe ik de code tussen tags kan zetten, dus doe ik in de toekomst