cellen verplaatsen naar ander blad

[bjornesto]

ik heb hier een bestandje gemaakt en zou graag hebben.

Dat als de datum met twee dagen overschreden is van de huidige datum dat hij cellen B en C verzet naar ander blad wel zonder een lijn te deleten als het kan.

Bekijk bijlage Book1.xls

 

[TBM12]

Wil je dit met een macro/VBA oplossen?
Als ik het goed begrijp moet de regel dus ook blijven staan in Sheet1?

 

[bjornesto]

ja best met een macro

dat automatisch kolom B en C verplaatst wordt naar sheet 2.

Dus wanneer in kolom C 17/05/2013 en het is vandaag die datum moet het blijven staan.
Echter na 2 dagen zou dit dan moeten verschuiven naar sheet 2

Dit heeft ooit is iemand gemaakt op basis van een listbox maar nu moet het op basis zijn van de verstreken datum langer dan twee dagen.

Enkel kopieren en plakken in andere sheet want het cijfer ervoor moet blijven staan en daar achter staat ook een bol die men moet slepen om zo de plaats aan te duiden van het probleem op een plan. Daarachter staat ook nog een knop die dient om de knop terug op zijn beginpositie te zetten op dezelfde rij. (kon dit allemaal er niet in zetten omdat het te groot was het bestand)

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 Then
    waarde = Target.Value
    Select Case waarde
        Case "Returned"
            If ActiveSheet.Name = "Returned" Then Exit Sub
            Target.EntireRow.Copy Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            Target.EntireRow.Delete shift:=xlUp
        Case "Other"
            If ActiveSheet.Name = "Other" Then Exit Sub
            Target.EntireRow.Copy Sheet3.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            Target.EntireRow.Delete shift:=xlUp
        Case "In possession"
            If ActiveSheet.Name = "In Possession" Then Exit Sub
            Target.EntireRow.Copy Sheet1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0)
            Target.EntireRow.Delete shift:=xlUp
        Case Else
    End Select
End If
End Sub

 

[TBM12]

Ik heb wat voor je in elkaar gezet op de manier van je eerste bijlage (Eigenlijk is het enige dat is overgebleven de .EntireRow)
(zie bijlage)

Edit: uiteraard is dit geen eindproduct, maar je zal de de opzet waarschijnlijk wel begrijpen. Zo niet, laat het ff weten. Anders: succes met het uitwerken.