Copy and Paste from one sheet to another or transfer data from one sheet to another.

[DanSMT]

All,

I'm trying transfer data from one sheet to another. Doesn't seem to be working.

Worksheets("Sheet1").Cells(Rows.Count, "F2").End(xlDown).Row.Value = Worksheets("Sheet2").Range("B5").Value

Any idea what im missing?

 

[DanteAmor]

How about:

Sub test1()
  Sheets("Sheet1").Range("F" & Sheets("Sheet1").Range("F" & Rows.Count).End(xlUp).Row + 1).Value = Sheets("Sheet2").Range("B5").Value
End Sub

 

[DanSMT]

Doesn't appear to be working. I believe reason may because im trying to pull the data from a table because it has a formula that I am calculating to generate numbers. Is there a way to get it to read the last cell in column F of the table?

 

[DanteAmor]

Try the following for a table

Sub test1()
  Dim lr As Long, sh As Worksheet
  Set sh = Sheets("Sheet1")
  lr = 2
  Do While sh.Cells(lr, "F") <> ""
    lr = lr + 1
  Loop
  sh.Range("F" & lr).Value = Sheets("Sheet2").Range("B5").Value
End Sub

 

[DanSMT]

Doesn't appear to be targeting the table. I end up with no data in the target destination "B5"

 

[DanteAmor]

What is the source and what is the destination?

 

[DanSMT]

Source = last cell in column F of table in sheet 1
Destination = B5 in sheet 2

 

[DanSMT]

Im thinking I may need to copy from the cell instead of just transferring the data, because there is a formula in the source cell that generates a number based on a statement if data exists in another cell to generate a number.

 

[DanSMT]

Got it!

Worksheets("Sheet 1").Activate
Range("F" & Cells.Rows.Count).End.Select
ActiveCell.Copy
Worksheets("Sheet 2").Activate
Worksheets("Sheet 2").Range("B5").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues

 

[DanteAmor]

Your initial code is upside down.

Worksheets("Sheet1").Cells(Rows.Count, "F2").End(xlDown).Row.Value = Worksheets("Sheet2").Range("B5").Value

Must be:
Destination = Source

Then

Sub test1()
  Dim lr As Long, sh As Worksheet
  Set sh = Sheets("Sheet1")
  lr = 2
  Do While sh.Cells(lr, "F") <> ""
    lr = lr + 1
  Loop
  [COLOR=#0000ff]Sheets("Sheet2").Range("B5").Value[/COLOR] = [COLOR=#b22222]sh.Range("F" & lr - 1).Value[/COLOR]
End Sub

Or

Sub test2()
  [COLOR=#0000ff]Sheets("Sheet2").Range("B5").Value[/COLOR] = [COLOR=#b22222]Sheets("Sheet1").Range("F1").End(xlDown).Value[/COLOR]
End Sub