Mandeep,
Yes... It worked... Both the output files are showing Employee Id. Thank
you so much for your help. I really appreciate your time,effort and
attitude to help others.
Regards,
On Wed, Jan 6, 2016 at 5:07 AM, Mandeep Baluja
wrote:
> Let me know !!
>
> Sub
Mandeep,
Your code worked except small glitch. The output file of Craig Smith
showing employee Id at the top of the file ,
whereas, Kelly Davis output file missing employee Id. See the attached file.
On Wed, Jan 6, 2016 at 12:18 AM, Mandeep Baluja
wrote:
> Try This
Let me know !!
Sub CreateSheetsDemo()
Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path & "\"
Glad to help !!!
Regards,
Mandeep baluja
>
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @
https://www.facebook.com/discussexcel
FORUM RULES
1) Use concise, accurate thread titles. Poor thread
Did you run the code in input file ? Have you tried debugging of code step
by step ? Why paste:=xlpasteall is deleted ? I have not received this error
while running this code something u are doing wrong unintentionally.
Regards,
Mandeep
--
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel?
>
> Try This code !!
>
Sub CreateSheetsDemo()
Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path & "\"
Mandeep
I added line #31 (wbtemp.Sheets.Add) BECAUSE MY EXCEL BOOK DOES NOT CREATES
"SHEET2" AUTOMATICALLY. When I added this line , The code runs without any
error. But Summary Tab is incorrect. See the attached output file.
Please provide some suggestions.
On Tue, Jan 5, 2016 at 12:07 PM,
Check this out !! and let me know
Sub CreateSheetsDemo()
Dim wb As Workbook
Dim wbtemp As Workbook
Dim Workrng As Range
Dim uniquename As Variant
Dim Dic As Object
Dim lr As Long: lr = Sheets("Order").Cells(Rows.Count, 4).End(xlUp).Row
mypath = ThisWorkbook.Path
Mandeep,
Thanks for your response. I am getting the below error message "Run Time
error '9' " "Subscript out of range " on the line highlighted in
yellow.
On Tuesday, January 5, 2016 at 8:05:41 AM UTC-5, Mandeep Baluja wrote:
>
> Check this out !! save this output file in a