复制和粘贴列最后一行的最后数据的功能

Question

below is my code on copying and pasting the data of the last row of a column. it works on the command button but if i make it as a function, it's not working. it gives a 0 or false result. please check. thanks.

    Function CopyCell()

    Application.Volatile True
    Dim eRow As Integer
    Dim i As Integer

    With Sheets("Weekly Score")
    eRow = .Cells(Rows.Count, "N").End(xlUp).Row
    .Cells(eRow, "N").Copy
    .Range("AG3").PasteSpecial xlPasteValues
    End With

    ENd Function

Answer 1

Try doing this assign a MyFunction to your button

Option Explicit
Sub MyFunction()
   Call CopyCell
End Sub

Function CopyCell()
Application.Volatile True
    Dim eRow    As Integer
    Dim i       As Integer

    With Sheets("Weekly Score")
        eRow = .Cells(Rows.count, "N").End(xlUp).Row
        .Cells(eRow, "N").copy
        .Range("AG3").PasteSpecial xlPasteValues
    End With

End Function

Answer 2

If you want an UDF modify the function as such:

Public Function CopyCell()
    Application.Volatile True
    Dim eRow As Integer
    Dim i As Integer

    With Sheets("Weekly Score")
      eRow = .Cells(Rows.Count, "N").End(xlUp).Row
      CopyCell =  .Cells(eRow, "N").Value
    End With
End Function

Otherwise lose the Volatile and change the Function to a `Sub and simply call it manually:

Sub CopyCell()

    Dim eRow As Integer
    Dim i As Integer

    With Sheets("Weekly Score")
     eRow = .Cells(Rows.Count, "N").End(xlUp).Row
     .Cells(eRow, "N").Copy
     .Range("AG3").PasteSpecial xlPasteValues
    End With
End Sub

Remember that Application.Volatile True will cause the function to recalculate whenever any Calculation is carried out. This may seriously impact performance.