VBA to copy and Clear

[MrRosco]

Happy Friday everyone

I need some help with a little project I'm working on and need some VBA code to maximize the document. Here is what i need.

1. once the form is completed i have created a summary cell with Key info that has been CONCATENATED, These can be found in cells A58:A90. Each entry will have an undefined number of rows added.

2.Once data entry is complete i have added a Button to the document for them to press which will transfer the data to the tracking sheet

3.After the above has been completed i need the document to clear ready for the next entry.

the information will be coming from the sheet "PCF 2016" and Transferred to "PCF TRACKING"

The cells that need clearing are on "PCF 2016" are C5 J5 B12:B50 E12:E50 F12:F50 K12:K50


Any help from you fine people will be greatly appreciated

Rosco

 

[BKrukowski]

Dim MyCells as Range

Set MyCells = Range("C5,J5,B12:B50,E12:E50,F12:F50,K12:K50")

MyCells.ClearContents

Set MyCells = Nothing

 

[MrRosco]

Dim MyCells as Range

Set MyCells = Range("C5,J5,B12:B50,E12:E50,F12:F50,K12:K50")

MyCells.ClearContents

Set MyCells = Nothing

Thank you