Hello,
Everyone I am working on a Golf score tracking / recording Workbook and I ran into a little bit of a Snag. I have a main page where the league manager enters the Scores on a weekly basis. I have a custom form that has Dropbox so we can change the week we are will be scoring for. I recently had to enter formula into one of cells on the main page and when I look at the Score tracking page. I noticed the formula is being copied over and I just want the Value. I thought I could use .PasteSpecial xlPasteValues. I thought I could just replace the .copy But this does not seem to be the case. Message states stating expected End statement.
thanks for the help
Everyone I am working on a Golf score tracking / recording Workbook and I ran into a little bit of a Snag. I have a main page where the league manager enters the Scores on a weekly basis. I have a custom form that has Dropbox so we can change the week we are will be scoring for. I recently had to enter formula into one of cells on the main page and when I look at the Score tracking page. I noticed the formula is being copied over and I just want the Value. I thought I could use .PasteSpecial xlPasteValues. I thought I could just replace the .copy But this does not seem to be the case. Message states stating expected End statement.
thanks for the help
Code:
Sub MoveScores()
Dim r As Range, c As Range, msg As String
With Sheets("Main").Range("D1").CurrentRegion
For Each r In Sheets("ScoreTracker").Range("D1:BW1")
Set c = .Rows(1).Find(r.Value, , , xlWhole, , 0)
If Not c Is Nothing Then
.Columns(c.Column).Copy r
Else
msg = "ScoreTracker has been updated"
End If
Next
Application.CutCopyMode = False
End With
If Len(msg) Then MsgBox msg
End Sub
Last edited: