Wie mache ich das Ausfüllen des Formulars in verschiedene Blätter nach Monat?

313
Valerie

Ich habe ein Trainings- und Diätprotokoll, das ich jeden zweiten Tag ausfülle, und ich möchte, dass die Daten auf ein anderes Blatt verschoben werden. Blatt 1 sieht aus wie ein Arbeitsblatt, und ich möchte, dass es (mit einem Knopf) am besten zu Blatt 2 verschoben wird.

Aber am ersten Tag eines neuen Monats möchte ich, dass ein neues Blatt ausgefüllt wird. So weiß ich, wie man das neue Blatt mit erstellt

Sub Macro1()  Dim szTodayDate As String szTodayDate = Format(Date, "mmmm") On Error GoTo MakeSheet Sheets(szTodayDate).Activate Exit Sub  MakeSheet:  Dim Importsheet As Worksheet 'Imports worksheet from a closed workbook If Day(Date) = 1 Then Sheets.Add Type:= _ "C:\Users\Valerie\Documents\Template.xls"  If Day(Date) = 1 Then ActiveSheet.Name = szTodayDate  End Sub

Am ersten Tag des Monats, an dem das Makro ausgeführt wird, wird also ein neues Blatt erstellt. Ich bin jedoch nicht sicher, wie ich den korrekten Tag an die richtige Zeile auf dem richtigen Blatt senden soll, und dann, wenn ein neues Blatt auf dem Am ersten Tag des Monats bin ich nicht sicher, wie das Formular auf das neue Blatt verschoben werden soll.

Blatt1 

TÄGLICHES WORKOUT UND DIET LOG  Valerie Mittwoch Training A  Gesamtlaufzeit der Planken (Minuten) 6 5  Situps Kniebeugen 30 30  Liegestütze  20

Blatt 2

Datum Training Miles Plank Situps Kniebeugen Liegestütze
0
Da wir nichts über die Struktur Ihrer Blätter wissen, können wir Ihnen nicht helfen, "den richtigen Tag an die richtige Zeile auf dem richtigen Blatt zu schicken". gtwebb vor 8 Jahren 1
Einige Diagramme Ihrer Daten würden uns helfen, Ihre Frage zu verstehen. Bitte [bearbeiten] Sie Ihre Frage, um einige Beispieldaten (vor und nach) hinzuzufügen. Unter [Text als Tabelle formatieren] (http://www.sensefulsolutions.com/2010/10/format-text-as-table.html) finden Sie ein Webdienstprogramm, das Ihnen beim Erstellen einer schönen Datentabelle hilft, die Sie einfügen können in deine Frage DavidPostill vor 8 Jahren 0
Ich habe ein paar Abschnitte der Blätter hinzugefügt, um zu zeigen, wovon ich spreche. Hoffe das klappt. @DavidPostill Danke für das Excel-Tool. Valerie vor 8 Jahren 1
Ich möchte also, dass es sich um eine Schaltfläche handelt, die ein Makro ausführt, das ich am Ende des Tages getroffen habe, wenn ich alle meine Daten in Blatt eins aufgezeichnet habe. Dadurch wird alles in Blatt zwei eingefügt. Am nächsten Tag drücke ich dann erneut auf die Schaltfläche mit neuen Daten in Blatt 1, und die Daten werden zur nächsten Zeile auf Blatt 2 von den Daten des vorherigen Tages gesendet. Wie mache ich das? Valerie vor 8 Jahren 0

0 Antworten auf die Frage

Verwandte Probleme