Ik heb een vraag over een VBA code.
Ik gebruik nu deze:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Value = "Afgehandeld" Then
Range(Target.EntireRow.Address).Cut Blad2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End If
End Sub
Als ik "Afgehandeld" typ in tabblad 1, verdwijnt de hele rij naar tabblad 2. Nu werkt dit super, maar nu is de vraag; kan ik meerdere woorden toevoegen? Soms typen ze "afgehandeld" zonder hoofdletter en dan blijft de rij natuurlijk staan.
Had ik nog een vraag, zodra de rij verplaatst is naar tabblad 2, blijft er een lege rij/witte rij over. Kan deze er dan uitgeknipt worden? Dat er geen gaten vallen in de lijst (is een to do lijst).
Ben zelf niet heel handig met VBA, dus waardeer jullie hulp enorm! Kijk uit naar de reacties.
Ik gebruik nu deze:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Value = "Afgehandeld" Then
Range(Target.EntireRow.Address).Cut Blad2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
End If
End If
End Sub
Als ik "Afgehandeld" typ in tabblad 1, verdwijnt de hele rij naar tabblad 2. Nu werkt dit super, maar nu is de vraag; kan ik meerdere woorden toevoegen? Soms typen ze "afgehandeld" zonder hoofdletter en dan blijft de rij natuurlijk staan.
Had ik nog een vraag, zodra de rij verplaatst is naar tabblad 2, blijft er een lege rij/witte rij over. Kan deze er dan uitgeknipt worden? Dat er geen gaten vallen in de lijst (is een to do lijst).
Ben zelf niet heel handig met VBA, dus waardeer jullie hulp enorm! Kijk uit naar de reacties.
Laatst bewerkt: