Hi,
I have the following code I use in a spreadsheet however I need to make a small amendment to it, at the moment it moves information from some cells (D8:E8 & D10:E10) and drops them down into a list from row 28 column C and then clears the original cells so more data can be added.
As more and more information is added, it adds it below on the list into the next available row.
The change it need is now the list is located in another wookbook, so basically I need to point it to the file location of this?
Sub MoveDATA()
Dim NextRow As Long
Application.ScreenUpdating = False
NextRow = Sheets(1).Cells(Rows.Count, "C").End(xlUp).Row + 1
If NextRow < 28 Then
NextRow = 28
End If
Sheets(1).Cells(NextRow, "C") = Sheets(1).Range("D8:E8").Value
Sheets(1).Cells(NextRow, "D") = Sheets(1).Range("D10:E10").Value
Sheets(1).Range("D8:E8, D10:E10").ClearContents
Application.ScreenUpdating = True
End Sub
Thank You











LinkBack URL
About LinkBacks
Register To Reply
Bookmarks