Hi Ankur,
Glad to help you. Pls send me your file...let me try :)
On Wed, Jul 6, 2011 at 12:34 PM, ankur <ankurpande...@gmail.com> wrote:
> 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
>
--
Regards
Vasant
skype Id: vasantjob
http://facebook.com/vasantjob
--
----------------------------------------------------------------------------------
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
