Verschiebungszellen links fügen leere Spalte am Ende der Tabelle hinzu

Question

Ich habe Daten unter M8-V68, Benutzer geben ihre Verfügbarkeit als 'Y' oder 'N' ein. Es beinhaltet 10 Tage in Folge, die Tage verschieben sich jeden Tag (durch Funktion = HEUTE()) Ich muss die Daten von den Benutzern zur Verfügung gestellt verschieben, wie die Tage sich verschieben.

Also, die Idee ist, wie folgt,

  02/11 03/11 04/11 
Mark  Y  Y  N 
Kate  N  Y  Y 

Wenn ich das Dokument morgen öffnen, würde ich folgendes sehen möchten,

  03/11 04/11 05/11 
Mark  Y  N 
Kate  Y  Y 

So werden Daten für 02/11 wird gelöscht und andere sind verschoben. Wie ich bereits erwähnt habe, verschieben sich die Daten bereits so, wie ich es möchte, also will ich nur Daten nach links verschieben und die neue Spalte für das kommende Datum wird leer sein.

Answer 1

Wenn Sie VBA geöffnet sind, dann würde dies den Trick:

Sub AddNewDate() 
    Columns("M:M").Delete Shift:=xlToLeft 
    Range("V8").Value = Int(VBA.Now + 10) 
    Range("V8").NumberFormat = "DD/MM" 
End Sub 

Es werden die Formeln in der Kopfzeile überschreiben schließlich, die mit Ihnen kann oder nicht in Ordnung sein. Wenn nicht, können Sie dies tun:

Range("M9:M69").Delete Shift:=xlToLeft 

Ich nehme Ihre Reisedaten sind in Zeile 8. Falls nicht, müssen Sie entsprechend anpassen.