Moving records from a sheet to another

  • Thread starter Thread starter LoveCandle
  • Start date Start date
L

LoveCandle

Hi everbody,

This is my first question in this great forum and I hope I find the
satisfactory answer for it,

I have this code witch works on moving one record only form a sheet to
another, I want to edit it to be able to move more than one record at
the same time.


Code:
--------------------
Sub FillSalesList()
With Sheets("2").Columns(1).Rows(65536).End(xlUp)
.Offset(1, 0) = Sheet1.[a2]
.Offset(1, 1) = Sheet1.[b2]
.Offset(1, 2) = Sheet1.[c2]
.Offset(1, 3) = Sheet1.[d2]
.Offset(1, 4) = Sheet1.[e2]
.Offset(1, 5) = Sheet1.[f2]
.Offset(1, 6) = Sheet1.[g2]
End With
[a2] = [a2] + 1
[b2:g2].ClearContents
End Sub
 
Hi LoveCandle,

Try:

'================>>
Public Sub FillSalesList()
Dim srcRng As Range
Dim destRng As Range
Dim vVal As Long

Dim Lrow As Long

Lrow = Cells(Rows.Count, "A").End(xlUp).Row

Set srcRng = ActiveSheet.Range("A2:G" & Lrow)
Set destRng = Sheets("2"). _
Cells(Rows.Count, "A").End(xlUp)(2)

srcRng.Copy Destination:=destRng

vVal = Range("A" & Lrow).Value + 1

srcRng.ClearContents
srcRng(1) = vVal

End Sub
'<<================
 
Back
Top