VBA Rows.Copy Problem

[beartooth91]

Not sure what I'm doing wrong here, its only pasting the last entry. There should be 6 lines pasted.

Sub ForEa_Test()
'
With Worksheets("Combined")
  Dim Lrw As Long
  Lrw = .Cells(Rows.Count, "B").End(xlUp).Row

  For Each cell In .Range("B8:N" & Lrw)
    If cell.Value = "DI" Then
       cell.EntireRow.Copy Destination:=Sheets("New2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    End If
  Next cell
End With
End Sub

 

[beartooth91]

This worked. Thanks. The only problem is I'm not understanding why my version didn't work. Your solution agrees with Fluff's post......I'm just not really understanding what Column A has to do with it......?

Unless..... Since Column A is empty.....its always finds the same start row and is pasting each entry over the previous.....

 

[Fluff]

The only problem is I'm not understanding why my version didn't work.

See post#8

 

[maxpit]

Hi Fluff,

I suggested the solution detailed in post #7 because if you use the following code snippet

cell.EntireRow.Copy Destination:=Sheets("New2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

I got the following error message:

See you soon

 

[MARK858]

I got the following error message:

try...

cell.EntireRow.Copy Destination:=Sheets("New2").Cells(Rows.Count, 2).End(xlUp).Offset(1, -1)

 

[maxpit]

Hi Mark858,

Sheets("New2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

you are right, but I forgot to edit the last parameter of Offset...