Deel verplaatsen

[robdgr]

In dit bericht geeft Niels een code om een hele rij te verplaatsen.

Ik probeer hem aan te passen, maar zie het even niet. Mijn gegevens zijn:
als bijv H8 is "niet gehonoreerd" E8:I8 verplaatsen naar blad "Afgewezen", dus niet de hele rij.

Private Sub Worksheet_Change(ByVal Target As Range)
irow = Sheets("Vakantie-aanvragen").Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not Intersect(Target, Range("h:h")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "niet gehonoreerd" Then
Target.Range(Cells(irow, 5), Cells(irow, 9)).Copy
Sheets("Afgewezen").Rows(irow).Insert shift:=xlDown
Target.Range(Cells(irow, 5), Cells(irow, 9)).Delete
End If
End If
End Sub

 

[Niels28]

Dag Rob,

lukt het hiemee?

Private Sub Worksheet_Change(ByVal Target As Range)
irow = Sheets("Vakantie-aanvragen").Cells(Rows.Count, 2).End(xlUp).Row + 1
If Not Intersect(Target, Range("h:h")) Is Nothing Then
If Target.Cells.Count > 1 Then Exit Sub
If Target.Value = "niet gehonoreerd" Then
Range(Cells(Target.Row, 5), Cells(Target.Row, 9)).Copy
Sheets("Afgewezen").Rows(irow).Insert shift:=xlDown
Range(Cells(Target.Row, 5), Cells(Target.Row, 9)).Delete
End If
End If
End Sub

Niels

 

[robdgr]

Niels,

Helaas, er gebeurt niets. Kan het zijn dat lege regels, zoals te zien in de bijlage, roet in het eten gooien? Nee, het was de hoofdletter. Ik had in de code "niet"gezet, maar in H staat "Niet". Code aangepast en het werkt. Dank.

 

[Niels28]

Dag Rob,

Dat is te voorkomen met

If UCase(Target.Value) = "NIET GEHONOREERD" Then

Maakt niet uit of je hoofd of kleine letters type of door elkaar.

Niels

 

[robdgr]

Nogmaals dank, heb de regel gewijzigd.