Copy and insert name on tab
I already have the macro to copy my worksheet which is:
Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie |
Copy and insert name on tab
one extra line:
Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie |
Copy and insert name on tab
And maybe take one out
Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Don Guillett SalesAid Software "Gary''s Student" wrote in message ... one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie |
Copy and insert name on tab
I used a learn macro and then made appropriate changes. this works.
Sub Macro2() ' ' Macro2 Macro ' Macro recorded 3/1/2007 ' newname = InputBox("enter sheet name") Sheets("ABC").Select Sheets("ABC").Name = newname End Sub "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie |
Copy and insert name on tab
On Mar 1, 11:25 am, Gary''s Student
wrote: one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Thank you so much it worked! I can't believe it was so simple! |
Copy and insert name on tab
Guillett's post is even better.
-- Gary''s Student gsnu200708 "Maggie" wrote: On Mar 1, 11:25 am, Gary''s Student wrote: one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Thank you so much it worked! I can't believe it was so simple! |
Copy and insert name on tab
On Mar 1, 11:47 am, "Don Guillett" wrote:
And maybe take one out Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Don Guillett SalesAid Software "Gary''s Student" wrote in message ... one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Once I enter the tab name can I get it to be entered into a specific cell on that worksheet too. For example the tab names are going to be loan numbers and on my worksheet there is a field (cell g13) that needs to be entered for loan number too. I do not know if that is possible or not. |
Copy and insert name on tab
On Mar 1, 5:31 pm, "Don Guillett" wrote:
try adding another line. There are other ways to do this. Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) Sheets(1).range("a1").value=sheets(1).name End Sub -- Don Guillett SalesAid Software "Maggie" wrote in message s.com... On Mar 1, 11:47 am, "Don Guillett" wrote: And maybe take one out Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Don Guillett SalesAid Software "Gary''s Student" wrote in message ... one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Once I enter the tab name can I get it to be entered into a specific cell on that worksheet too. For example the tab names are going to be loan numbers and on my worksheet there is a field (cell g13) that needs to be entered for loan number too. I do not know if that is possible or not.- Hide quoted text - - Show quoted text - That worked! Thanks! Is there a limit on the number of tabs that excel can handle. I have 50-60 loans that need to be input into 50-60 worksheets using the same macros. I have to use excel because that is what my boss wants. Is that possible? |
Copy and insert name on tab
You shouldn't have a problem. But, do you really need each loan to have it
OWN worksheet? Show your layout and I'll bet you can do it on one and then use filters. Pls TOP post -- Don Guillett SalesAid Software "Maggie" wrote in message ups.com... On Mar 1, 5:31 pm, "Don Guillett" wrote: try adding another line. There are other ways to do this. Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) Sheets(1).range("a1").value=sheets(1).name End Sub -- Don Guillett SalesAid Software "Maggie" wrote in message s.com... On Mar 1, 11:47 am, "Don Guillett" wrote: And maybe take one out Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Don Guillett SalesAid Software "Gary''s Student" wrote in message ... one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Once I enter the tab name can I get it to be entered into a specific cell on that worksheet too. For example the tab names are going to be loan numbers and on my worksheet there is a field (cell g13) that needs to be entered for loan number too. I do not know if that is possible or not.- Hide quoted text - - Show quoted text - That worked! Thanks! Is there a limit on the number of tabs that excel can handle. I have 50-60 loans that need to be input into 50-60 worksheets using the same macros. I have to use excel because that is what my boss wants. Is that possible? |
Copy and insert name on tab
Don,
Here is the layout: Anti-Predatory Lending Worksheet HOEPA APR SPREAD TEST 1st lien Other lien Maximum Spread 8 10 Member Name: Two year Treasury Rate Member Number: Five year Treasury Rate Borrower Name: Ten year Treasury Rate Loan Number: Thirty year Treasury Rate Total Loan Amount: $1,000,000.00 Maximum APR 8 10 Date of Application: Mar-07 Loan APR Type of lien: Loan Term: 7 Did it Pass the APR Spread Test ? Is there prepaid, single-premium credit life, credit disability, credit unemployment, or other similar credit insurance? Treasury Date: Feb-07 Do the Loan Documents Require Mandatory Arbitration? (Refer to Mandatory Arbitration tab) Treasury Term: 5 Is the bank charging prepayment penalties for the payoff of the loan beyond the first five years of such loan? HOEPA Points & Fees Test (Paid by the Borrower) Finance Charges: HUD Series Origination Fee 801 Discount fee 802 Assumption Fee 807 Flood certificate with Life of Loan 808 Loan Administration Fee 809 Application Fee 810 Rate Lock-in Fee 811 Underwriting Fee 800 Series Commitment Fee 800 Series Tax Service 800 Series PMI 902 Closing/Settlement Fee 1101 Completion Inspection Fee 1300 Series Construction Draw Fee 1300 Series Courier Fee 1300 Series Fax Fee 1300 Series Final Construction Appraisal Fee 1300 Series Delivery Fee 1300 Series Loan Prospector Fee 1300 Series Wire Fee 1300 Series Non-Finance Charges: In-house appraisals 803 Title Insurance / Examination 1108 Credit Life/Disability Premiums 900 Series Doc Prep Fees Total Fees: 0.00 Amount Financed (from the TIL disclosure): $1,000,000.00 less total non-finance charges 0.00 "HOEPA" Loan Amount: $1,000,000.00 Total Fees/"HOEPA" Loan Amount: 0.00% Did it pass the Points & Fees Test ? Did it pass HOEPA? This did not turn out too nice I can email it to you if you would like. I have to have each loan go through this test and be saved. That is why I need 50-60 tabs. But if you think there is a better way to filter I am open to suggestions. Thanks Maggie On Mar 2, 3:02 pm, "Don Guillett" wrote: You shouldn't have a problem. But, do you really need each loan to have it OWN worksheet? Show your layout and I'll bet you can do it on one and then use filters. Pls TOP post -- Don Guillett SalesAid Software "Maggie" wrote in message ups.com... On Mar 1, 5:31 pm, "Don Guillett" wrote: try adding another line. There are other ways to do this. Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) Sheets(1).range("a1").value=sheets(1).name End Sub -- Don Guillett SalesAid Software "Maggie" wrote in message ups.com... On Mar 1, 11:47 am, "Don Guillett" wrote: And maybe take one out Sub maggie() Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Don Guillett SalesAid Software "Gary''s Student" wrote in message ... one extra line: Sub maggie() Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1) Sheets(1).Name = Application.InputBox("enter tabname", 2) End Sub -- Gary's Student gsnu200708 "Maggie" wrote: I already have the macro to copy my worksheet which is: Sheets("HOEPA Worksheet").Select Sheets("HOEPA Worksheet").Copy Befo=Sheets(1). I want to be able to name the tab using a input box but I cant seem to get it to work. Any suggestions on how to go about this so that when I hit the button to copy and insert an input box would come and ask to enter the name of the tab. Maggie- Hide quoted text - - Show quoted text - Once I enter the tab name can I get it to be entered into a specific cell on that worksheet too. For example the tab names are going to be loan numbers and on my worksheet there is a field (cell g13) that needs to be entered for loan number too. I do not know if that is possible or not.- Hide quoted text - - Show quoted text - That worked! Thanks! Is there a limit on the number of tabs that excel can handle. I have 50-60 loans that need to be input into 50-60 worksheets using the same macros. I have to use excel because that is what my boss wants. Is that possible?- Hide quoted text - - Show quoted text - |
All times are GMT +1. The time now is 03:13 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com