Excel/VBA - Kopieren und einfügen von Daten in ein Arbeitsblatt in einer bestimmten Zeile basierend auf Datum

Habe ich, was ich denke, ist eine ziemlich einfache Frage.

Ich habe einen Bericht, der täglich aktualisiert wird. Einen bestimmten Bereich (B5:AC5) aus einem Arbeitsblatt kopiert werden muss, um zu einem anderen Arbeitsblatt, auf einer täglichen basis. Das muss nicht automatisch gemacht werden, ich möchte nur hinzufügen den code für Sie in ein Formatierungs-makro habe ich erstellt.

Ich habe zwei Probleme mit diesem:

  1. Möchte ich die Daten eingefügt werden, die Zeile, entspricht, die mit diesem spezifischen Tag. Spalte A im Tabellenblatt "Täglich" hat die Liste der Arbeitstage für diesen Monat. Also alles, was ich brauchen, ist für das makro zu finden, der das heutige Datum in Spalte A in "Täglich" und "einfügen" b5:AC5 von "Matrix" in b?:ac? in dieser Zeile auf "Täglich".
  2. Brauch ich auch, dass es ein "Inhalte einfügen" nur die Werte eingefügt werden.

Ich bin sehr neu in VB, können aber in der Regel Folgen die code-Logik ziemlich gut. Lassen Sie mich wissen, wenn Sie weitere Informationen von mir. Vielen, vielen Dank!

InformationsquelleAutor Steven Ell | 2011-08-10

  1. 1

    Vorausgesetzt, dass Ihre Bandbreite wird immer in B5:AC5, hier ist was ich kam mit: 

    Sub FindToday()

    Dim FoundDate As Range
    Set FoundDate = Worksheets("Daily").Columns("A").Find(DateValue(Now), LookIn:=xlValues, lookat:=xlWhole)

    If Not FoundDate Is Nothing Then ' if we don't find the date, simply skip. 
        Worksheets("Matrix").Range("B5:AC5").Copy
        FoundDate.Offset(0, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, False, False ' You can see that the first argument in PasteSpecial is set to only paste values. 

   End If
End Sub

    Getestet habe ich diese, so gut ich konnte, angesichts Ihrer Informationen. Ich habe eine Reihe von aufsteigenden zahlen in der B5:AC5-Bereich, mit Formeln, setzen Sie eine Reihe von aufsteigenden Termine für einen Monat in der Täglichen Blatt, und es scheint zu tun, was du bist suchen für.

    Hoffe, das hilft.

    Wow, das funktionierte perfekt. Ich weiß wirklich zu schätzen, dass du mir helfen!
    Kein problem. Froh, dass es gut funktioniert. 🙂

    InformationsquelleAutor Paul McLain

Schreibe einen Kommentar