VBA code to paste in next empty cell of a column

[rrodwell85]

I am trying to compute a score of players based on a macro with a series of checkboxes. The output values of the check boxes are pasted on the "Calculations" worksheet where the score is then computed in cell F18. I would like to copy cell F18 and paste it in the next empty cell of column D on the worksheet of players. So far I have this code:

Dim LastRow As Long
LastRow = Sheets("Players").Cells(Rows.Count, 1).End(xlUp).Offset(1).Row


Sheets("Calculations").Range("F18").Copy
Sheets("Players").Cells(LastRow, 1).PasteSpecial xlPasteValues

This code works great but how can I modify it to paste in COLUMN D of the Players worksheet????

 

[dmt32]

Hi,
welcome to the board.

If just want to copy value from one cell to another then following change to your code should do what you want.

Sheets("Players").Cells(Cells(Rows.Count, 4).End(xlUp).Row + 1, 4).Value = _
Sheets("Calculations").Range("F18").Value

Dave

 

[HalfAce]

Hi. And welcome to the board.
Your Line:
Sheets("Players").Cells(LastRow, 1).PasteSpecial xlPasteValues
tells it to paste in row 'LastRow' column 1 (A).


To get it to paste in column D, simply change your 1 to a 4. (column D... 4th column)
Sheets("Players").Cells(LastRow, 4).PasteSpecial xlPasteValues


(Note though that, above, the variable 'LastRow' is still being defined as the last used row in column A.)


Hope it helps.

 

[rrodwell85]

Hi. And welcome to the board.
Your Line:
Sheets("Players").Cells(LastRow, 1).PasteSpecial xlPasteValues
tells it to paste in row 'LastRow' column 1 (A).


To get it to paste in column D, simply change your 1 to a 4. (column D... 4th column)
Sheets("Players").Cells(LastRow, 4).PasteSpecial xlPasteValues


(Note though that, above, the variable 'LastRow' is still being defined as the last used row in column A.)



Hope it helps.

THANK YOU! It worked perfectly!

 

[rrodwell85]

Thank you for the help! Just what i was looking for!

 

[HalfAce]

You're most welcome. Glad it helped.