hmltnangel
06-03-2014, 02:47 AM
Ok folks, needing a wee bit of help with this. My skills arent the greatest but I have worked this so far - and just need help to finish.
My VB Code is as follows
Sub CopySheet()
Dim wsMaster2 As Worksheet
Application.ScreenUpdating = False
Sheets("MASTER").Copy After:=Sheets(2)
With Sheets("Master (2)")
Sheets("Diary System").Range("B5:H5").Copy
Range("H12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("H12,C8") = "123"
.Range("I12,B5") = "ham"
.Range("C9") = "Await RM Update"
.Range("F8:F9") = "Yes"
.Range("M12,C16,N12,C15") = "6/10/2014"
With .Range("H12:N12")
.ClearContents
End With
.Visible = False
End With
Sheets("Diary System").Select
Application.ScreenUpdating = True
End Sub
I need to amend it a bit so that instead of copying this line "Sheets("Diary System").Range("B5:H5").Copy" - It will copy those cells from the active row each time.
Also - not sure how to make it copy the value each time rather than the value thats already in the VB
My VB Code is as follows
Sub CopySheet()
Dim wsMaster2 As Worksheet
Application.ScreenUpdating = False
Sheets("MASTER").Copy After:=Sheets(2)
With Sheets("Master (2)")
Sheets("Diary System").Range("B5:H5").Copy
Range("H12").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
.Range("H12,C8") = "123"
.Range("I12,B5") = "ham"
.Range("C9") = "Await RM Update"
.Range("F8:F9") = "Yes"
.Range("M12,C16,N12,C15") = "6/10/2014"
With .Range("H12:N12")
.ClearContents
End With
.Visible = False
End With
Sheets("Diary System").Select
Application.ScreenUpdating = True
End Sub
I need to amend it a bit so that instead of copying this line "Sheets("Diary System").Range("B5:H5").Copy" - It will copy those cells from the active row each time.
Also - not sure how to make it copy the value each time rather than the value thats already in the VB