Actie op moment dat zich een nieuw feit voordoet

[Robert Smidt]

Hallo helpmijers,

Onderstaande code werkt perfect echter is het mijn bedoeling dat er een actie komt wanneer zich een bepaald feit voordoet en niet zoals onderstaande code dat de regel eerst actief moet zijn.

Met andere woorden; Op moment dat ik op de knop kopiëren druk moet het systeem kijken of er ergens in het Excelbestand een nieuw feit voordoet - ongeacht of de regel actief is - die voldoet aan onderstaande voorwaarde, zo ja, dan moet er een actie plaatsvinden zoals hieronder staat beschreven.

[XML]
Sub kopieren()
If ActiveCell.EntireRow.Range("m1") <> "Uitstel" Then
If ActiveCell.EntireRow.Range("r1") = "" Then
ActiveCell.EntireRow.Range("a1:ag1").Cut [Afgehandeld! a65536].End(xlUp).Offset(1, 0)
Sheets("Afgehandeld").Select
With [A2:ag10000]
.Sort [a2], xlAscending
End With
Sheets("Aanvraag G-rek").Select
ActiveCell.EntireRow.Delete Shift:=xlUp
Rem Range("B4").Select
End If
End If
End Sub[/XML]

Mocht bovenstaande niet duidelijk zijn, dan hoor ik dat graag.

Met vriendelijke groeten,
Robert

 

[spaarie]

Als er nu een cel in M2:M* gewijzigd wordt doet ie het vanzelf...
Plak achter je tabblad Aanvraag G-rek

Private Sub Worksheet_Change(ByVal doel As Range)
    If Not Intersect(doel, Range("M1:M" & Range("M" & Rows.Count).End(xlUp).Row)) Is Nothing Then
        If doel <> "Uitstel" Then
            If doel.Offset(, 5) = "" Then
                doel.EntireRow.Copy Sheets("Afgehandeld").Range("A" & Rows.Count).End(xlUp).Offset(1)
                doel.EntireRow.Delete xlUp
                Sheets("Afgehandeld").Range("A2").Sort , xlAscending
            End If
        End If
    End If
End Sub

 

[Robert Smidt]

bedankt voor de code, ik ga deze morgen uitproberen...nogmaals hartelijk bedankt, ben hier echt blij mee