miricleman
New Member
- Joined
- Nov 6, 2013
- Messages
- 36
Hi
I am trying to create some code that will copy and paste the values only. The code I have below will copy and paste the formula in the origin cell. all I need is the value. Can anyone Help??
Thanks
I am trying to create some code that will copy and paste the values only. The code I have below will copy and paste the formula in the origin cell. all I need is the value. Can anyone Help??
Thanks
Code:
Sub UploadInfo()
a = Sheets("Talley Sheet").Range("aindex")
Dim s1 As Worksheet, s2 As Worksheet
Set s1 = Sheets("Posting Sheet")
Set s2 = Sheets("Talley Sheet")
If Sheets("Posting Sheet").Range("AH5").Value = "" Then
GoTo 2
Else:
s1.Range("n5").Copy = s2.Range("d2").Offset(a, 0)
s1.Range("o5").Copy = s2.Range("e2").Offset(a, 0)
s1.Range("Ah5").Copy = s2.Range("f2").Offset(a, 0)
s1.Range("AI5").Copy = s2.Range("g2").Offset(a, 0)
End If
MsgBox "information Posted"
2
End Sub