PDA

View Full Version : List select and copy sheet from another location



Eugene1000
05-02-2017, 08:26 AM
TestInputForm1 is a xlsm that contains (2) things.
1) TAB1: A Name Manager that contains a list from 0-5
2) TAB2: A data validation on cell c16 that allows the user to choose between the numbers 0-5.

IF the user chooses the number "1" then I want the first of 5 forms to copy/paste below TAB2, CELL c16

Thats it! Seems simple enough but my code isn't working.

The user opens TestInputForm1

The filed to be copied below TAB2, CELL c16 of TestInputForm1 is
c:\RENEELY\TEST ENVIRONMENT\1_TESTtime_tracker_strawman.xlsm

The code that I am using that is not working is listed below. thanks for your help!!

Sub CopyWorksheet()
Dim ("c:\RENEELY\TEST ENVIRONMENT\1_TESTtime_tracker_strawman.xlsm") As Workbook
Set ("c:\RENEELY\TEST ENVIRONMENT\1_TESTtime_tracker_strawman = Workbooks("ProjectForm1")
If Range(“c16”).Value = “1” Then
Copy "ProjectForm1"
below = TestInputForm1
End Sub

mdmackillop
05-02-2017, 09:12 AM
Can you post a sample workbook. Use Go Advanced/Manage Attachments