Paul Schreiner, Thank you so much for your help.
Its working now. Thanks again Ramesh On Nov 4, 8:43 pm, Paul Schreiner <[email protected]> wrote: > 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 <[email protected]> > To: MS EXCEL AND VBA MACROS <[email protected]> > 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 <[email protected]> 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 <[email protected]> > > To: MS EXCEL AND VBA MACROS <[email protected]> > > 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 [email protected] If you find any spam message in the group, please send an email to: Ayush Jain @ [email protected] or Ashish Jain @ [email protected] <><><><><><><><><><><><><><><><><><><><><><> 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 -~----------~----~----~----~------~----~------~--~---
