Behoud opmaak en validatie als waarden geknipt worden

[goof2808]

Hi

Ik heb code(zie hieronder) om de inhoud van een rij(A t/m K) te knippen en op een ander blad te zetten als de waarde in kolom F 'FIN' is.

Mijn probleem is dat als je knipt de opmaak en validatie verdwenen is.
Hoe los ik dit op?

Alvast bedankt!

govi

Private Sub Worksheet_Change(ByVal Target As Range)
     
    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Column <> 6 Then Exit Sub
    If Target = "FIN" Then
        Range("A" & Target.Row & ":K" & Target.Row).Cut Sheets("Archief").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    End If
End Sub

 

[Wigi]

Dan zal je het moeten uitsplitsen:

eerst gewoon kopiëren, vervolgens de cellen met Clear ontdoen van inhoud én opmaak.

Wigi

 

[goof2808]

Ik kom er niet uit!

 

[Wigi]

Ik kom er niet uit!

1. Vervang Cut door Copy.
2. En na de regel van het kopiëren, komt er nog een regel met Clear:

Range("A" & Target.Row & ":K" & Target.Row).Clear

Wel moet je oppassen voor dit: met die acties in de macro heb je weer een Change event, dus weer dezelfde code, dus weer het event, dus weer dezelfde code, enz.

Om dit tegen te gaan gebruik je

Application.EnableEvents = False

voordien en

Application.EnableEvents = True

nadien.

Wigi

 

[goof2808]

Hi Wigi,

Het gaat niet goed, ik raak de opmaak en validatie toch kwijt.
(zie rij 6 en 7 van blad 'ToDo')

Ik heb ipv Clear ook Delete geprobeerd, ging niet goed.

govi

 

[Wigi]

Hoi

Doe ClearContents i.p.v. Clear. Clear haalt naast de inhoud van de cellen ook alle opmaak weg.

Wigi

 

[goof2808]

Klopt bedankt!