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
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