Why do you keep sending this so often. Have you not seen any replies?
Don Guillett
SalesAid Software
dguille...@gmail.com
From: shashank bhosle
Sent: Wednesday, November 02, 2011 10:58 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Diffrent Sheets to Create from one
$$$$$$$$$$$$$$$$$$$$$$$$$
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
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
