V
Vacuum Sealed
Hi All
This line of code has served me well to date in other workbooks I have
created, that said.! not so in this particular book that is causing me to
spend alot of time here asking for help....
Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select
In the following code it works well on the first pass placing everything
where it should be, but then when I hit it again, it overwrites the first,
when it is supposed to go to the next available blank cell below.
This particular piece of code only needs to copy into a range of Rows 10 to
19.
So, first entry goes into "Y10" and then copies the offset values.
Then if the user has another entry to add to it, it should drop down to the
next available blank cell which would be "Y11", and do it's thing there and
so on....
Sub Go_Runsheet()
With Application
.ScreenUpdating = False
End With
Sheets("RunSheet P1").Select
Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select
ActiveCell.Select
With Selection
.Value = Sheets("Run Setup").Range("D2").Value
End With
ActiveCell.Offset(0, 55).Select
With Selection
.Value = Sheets("Run Setup").Range("A2").Value
End With
ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("B2").Value
End With
ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("F2").Value
End With
Range("AU30").Select
With Selection
.Value = Sheets("Run Setup").Range("E2").Value
End With
With Application
.ScreenUpdating = True
End With
End Sub
As always
Many thanks in advance for any asistance you can afford me..
Cheers
Mick.
This line of code has served me well to date in other workbooks I have
created, that said.! not so in this particular book that is causing me to
spend alot of time here asking for help....
Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select
In the following code it works well on the first pass placing everything
where it should be, but then when I hit it again, it overwrites the first,
when it is supposed to go to the next available blank cell below.
This particular piece of code only needs to copy into a range of Rows 10 to
19.
So, first entry goes into "Y10" and then copies the offset values.
Then if the user has another entry to add to it, it should drop down to the
next available blank cell which would be "Y11", and do it's thing there and
so on....
Sub Go_Runsheet()
With Application
.ScreenUpdating = False
End With
Sheets("RunSheet P1").Select
Columns("Y").Find("", Cells(Rows.Count, "Y"), xlValues, _
xlWhole, , xlNext).Select
ActiveCell.Select
With Selection
.Value = Sheets("Run Setup").Range("D2").Value
End With
ActiveCell.Offset(0, 55).Select
With Selection
.Value = Sheets("Run Setup").Range("A2").Value
End With
ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("B2").Value
End With
ActiveCell.Offset(0, 1).Select
With Selection
.Value = Sheets("Run Setup").Range("F2").Value
End With
Range("AU30").Select
With Selection
.Value = Sheets("Run Setup").Range("E2").Value
End With
With Application
.ScreenUpdating = True
End With
End Sub
As always
Many thanks in advance for any asistance you can afford me..
Cheers
Mick.