select next empty row

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Im a novice and cant seem to find my answer. Sheet1 in my workbook is a data
buffer to i simply paste text, sheet 2 organizes the info into a readable
format, but only does this for the pasted data, what i want to do is hit a
button to have the data stored and go onto the next row to store the next set
of data when i hit the button(command) again

thanks in advance for your assistance
 
If you want to avoid pasting empty rows, try the following:

Say you data is in columns A thru Z, in column AA enter
=COUNTA(A1:Z1) and copy down

Then switch on AutoFIlter and for column AA pick Custom / is greater than 0

This will hide all the empty rows.

You can copy the whole mess with just one copy/paste rather than row-by-row!!
 
Gary

the actual setup is that i need only to paste 1 row at a time, i have found
the code shortly after this original post. the working code is as follows


************************************************************
Sub New_Record()
' New_Record Macro
' Keyboard Shortcut: Ctrl+n

' Sheet5.Select
Rows("2:2").Select
Selection.copy

With Worksheets("Sheet5")
.Cells(.Rows.Count, "A") _
.End(xlUp).Offset(1).Activate
End With

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False

End Sub
************************************************************
 
Back
Top