Automatisch van blad 1 naar blad 2

[henkvdhoven]

Beste gebruikers,

Ik hoop dat jullie me kunnen helpen. Ik ben bezig met een Excel bestand voor me werk.

Wat ik niet voor elkaar krijgt is het volgende,

Op blad 1 in alle cellen die onder kollom H zitten kan alleen met ja of nee geantwoord worden.

Als er ja ingevuld wordt wil ik dat deze hele rij met gegeven, gekopieerd wordt naar een ander Tabblad.

Ik weet dat een autofilter werkt. Omdat er veel gegevens en berekingen uitvoorkomen. Ben ik bezig met één tabblad waar alle totalen etc. in één overzicht komen te staan.

Met vriendelijke groet,

Henk

[bucky]

Henk,

Ik heb deze code voor je kunnen maken, probeer ze maar eens.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns(8)) Is Nothing And Target = "ja" Then
Target.EntireRow.Copy Sheets("Blad2").Cells(Rows.Count, 1).End(xlUp).Offset(1).EntireRow
'Application.EnableEvents = False
'Target.EntireRow.Delete
'Application.EnableEvents = True
End If
End Sub

Wil je dat de rij van Blad1 gewist wordt, dan moet je voor de groene regels de apostrof verwijderen, deze krijgen dan ook een zwarte kleur.

Gr. bucky