Please find attached query sheet and help me to resolve this. I need to create separate workbook according to PLAN and each workbook having worksheet with Issue(Refer attached sheet) with VBA Code.
For example if i run the code it gives me file with name 171SFA that contain 5 sheets with name-A,D,E,G,K with their respective data. I am only able to create separate worksheets in a workbook, can't able to split in different workbooks.
(25-Jul-2017, 04:18 PM)Gourav Kumar Wrote: Hi All,
Please find attached query sheet and help me to resolve this. I need to create separate workbook according to PLAN and each workbook having worksheet with Issue(Refer attached sheet) with VBA Code.
For example if i run the code it gives me file with name 171SFA that contain 5 sheets with name-A,D,E,G,K with their respective data. I am only able to create separate worksheets in a workbook, can't able to split in different workbooks.
Many thanks in advance.
Hi,
please find below Code & Zip file also attached
Sub Split_data()
Dim data As Worksheet
Dim temp As Worksheet ' ''''(xlsheetveryhiden)
Dim i As Integer
Dim sh_name As Variant
Dim path As String
path = ThisWorkbook.path
Set data = Worksheets("DATA")
Set temp = Worksheets("temp")
(25-Jul-2017, 04:18 PM)Gourav Kumar Wrote: Hi All,
Please find attached query sheet and help me to resolve this. I need to create separate workbook according to PLAN and each workbook having worksheet with Issue(Refer attached sheet) with VBA Code.
For example if i run the code it gives me file with name 171SFA that contain 5 sheets with name-A,D,E,G,K with their respective data. I am only able to create separate worksheets in a workbook, can't able to split in different workbooks.
Many thanks in advance.
Hi,
please find below Code & Zip file also attached
Sub Split_data()
Dim data As Worksheet
Dim temp As Worksheet ' ''''(xlsheetveryhiden)
Dim i As Integer
Dim sh_name As Variant
Dim path As String
path = ThisWorkbook.path
Set data = Worksheets("DATA")
Set temp = Worksheets("temp")
Thanks for the coding, however i need to clear one doubt .
Could you please suggest why we are using 23 in data.Cells.SpecialCells(xlCellTypeConstants, 23).Copy ActiveSheet.Range("a1") code.
I am attaching actual data where i need to run this code.
(25-Jul-2017, 04:18 PM)Gourav Kumar Wrote: Hi All,
Please find attached query sheet and help me to resolve this. I need to create separate workbook according to PLAN and each workbook having worksheet with Issue(Refer attached sheet) with VBA Code.
For example if i run the code it gives me file with name 171SFA that contain 5 sheets with name-A,D,E,G,K with their respective data. I am only able to create separate worksheets in a workbook, can't able to split in different workbooks.
Many thanks in advance.
Hi,
please find below Code & Zip file also attached
Sub Split_data()
Dim data As Worksheet
Dim temp As Worksheet ' ''''(xlsheetveryhiden)
Dim i As Integer
Dim sh_name As Variant
Dim path As String
path = ThisWorkbook.path
Set data = Worksheets("DATA")
Set temp = Worksheets("temp")
Thanks for the coding, however i need to clear one doubt .
Could you please suggest why we are using 23 in data.Cells.SpecialCells(xlCellTypeConstants, 23).Copy ActiveSheet.Range("a1") code.
I am attaching actual data where i need to run this code.
this line of code will copy only filter record and paste new workbook active sheet
if you want run this code given sample data file then you need modify code
old code -data.Range("A1:H1").AutoFilter 1, sh_name new code -data.Range("A1:w1").AutoFilter 1, sh_name
Hi,
I have already modified the range, but code is showing error message in data.Cells.SpecialCells(xlCellTypeConstants, 23).Copy ActiveSheet.Range("a1") code.
You can also find this error when you run the same code in previous file i have attached.
Please help me out.
26-Jul-2017, 07:30 PM (This post was last modified: 26-Jul-2017, 11:04 PM by Lovedeep sharma.)
You please use sheet which is shared by me only... as there is a hidden temp sheet in my file so do required modification in this file
agar aapko "data.Cells.SpecialCells(xlCellTypeConstants, 23).Copy ActiveSheet.Range("a1") code." es line se hi problem hai esi mai error aa rha hai to es code ko delete karke es code replace kar sakte hai
(26-Jul-2017, 07:30 PM)Lovedeep sharma Wrote: You please use sheet which is shared by me only... as there is a hidden temp sheet in my file so do required modification in this file
agar aapko "data.Cells.SpecialCells(xlCellTypeConstants, 23).Copy ActiveSheet.Range("a1") code." es line se hi problem hai esi mai error aa rha hai to es code ko delete karke es code replace kar sakte hai