*hi vasant
thnks for such nice code
i have similar problem also...but i need some modification
this code produce many workbook...cant it be possible to create a single
workbook with different sheets for each employee.... ?
another query
i have asked one query earlier about data validation requirement, can u help
me in that also
im just giving my requirement.....plz help me
i have a workbook for calculating income tax of employees with many
sheets,,,,,different sheets are having monthwise data of employees....one
sheet for their saving particulars....one main sheet in which all the
calculation are done...and their net tax is calculated by getting data from
the sheets....like form 16
i used data valiation in the to get details of each employee in the main
sheet( by linking with vlookup and other formulas).... i need one report
which show
net income tax of each employee in one sheet...like
employee name---income tax
aaaa 25415
bbbb 5486
for that i have to manually change the data validation list from drop
down...the income tax which came , i copy and paste in other sheet.....i
have to do this for all the employees.....this take lot of time
i want just by one click i got all the income tax data of all the employees
whose name is in data validation list....in another sheet.....
can u help me...?
*Have A Nice Time & Enjoy Life
Regards:
CMA Ankur Pandey
(Someone Different)
I'm not the best but i'm not like the rest~~
On Wed, Jul 6, 2011 at 11:45 AM, Vasant <vasant...@gmail.com> wrote:
> Hi Jai,
>
> Pls find the below code and the file attached.
>
> The code here creates a new workbook for each employee with their
> details and saves them with their name and code.
>
>
> Sub Test()
> Dim NwWkBk As Workbook
> Lrow = ThisWorkbook.Worksheets(2).Range("A65536").End(xlUp).Row
> For x = 2 To Lrow
> Set NwWkBk = Workbooks.Add
> ThisWorkbook.Worksheets(1).Cells.Copy
> NwWkBk.Worksheets(1).Activate
> ActiveSheet.Paste
> ActiveSheet.Range("A1").EntireColumn.ColumnWidth =
> ThisWorkbook.Worksheets(1).Range("A1").ColumnWidth
> ActiveSheet.Range("B1").EntireColumn.ColumnWidth =
> ThisWorkbook.Worksheets(1).Range("B1").ColumnWidth
> ActiveSheet.Range("C1").EntireColumn.ColumnWidth =
> ThisWorkbook.Worksheets(1).Range("C1").ColumnWidth
> ActiveSheet.Range("D1").EntireColumn.ColumnWidth =
> ThisWorkbook.Worksheets(1).Range("D1").ColumnWidth
>
> NwWkBk.Worksheets(1).Range("B6") =
> ThisWorkbook.Worksheets(2).Range("B" & Trim(Str(x)))
> NwWkBk.Worksheets(1).Range("B7") =
> ThisWorkbook.Worksheets(2).Range("C" & Trim(Str(x))) & " " &
> ThisWorkbook.Worksheets(2).Range("A" & Trim(Str(x)))
> NwWkBk.SaveAs ThisWorkbook.Worksheets(2).Range("B" & Trim(Str(x))) &
> "(" & ThisWorkbook.Worksheets(2).Range("A" & Trim(Str(x))) & ")"
> Next x
> End Sub
>
>
> On Wed, Jul 6, 2011 at 10:45 AM, Jai <jaihumtu...@gmail.com> wrote:
> > Dear Experts
> >
> > i wnat to mail merge From Sheet -2 To Sheet -1, in Sheet -2 , Name,
> > Desination, & Emp code .
> >
> > --
> >
> ----------------------------------------------------------------------------------
> > Some important links for excel users:
> > 1. Follow us on TWITTER for tips tricks and links :
> > http://twitter.com/exceldailytip
> > 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> > 3. Excel tutorials at http://www.excel-macros.blogspot.com
> > 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> > 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
> >
> > To post to this group, send email to excel-macros@googlegroups.com
> >
> > <><><><><><><><><><><><><><><><><><><><><><>
> > Like our page on facebook , Just follow below link
> > http://www.facebook.com/discussexcel
> >
>
>
>
> --
> Regards
>
> Vasant
>
> skype Id: vasantjob
> vasant...@gmail.com
>
> --
>
> ----------------------------------------------------------------------------------
> Some important links for excel users:
> 1. Follow us on TWITTER for tips tricks and links :
> http://twitter.com/exceldailytip
> 2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
> 3. Excel tutorials at http://www.excel-macros.blogspot.com
> 4. Learn VBA Macros at http://www.quickvba.blogspot.com
> 5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
>
> To post to this group, send email to excel-macros@googlegroups.com
>
> <><><><><><><><><><><><><><><><><><><><><><>
> Like our page on facebook , Just follow below link
> http://www.facebook.com/discussexcel
>
--
----------------------------------------------------------------------------------
Some important links for excel users:
1. Follow us on TWITTER for tips tricks and links :
http://twitter.com/exceldailytip
2. Join our LinkedIN group @ http://www.linkedin.com/groups?gid=1871310
3. Excel tutorials at http://www.excel-macros.blogspot.com
4. Learn VBA Macros at http://www.quickvba.blogspot.com
5. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
<><><><><><><><><><><><><><><><><><><><><><>
Like our page on facebook , Just follow below link
http://www.facebook.com/discussexcel
