Can anyone help me !!!!
________________________________
From: shashank bhosle <catchshashankbho...@yahoo.co.in>
To: "excel-macros@googlegroups.com" <excel-macros@googlegroups.com>
Sent: Wednesday, 2 November 2011 9:28 PM
Subject: 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
