VBA vraag

[Hylas]

Beste forum gebruikers.

ik wil graag in in onderstaand nog een target (wat in het rood staat) toevoegen maar dat wil niet zo erg lukken wat gaat hier fout

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Value > 0 Then

With Target
.Offset(0, 4) = Date
.Offset(0, 3) = Date + 7
.Offset(0, 12) = Date + Time
.Offset(0, 6) = "In orde"
.Offset(0, 11) = "*Afdeling is schoon opgeleverd **volgens instructie schoongemaakt"
Target.Offset(0, 5).Value = DatePart("ww", Date, vbMonday, vbFirstFourDays)

If Target.Column = 8 And Target.Value > 4 Then
With Target
.Offset(0, 1) = Date

End With
End If

End Sub

Groet Ton

 

[SjonR]

probeer het zo eens:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 1 And Target.Value > 0 Then
     With Target
        .Offset(0, 4) = Date
        .Offset(0, 3) = Date + 7
        .Offset(0, 12) = Date + Time
        .Offset(0, 6) = "In orde"
        .Offset(0, 11) = "*Afdeling is schoon opgeleverd **volgens instructie schoongemaakt"
        .Offset(0, 5).Value = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    End With
End If
If Target.Column = 8 And Target.Value > 4 Then Target.Offset(0, 1) = Date
End Sub

of:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 1 And .Value > 0 Then
        .Offset(0, 4) = Date
        .Offset(0, 3) = Date + 7
        .Offset(0, 12) = Date + Time
        .Offset(0, 6) = "In orde"
        .Offset(0, 11) = "*Afdeling is schoon opgeleverd **volgens instructie schoongemaakt"
        .Offset(0, 5).Value = DatePart("ww", Date, vbMonday, vbFirstFourDays)
    End If
If .Column = 8 And .Value > 4 Then .Offset(0, 1) = Date
End With
End Sub

 

[Hylas]

Bedankt

Opgelost ;-)

blij ei, en kan je gewoon op iedere cel hierin op voort borduren?

Groet Ton

 

[Hylas]

Nog 1 vraag

Als je de waarde uit de cel haalt dan blijft de offset staan, is dit misschien ook op te lossen ??

Groet Ton

 

[SjonR]

Ja, werkt voor alle cellen binnen de opgegeven kolommen.