Excel Einfügen von Daten von einem Blatt zum anderen in der gleichen Reihenfolge

Question

Ich verwende den folgenden Code, um die Daten von einem Blatt in ein anderes zu legen. Die Tabelle scheint jedoch umgekehrt zu sein. Wie lese ich es von unten nach oben statt oben unten

Code:

Sub InsertData() 
    Dim dc As Range 
    With Sheets("Open Tickets") 
     For Each dc In Intersect(.Range("J:J"), .UsedRange) 
      If dc.Value2 >= 14 Then 
       dc.Resize(1, 1).EntireRow.Copy 
       Sheets("Dashboard").Rows(6).Insert Shift:=xlDown 
      End If 
     Next 
    End With 
End Sub 

Answer 1

Wenn Sie immer vor dem 6. Zeile einzufügen, 6 Reihe Verschiebung nach unten, dann der erste Einsatz in der Reihe sein wird 6, Verschieben des alten Inhalts von Zeile 6 nach unten. Der zweite Einsatz befindet sich ebenfalls in Reihe 6 und verschiebt den ersten Einsatz nach unten. Der dritte Einsatz befindet sich ebenfalls in Reihe 6, wobei der zweite und der erste Einsatz nach unten verschoben werden und so weiter.

Sie sollten einen Zeilenzähler haben. Wie so:

Sub InsertData() 
    Dim dc As Range 
    Dim lRow As Long 
    lRow = 6 
    With Sheets("Open Tickets") 
     For Each dc In Intersect(.Range("J:J"), .UsedRange) 
      If dc.Value2 >= 14 Then 
       dc.Resize(1, 1).EntireRow.Copy 
       Sheets("Dashboard").Rows(lRow).Insert Shift:=xlDown 
       lRow = lRow + 1 
      End If 
     Next 
    End With 
End Sub