pedie
Well-known Member
- Joined
- Apr 28, 2010
- Messages
- 3,875
Sub copyfrom2()
With Sheets("Datas")
r = 1
lr = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If .Cells(i, "B").Value >= .Cells(3, "H").Value Then
.Cells(i, "A").Resize(, 7).Copy Sheets("Home").Cells(r, "f")
r = r + 1
End If
Next i
End With
End Sub
This code copy everything to sheet home in cell starting A1.
If i want it to copy it to E19 then what should i do?
please edit this code. Thanks
With Sheets("Datas")
r = 1
lr = .Cells(Rows.Count, "A").End(xlUp).Row
For i = 2 To lr
If .Cells(i, "B").Value >= .Cells(3, "H").Value Then
.Cells(i, "A").Resize(, 7).Copy Sheets("Home").Cells(r, "f")
r = r + 1
End If
Next i
End With
End Sub
This code copy everything to sheet home in cell starting A1.
If i want it to copy it to E19 then what should i do?
please edit this code. Thanks