regel kopieren en verplaatsen als in een kolom een datum staat

[ewh]

In de bijlage een voorbeeld bestandje
het tab blad RMA is de basis en daar staan een aantal gegevens in
Als er een datum in kolom G een datum komt te staan dan wil ik graag met VBA dat de hele regel
wordt genipt en geplaatst op het volgende tab blad "afgehandeld"
vervolgens zal op tab blad "RMA de geknipte regel, dus nu lege regel weer opgevuld gaan worden met de daar onder liggen de regel

wie heeft daar een voorbeeld je van of wil even helpen? Bekijk bijlage RMA voorbeeld.xls

 

[gast0660]

Zoiets?

 

[ewh]

heb even zitten puzzlen maar bij mij werkt hij niet krijg een fout code bij de tweede regel

ik werk nog met excel 2003 wellicht dat daar wat zit??

en ik wil hem graag als een vba dus niet via een commandbutton maar volgens mij maakt dat niet veel uit ? toch ?

 

[edmoor]

En wat denk je dat er achter een commandbutton zit?

 

[VenA]

Maak gebruik van het Worksheet_Change event

Dan krijg je zoiets voor XL-2003

Private Sub Worksheet_Change(ByVal Target As Range)
  With Target
    If .Column = 7 And .Row > 5 And .Count = 1 Then
      Application.EnableEvents = False
      If IsDate(Target) Then
        Sheet2.Cells(65000, 1).End(xlUp).Offset(1).Resize(, 8) = .Offset(, -6).Resize(, 8).Value
        Target.EntireRow.Delete
      End If
      Application.EnableEvents = True
    End If
  End With
End Sub

 

[ewh]

Top , werkt precies zo als we willen

kan je mij een regel uitleggen wat daar gebeurd ?
If .Column = 7 And .Row > 5 And .Count = 1 Then
Application.EnableEvents = False


ik wil hem ook graag begrijpen

 

[VenA]

Microsoft heeft uitgebreide help functies om code uit te pluizen.

Er staat niet meer dan:
Als de kolom is G en de rij is groter dan 5 en er is 1 cel geselecteerd dan

 

[ewh]

helder

 

[ewh]

vanochtend je code even snel geprobeert en werkte zo als verwacht
nu blijkt dat je code in je voorbeeld niet meer werkt??
wat kan ik verkeerd doen?
heb je voorbeeld opnieuw gedownload maar ook die doet het niet ?

 

[VenA]

Je kan natuurlijk als meest informatieve zin schrijven: 'die doet het niet'. Wat heb je zoal gedaan? Staat Application.EnableEvents wel weer op True?

 

[ewh]

Sorry,
ik denk dat er was mis is gegaan. excel opnieuw gestart en alles werkte zoals bedoeld was. ebn vervolgens me bericht verwijderd ( althans dat dacht ik )

wat er nu precies aan de hand was weet ik echt niet