Previous Topic Next Topic

How to name excel sheets on values in columns

Solved/Closed
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012 - Feb 9, 2011 at 02:47 AM
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012 - Feb 14, 2011 at 01:01 AM
Hello, I have a list of people names in a column in one sheet with additional cells in each row for adding data.

I want to create separate excel sheet for each name in the column. I have 36 names in the list.

Please can anyone help me in this as I do not want to go on adding sheets and renaming them with the names in each cell.

Thanks,

Eskagsms

5 responses

Answer 1 / 5
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Feb 9, 2011 at 06:38 AM
you can loop thru each name
create a sheet with that name

some thing like this 

   Dim lRow As Long
   Dim sSrcSheet As String
   
   sSrcSheet = "Sheet1" 'the name of the sheet that has the names
   lRow = 1
   Do While (Sheets(sSrcSheet).Cells(lRow, "A") <> vbNullString)
      Sheets.Add
      ActiveSheet.Name = Sheets(sSrcSheet).Cells(lRow, "A")
      lRow = lRow + 1
   Loop
Answer 2 / 5
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012
Feb 11, 2011 at 01:46 AM
Hello Riz,

I tried to paste the above in a module window and ran it, but it is not recognising the "Sheet1" parameter.

Please can you help.

Regards,

Eskagsms
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Feb 11, 2011 at 06:15 AM
do you have a sheet called "Sheet1" ?

Could you please upload a sample EXCEL file WITH sample data, macro, formula , conditional formatting etc on some shared site like https://authentification.site , http://docs.google.com, http://wikisend.com/ , [http://www.editgrid.com etc
AND post back here the link to allow better understanding of how it is now and how you foresee. Based on the sample book, could you re-explain your problem too.


Note: your data need not be to be real data but a good representative of how data looks like
Answer 3 / 5
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012
Feb 11, 2011 at 06:52 AM
Hello Riz,

I have uploaded a sample file at https://authentification.site/files/26805749/Sample.xls for your reference.

Please can you help.

Regards,

Eskagsms
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Feb 11, 2011 at 10:56 AM
I just took your file and used the code. It created all the sheets. What issue you are facing.
Answer 4 / 5
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012
Feb 12, 2011 at 12:07 AM
Hello Riz, please find attached the screen shot of the error for your reference.
Please can you advise the steps to use the code? I have uploaded the file at http://www.speedyshare.com/files/26819376/Macro_error_message.bmp

Regards,
Eskagsms
rizvisa1 Posts 4478 Registration date Thursday January 28, 2010 Status Contributor Last seen May 5, 2022 766
Feb 12, 2011 at 09:13 AM
The code was just for how to name. You cannot add code like that. It has to be enclosed in a sub or function 

Public Sub doRenameSheet()
Dim lRow As Long
   Dim sSrcSheet As String
   
   sSrcSheet = "Sheet1" 'the name of the sheet that has the names
   lRow = 1
   Do While (Sheets(sSrcSheet).Cells(lRow, "A") <> vbNullString)
      Sheets.Add
      ActiveSheet.Name = Sheets(sSrcSheet).Cells(lRow, "A")
      lRow = lRow + 1
   Loop
End Sub
Answer 5 / 5
eskagsms Posts 24 Registration date Wednesday February 9, 2011 Status Member Last seen May 30, 2012
Feb 14, 2011 at 01:01 AM
That worked fine. The problem is resolved. Thank you very much Riz.

Regards,

Eskagsms

Similar discussions

help me to add particular cells
mathewmunna -
mathew munna -

Hello,

i want to sum particular cells when a number consists in a cell

eg:-

=IF($B$81:$BH$81=7=TRUE,SUM($B$77:$BH$77),0)

it calculates all b77 to bh77 if any cell b81 to bh81 contains 7
i want a formula to calculate like if

b81=7, x81=7, ...... , bh81=7....

sum(b77+x77+......+bh77)

please help me to solve this issue..

2 responses
Fill adjacent cell with number from text answer
MitchP -
vcoolio -

Hello, and good morning, I have a cell with a dropdown box, to select a certain text. When I select the type of incident from a drop down box, I would like the adjacent cell to poulate with the number (eg Minor injury = 4) I have to do it for the three blank columns  Any help will be much appreciated. Thanks, Mitch.

20 responses
How to calculate positions (1st,2nd,3rd...) in Excel
hardy -
TrowaD -

Hello,
hi sir/madam...i am doing some work with the students result in excel...but I faced a problem..it is simple but I havn't got dat in my mind...i have students total marks.now I wanna get the 1st 2nd 3rd...so on position of student leads from highest to lower one...

regards
hardy

6 responses
Date formatting in dd/mm/yyyy
nisha -
appu -

Hello,

I have got dates typed in the format following 01.08.98 and I want to change it to 01/08/1998 format. I tried applying the format we have in excel format cell date format but nothing is happening.

Please help me on this.

11 responses