Reversing Logger Code

**PercivalP** · 11-09-2018, 06:38 AM

Hi there,

I have the following sub routine which records data on row 5 (Starting from Column C) but I'm still very new to VBA so could do with some help making my system more efficient please.

Sub Record_data()

Sheets("Data").Select
Sheets("Data").Rows("5:5").Select
Sheets("Data").Range("B5").Activate
Selection.Copy
Sheets("Data").Rows("7:7").Select
Sheets("Data").Range("B7").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Data").Rows("7:7").Select
Sheets("Data").Range("B7").Activate
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

End Sub

As you can see the code itself probably isn't running as smoothly as it can but the big problem is in the way it works. Everything gets cut every second and moves down a row (so the most recent recording is at the top) but I know it would be much easier for the new line every second to just occupy the next blank row each second (most recent recording at the bottom). Could somebody help me do this please?

Kind regards,

PercivalP

**AlphaFrog** · 11-09-2018, 07:34 AM

Sub Record_data()
    
    Dim NextRow As Long
    
    With Sheets("Data")
        NextRow = .Cells.Find("*", , , , 1, 2).Row + 1
        If NextRow < 8 Then NextRow = 8
        .Rows(NextRow).Value = .Rows(5).Value
    End With
    
End Sub

**Bernie Deitrick** · 11-09-2018, 10:31 AM

Sub Record_data2()
With Sheets("Data").
    .Range("5:5").Copy
    .Cells(.Rows.Count,"B").End(xlUp)(2).EntireRow.PasteSpecial Paste:=xlPasteValues
End With
End Sub

**PercivalP** · 11-13-2018, 07:54 AM

Thank you guys, works like a charm!

Reversing Logger Code

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Reversing Logger Code

Re: Reversing Logger Code

Re: Reversing Logger Code

Re: Reversing Logger Code

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] Challenging Kestrel Logger Data Separation and Calculation

Formula in VBA code is reversing values. How is this even possible?

My error logger procedure

Averaging Data Logger Output from Seconds to Minutes

Excel slow-query(formula) logger?

Code for reversing print order

Work hour logger?

Bookmarks

Bookmarks

Posting Permissions