I would recommend that you structure your AB sheet and BC sheets the SAME>copy
the columns desired from ab to bc >copy the bc sheet which will make it a new
file>name it>delete the rows NOT needed>save the file. Loop to the next
something like this. However, your project needs to be fixed so that this will
work. Restructure your project
Sub doeach1()
With Sheets("bc")
For i = 5 To 38 Step 13
fname = .Cells(13, "e")
Sheets("ab").Columns(i).Resize(, 14).Copy Range("e1")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=fname
ActiveWorkbook.Close
Next
End With
End Sub
Don Guillett
SalesAid Software
dguille...@gmail.com
From: shashank bhosle
Sent: Wednesday, November 02, 2011 3:41 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Fw: Diffrent Sheets
I have an INDI sheet which includes details of each member
I want to make a different workbooks for each of them with the details of each
member
First 3 columns are common for each member and remaining columns from E to Q
changes according to member name in cell E13,R13 respectivly
There are more than 1000 emp name in my sheet . i recorded a code but it
doesn’t work.
BC template has to be created which is example.
Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Range("A1:G12").Select
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
ThisFile = Range("D1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
Windows("adhoc Project1.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Columns("D:G").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1:G12").Select
Selection.Copy
Workbooks.Add
Selection.Font.Bold = True
Windows("adhoc Project1.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Selection.Copy
Windows("Book2").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
ActiveSheet.Paste
ThisFile = Range("D1").Value
ActiveWorkbook.SaveAs Filename:=ThisFile
Windows("adhoc Project1.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Columns("D:G").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1:G12").Select
Selection.Copy
Windows("Book2").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Windows("adhoc Project1.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Workbooks.Add
ActiveSheet.Paste
Windows("adhoc Project1.xls").Activate
ActiveWindow.WindowState = xlNormal
ActiveWindow.WindowState = xlNormal
Range("C19").Select
End Sub
Plz suggest
Thanks and Regards
Shashank S Bhosle
--
FORUM RULES (925+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
--
FORUM RULES (925+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
