Meerdere data en tijden wijzigingen bijhouden

[BasSchuring]

Beste Forumleden,

In bijgevoegd bestand wil ik graag van verschillende kolommen de wijzigingen bijhouden. Van 1 kolom lukt het wel maar hoe kan ik deze code zo maken dat het ook voor kolom G, I, K en M werk, En dan de data, tijd en username in de cel ernaast plaatst.

Ik ben benieuwd of iemand mij kan helpen. Het lijkt me niet zo spannend maar ik vind het behoorlijk ingewikkeld

Alvast bedankt!

Groeten
Bas
Bekijk bijlage filter systeem2.xlsm

 

[HSV]

De coderegel "if target.column = 5 then" vervangen door:

If Not Intersect(Target, Union(Columns(5), Columns(7), Columns(11), Columns(13))) Is Nothing Then

en boven de "End sub" een "End if" toevoegen.

 

[BasSchuring]

Top. Dit bedoelde ik. Ik zag dat jij mij de vorige keer ook al geholpen had met een stukje code.
Maar ik gelijk hierop ff door borduren?

zie bijgevoegd bestand.
Nadat de order is gesorteerd wordt deze verwerkt in het Orderoverzicht. Dit overzicht zou ik graag willen kopieren in hhet blad filter en toevoegen aan de orders welke er er staan. Daarna moet alles gesorteerd worden op leverdatum.

Kan dit ook terwijl het bestand in gebruik is door meedere gebruikers met verschillende filters??

Alvast bedankt als je of iemand hier in mee wilt denken!

Groeten
Bas

Bekijk bijlage filter systeem3.xlsm

 

[HSV]

Ik heb geen idee met meerdere gebruikers.

Sub hsvtwee()
With Sheets("Filter")
Sheets("orderoverzicht").Cells(1).CurrentRegion.Offset(1).Copy .Range("A2")
  .Cells(1).CurrentRegion.Offset(1).Sort .Range("D1")
 End With
End Sub

 

[BasSchuring]

Top maar nu kopieert hij enkel deze maar hij moet hem toevoegen. Is dat simpel aan te passen??

 

[BasSchuring]

Ow wacht hij kopieert nu de formules van de cel maar hij moet de waardes kopieren en dan toevoegen aan de andere orders in het Filterblad

 

[HSV]

Helaas begrijp ik beide vragen niet (toevoegen cq. aan de andere filters).
Ik heb de code aangepast en kopiëert alleen de waarden.

Sub hsvtwee()
With Sheets("Filter")
Sheets("orderoverzicht").Cells(1).CurrentRegion.Offset(1).Copy
  .Range("A2").PasteSpecial (xlPasteValues)
  .Cells(1).CurrentRegion.Offset(1).Sort .Range("D1")
 End With
End Sub

 

[BasSchuring]

`Wat ik bedoel is dat als ik nu een andere order toevoeg er dus in het tabblad filter niet 3 rijen staan maar 6. Dus iedere keer als ik de macro hsvtwee uitvoer moet hij ze onder elkaar kopieren zodat dit uiteindelijk een lange lijst wordt.

Maar daar ben ik al uit.
Maar omdat er formules staan in het blad Orderoverzicht welke als resultaat "" geven kopieert hij deze ook. Hoe kan ik dit omzeilen? Dus zodat hij de "lege" regels niet meeneemt?

nieuw bestand:Bekijk bijlage filter systeem3.xlsm

 

[HSV]

Zet in kolom D van blad "Orderoverzicht" de formule met de opmaak op aangepast "dd-mm-jjjj".

=RECHTS(gesorteerd!F1;LENGTE(gesorteerd!F1)-VIND.SPEC(" ";gesorteerd!F1;11))*1

De code voor het wegschrijven.

Sub hsvtwee()
Application.ScreenUpdating = False
Application.EnableEvents = False
With Sheets("Filter")
Sheets("orderoverzicht").Cells(1).CurrentRegion.Offset(1).Copy
    .Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial (xlPasteValues)
    With .Cells(1).CurrentRegion
       .Value = .Value
       .Offset(1).Sort .Range("D1")
       .Columns(1).NumberFormat = "general"
       .Columns(4).NumberFormat = "dd-mm-yyyy"
          Application.Goto .Cells(1)
      End With
  End With
    Application.EnableEvents = True
End Sub

 

[BasSchuring]

Top! Ik heb hem helemaal hoe hij moet werken. Bedankt voor je hulp!