Bestand verplaatsen naar een andere map als bepaalde cel gevuld is

[leeuwin]

Is het mogelijk als een in excel-bestand een bepaalde cel gevuld is, deze bij het opslaan te verplaatsen naar een andere map.

Ik maak Excel-bestanden van gewerkte uren etc. Deze staan in een map Onderhanden werk.
Als hiervan een factuur is gemaakt, geef ik dit aan in het Excel-bestand. Daarna verplaats ik het nu handmatig naar een map Gefactureerd.

Het zou mooi zijn als dit "automatisch" gebeurd als ik het bestand opsla.

Let op ! ik wil het bestand verplaatsen niet kopiëren. Het gaat om de complete bestanden die ik wil verplaatsen naar een andere locatie.

 

[Roncancio]

Zodra er in de B-kolom een wijziging plaatsvindt, dan wordt het bestand waarvan de naam in de A-kolom staat verplaatst van Onderhanden werk naar Gefactureerd.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Dim sBestNaam As String
    sBestNaam = Range("A" & Target.Row).Value & ".xls"
    
    If Chr(64 + Target.Column) = "B" Then
        Name "C:\Onderhanden werk\" & sBestNaam As "C:\Gefactureerd\" & sBestNaam
    End If

End Sub

Met vriendelijke groet,


Roncancio