sorry, my fault...
I normally have the Status bar show me a "% complete" status
ever 5-10%... but I removed it from this one
since you probably aren't processing 40,000 records!
But left one line in.
comment out (or remove) the line with:
If (R Mod modcnt = 0) Then ...
it should work then.
P
________________________________
From: Chanti-Hyderabad <ramesh1...@gmail.com>
To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
Sent: Wed, November 4, 2009 10:02:44 AM
Subject: $$Excel-Macros$$ Re: Segregate data in appropriate sheet with Name as
sheet name
Thank you so much for your help.
I am afraid to tell you that, the 1st procedure "Sub Segregate_Data()
" is returning me an error, and the error is "Division by Zero".
Request you to do the needful
Thank you,
Ramesh
On Nov 3, 8:01 pm, Paul Schreiner <schreiner_p...@att.net> wrote:
> sure,
>
> these macros should work.
> they assume that the sheet with the data is called "Data"
> and you want to copy the row from column "A" to "Z"
>
> the second macro deletes all sheets except for "Data"..
> so, be careful. if you have more sheets that you want to
> keep, you'll have to modify the macro.
> If your Data sheet isn't called "Data", you'll have to
> modify BOTH macros.
>
> Option Explicit
> Sub Segregate_Data()
> Dim nRows, sRows, sht, Usr, R, modcnt
> Application.ScreenUpdating = False
>
> nRows =
> Application.WorksheetFunction.CountA(Sheets("Data").Range("A1:A65000"))
> For R = 2 To nRows
> If (R Mod modcnt = 0) Then Application.StatusBar = "Processing " &
> Int(R / nRows) * 100 & "% of " & nRows & " Records"
> Usr = UCase(Sheets("Data").Cells(R, "A").Value)
> If (Usr & "X" <> "X") Then
> For sht = 1 To Sheets.Count
> If (UCase(Sheets(sht).Name) = UCase(Usr)) Then Exit For
> Next sht
> If sht > Sheets.Count Then sht = Sheets.Count
> If (UCase(Sheets(sht).Name) <> UCase(Usr)) Then
> Sheets.Add after:=Sheets(Sheets.Count)
> ActiveSheet.Name = Usr
> Sheets(Usr).Range("A1:Z1") =
> Sheets("Data").Range("A1:Z1").Value
> Sheets("Data").Select
> End If
> sRows =
> Application.WorksheetFunction.CountA(Sheets(Usr).Range("A1:A65000")) + 1
> Sheets(Usr).Range("A" & sRows & ":Z" & sRows) =
> Sheets("Data").Range("A" & R & ":Z" & R).Value
> End If
> Next R
> Application.ScreenUpdating = True
> MsgBox "Processed " & nRows - 1 & " Rows"
> End Sub
> '--------------------------------------------------
> Sub clearsheets()
> Dim sht
> Application.DisplayAlerts = False
> For sht = Sheets.Count To 1 Step -1
> If UCase(Sheets(sht).Name) <> UCase("Data") Then Sheets(sht).Delete
> Next sht
> Application.DisplayAlerts = True
> End Sub
>
> hope this helps,
>
> paul
>
> ________________________________
> From: Chanti-Hyderabad <ramesh1...@gmail.com>
> To: MS EXCEL AND VBA MACROS <excel-macros@googlegroups.com>
> Sent: Tue, November 3, 2009 8:25:25 AM
> Subject: $$Excel-Macros$$ Segregate data in appropriate sheet with Name as
> sheet name
>
> Hi Team,
>
> Is there a way we can segregate the data depending upon the name
> (column A) to different tabs.
>
> Example
> If it is a macro, and if I run it, the result would be:
>
> Sheet names: “Ramesh”, Ravi”, “Rakesh”, and “Sridhar” and each tab
> would contain the data as per the sheet name.
>
> I hope this is a confusing request, please let me know if you have any
> questions.
>
> Thanks in advance
> Ramesh
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
