im trying to create an input message box to rename a sheet.
So far I have
Dim strPrompt As String
Dim strTitle As String
Dim iRet As Integer
'create a copy
[Code]....
But I seem to be getting a complie error with it...I am trying to simply rename a worksheet to what has been put in the message box
I am currently doing an excel database of students application. I want a macro that creates a duplicate of a template sheet and renaming it based on the name of the student. Meaning once a name appears in the name cell, a sheet of that particular name is automatically created. At the same time, i want all the data regarding the applying student to appear the newly created sheet as shown in the attached file.
View 4 Replies View RelatedI have about 100 products and each has its own sheet that I fill with data. Once I have finished with a sheet I rename it and create a copy and then hide the original and delete the entered data from before and start over.
Is there a way I can make it so when I hide a sheet it will automatically create a copy and delete a specific range?
What would be the correct syntax for pulling information to the input message box from another sheet?
Code:
Sub test_data_validation()
'
' test_data_validation Macro
'
Dim nrows As Integer
Dim i As Integer
Sheets("sheet1").Activate
[Code] .........
EXAMPLE: Complete Sheet called "Day1". When day1 is complete you click on button and it then copies itself and creates and renames new sheet to "Day2", then when "Day2" is complete you click on button and it then copies itself and creates and renames new sheet to "Day3", and so on and so forth to "Day30".
View 9 Replies View RelatedI'm trying to create a formula similar to this:
=Calculations!(Indirect("N"&A2)-Indirect("AB"&A2)+Indirect("AA"&A2)
The idea is that the user will enter a value in cell A2. That number will determine the appropriate rows in the formula above.
I'm trying to create a dynamic array so that when a user enters the first sheet name via an input box, excel will know to select the other sheets with ending (2), (3), (4) etc.
Currently this code works only if there are 4 sheets present (as I set this way), anything lower/higher is out of range.
How do I make it so that it will select sheets if there are less than 4 sheets present?
I tried nesting, but I pretty sure this array needs redimming or something. Is ubound a better option?
I am trying to create a single input sheet that automatically feeds data into several other worksheets within the same workbook. Some of the sheets use the same data, some are completely independent of each other. The point of having this is so that users can go in, fill in the input sheet, and the other sheets will automatically be filled with data from the input sheet.
View 1 Replies View RelatedI am using this code for 2nd coping my file and rename it automatically......
[Code] .....
I want when i want another copy always my path should be "C: estabc.xlsm"
and
For new file in same path "C: estdef.xlsm" an input box ask for the name("def.xlsm") "what new name u want for this new file".
And I input the new name for my file and done.
I am trying to create a macro which gives me an input box. I need to enter 2 numbers into the input box. It would be as follows:
Input Box Msg 1 - "What is your labor cost?" (NUM1)
Input Box Msg 2 - "What is your productivity rate?" (NUM2)
Then I need the macro to take this info and enter it into a formula which changes according to the row which you are on. (I need the macro to work based on which ever cell I currently have selected). The formula would be this if I currently had a cell on row 10 selected:
=(NUM1*(NUM2*$H10))/$H10
So, if I currently had cell L10 selected, and I ran the macro and put 100 in for "NUM1" and 10 for "NUM2" and my sheet had 20 in cell H10, then the macro would enter the number 1,000 into cell L10. If I had L500 selected, then the macro would enter the final number into cell L500 based on what value H500 contained.
I want a macro. when i run this macro pop up a input box and ask for copy of master copy and asked for rename the file...
E.g. I have a master file in "z:42766decmasterfile.xlsm
When I click macro then macro do a copy of masterfile and rename it according to choice...
I have a worksheet titled "master plan" with many columns of data. I want to create many tabs based on this data.
One tab I want that just has the data from columns C, F, A, E, G and L (in that order) Starting with the header data in row 2. And titled "LOB".
Then I want a different tab for each unique item in Row C with these same columns (C, F, A, E, G and L from "master plan" tab or A, B, C, D, E and F from new "LOB" tab). The tab name should be the unique row C value.
So for example, say that there about 20 rows where 'A' is in column C, about 30 with 'B' in column 'C' etc .... There should be a tab with the name 'A' with those 20 rows of data and a tab with the name 'B' with the 30 rows with B and so on.
I also would prefer not to have to delete the existing 'A' and 'B' tabs every time before recording the macro so if it can either create a new tab or replace an existing tab with that name if it already exists.
To make things a little more difficult.. for the (in this example) 20 items with an 'A' in column C, there are (at this time) 3 different possible items in column B of 'master plan'. I'd like to create 3 separate tabs for each unique value in column B and I want the name to be dependent on the data in Column B (for example, the three unique items in column B with a column C of 'A' are Red, Green and yellow. I want three new tabs set up for each and the tab names to be: if B = Red, then tab name = 'Stop', If B = Green, then tab name = 'Go', if B = Yellow, then tab name = 'Slow'.
I have something that partially works, but I have to create the 'LOB' tab first and it doesn't work if any of the sheets already exist. And it doesn't do the Red, Green, Yellow part.
Here is what I currently have:
Sub DeptTabs2()
Dim strSrcSheet As String
Dim rngSrcStart As Range
Dim rngSrcEnd As Range
Dim rngCell As Range
Dim strLastDept As String
Dim intDestRow As Integer
On Error GoTo ErrHnd
[Code] ..
I tried recording a macro to add to a new worksheet, but it gives error while running.
Issue as I understand is, by default excel gives a new worksheet a name (Say Sheet 4), and when u run macro worksheet, new created name may be different.
I need to have many users press a button within the excel sheet that duplicates the form from the current page, opening a new tab (copying the form) that also prompts to input a specific name e.g. "Enter date and day or night shift" to name the tab itself.
I have just worked out how to put a Command Button in and used the above code to create the new page assigning the code to it.
I need the "my sheet" to be prompted and customisable.
I have the following code in my vb app. It creates the new worksheet, gives it the corect name, copies all of the existing data from an existing worksheet and pastes it in the new worksheet, but I can not get it to refresh the formulas. When I look at the formulas in the new sheet they reference back to the MasterSheet worksheet(which is my template I copy and paste from when making a new worksheet)
objExcel.Sheets("MasterSheet").Select
objExcel.Sheets.Add
objExcel.Sheets("Sheet1").Select
objExcel.Sheets("Sheet1").Name = MySheetName
objExcel.Sheets("MasterSheet").Select
objExcel.Cells.Select
objExcel.Selection.Copy
objExcel.Sheets(MySheetName).Select
objExcel.Cells.Select
objExcel.Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
objExcel.Sheets(MySheetName).Select
objExcel.Range("B1").Value = Me.DTPicker10.Value
objExcel.Sheets("AccessDataMonday").Select
objExcel.Range("B1").Value = Me.DTPicker10.Value
objExcel.Application.Run "LoadDataFromAccessUsingDates"
objExcel.Visible = True
Below is a message box with an input bar inside the message box. I am able to put a prompt message on top of the input bar but i am finding it difficult to enter another message underneath the box. I want to have the text "Continue?".
[Code] ......
This is what the promt message with the input box looks like : Untitled.png
So basically right underneath the input bar i would like to have the word "Continue?"
I have created an appointment schedule spreadsheet. Once I get the spreadsheet running smoothly, I would like to create a worksheet for every day of the year that we are open.
I have decided to have one main folder with 26 subfolders in it. In each of those 26 subfolders, there will be one workbook with 12 worksheets in it. That will be two weeks worth of appointments as we are open Mon-Sat. Of course I want to name the worksheet tabs at the bottom of the workbook according to the appropriate calendar date. Then there is also a cell at the top of each page that also has the date, the same as the date on the tab. Just wondering if there is a simple way to create a macro to rename all these worksheet tabs, or if I have to physically open up each workbook, and rename all the worksheet tabs according to the calendar date. Then once the worksheet tab is named, can you make it automatically put the same date into Cell A1?
I am looking for is VB code to firstly have a message box with an input box on (that bit i can do). The text and number put into the message box is then used to search the table for the information that relates to it.
The ideal would be for the code to find the data and then copy it either to the clipboard or to a section of the workbook.
The tables I am searching can be put into which ever format is easiest. Below is an example table;
A B C D E
1 A.1 Side Road Correctly Left
2 A.2 Hit in Rear Left
3 A.3 No known Police ref
4 A.4 Vandalism
I have , within a workbook multiple worksheets which have multiple cells with a certain DATA VALIDATION MESSAGE. I am trying to write a macro to sum up all those cells which have a common DATA VALIDATION MESSAGE.
View 2 Replies View Relatedis it posible to control the positioning of the pop-up data validation input messsage box via vba? As often it obscures the view of critical cells below.
You can manually click and drag it to a desired position manually. Mana users are not aware of that. It would be desirable to reposition it elsewhere rogramatically.
I am using data validation input messages for data entry tips/definitions. The data entry cells are grouped in small tables (about 5 rows X 6 columns) so when the user clicks on a cell, the data validation input message box pops up next to the active cell. This covers the adjacent cells which need to be completed as well.
If I drag the message box over to right of the input table, the messages for the other cells stay in the new location as well. However, Excel doesn't remember this location the next time the workbook is opened.
Is there a way to set the location of the message box or some other way to achieve the same objective of having text boxes pop up in a defined location when a cell is activated?
I want to inform my users via a message box if they have not entered the previous month's information. The months are populated via a User form using a combo box selection. The months start from April through to March and are entered into the worksheet range ("aa3").
Data is entered monthly by the team. I don't know how to begin with this. I've managed to inform them when they've already entered that months information, but I don't know where to begin with this.
I currently have 6 cells that Have a Validation Criteria of a "List". I'm using the Input Message on the Data Validation box. I need to have this Input Message Pinned to a specific area on my worksheet. Each time that I exit and reopen the file the Input Message returns to the Area around the dropdown box. The input message is different for each of the 6 cells.
View 9 Replies View RelatedCells A1 to A10 contain names of different cars, what i would like to do in VBA is when i select any individual cell to the right of these the name of the car appears as a message (as if i had gone DATA -> VALIDATION -> INPUT MESSAGE -> CARS NAME).
Tried positioning a Userform next to the active cell but when i scroll down the page and select a cell the userform is to far down the screen to be seen.
I am getting the error from the title of the thread when I try to change a worksheet name.
This worksheet name doesn't already exist in the workbook and I don't have any other files currently open.
I'm not entirely sure what is causing this, but I do need the sheet to be the name I am trying to change to.
I'm trying to create a copy of the active sheet and then rename the new copied sheet to what's in cell O4, which is a formula (see below) and then paste value cell O4 in B3 of the copied sheet. However, when I run this macro it doesn't seem to like the second line where I am renaming the sheet (run time error '1004').
"O4" =DATE(YEAR($B$3),MONTH($B$3)+1,DAY($B$3))
Sub NewMonth()
ActiveSheet.Copy Before:=Sheets(Sheets.Count)
ActiveSheet.Name = Range("O4").Value
ActiveSheet.Range("O4").Copy
ActiveSheet.Range("B3").PasteSpecial Paste:=xlPasteValues
End Sub
A user inputs a string into a message box. A particular cell on a worksheet is then given the value of this string. I would like to have this cell automatically format to Wrap Text if the string is longer than 100 characters and skip to the next line after each 100 characters. However, if 101th character is part of a word, then that word would be on the next line. If the string is less than 100 characters then the cell is simply given the value of the inputted string ( I know how to do this )
View 3 Replies View RelatedI want to find a way to create multiple worksheets and matching data to be placed on appropriate sheets.
Here are more details (Please check the attached sheet screenshot as well):
Excel_Macro_Requirement.jpg
In a workbook, there is a "Master-Sheet". This master sheet contains 8 columns.
I want to create as many new worksheets after master sheet as the values are there in column B (Column 2 i.e. Ad Group). In above attached screenshot, there are 8 values (B2:B9 or A-H). So, I would like to create 8 new worksheets after the master sheet. Also, I want to rename them based on their value from Ad Group column.
Each newly created worksheet should have same columns as the master sheet . Same 8 columns with their name intact.
Finally, I want all matching data of the Ad Group values to be placed on their respective newly created worksheet. For example, worksheet A should have A2:H2 data. Worksheet B should have A3:H3 data, and so on.
Please note that same ad group may have more than one row data. But I don't want to create multiple worksheet of same name ad group. The worksheet should be just one, but all matching data should be placed in that one sheet.
I know it is a bit complex task, but I am sure there would be a way to perform this automatically - probably a macro.
Why do I get the error: "Runtime error 1004: Cannot rename a sheet to the same name as another sheet, a reference object library, or a workbook referenced by Visual Basic"?
And how do I fix it? I have a macros that someone else made (thank you) and I need to make the macros create anywhere from 5-125 sheets based on the information added in sheet 1. How can I do this whe it stops me after 5 or so with the error above.
I have multiple data validations with input messages. For the new user, this is handy, but for the person that does this a lot, they get in the way. When I open the sheet, I can move one message to the side of the page and the rest of them come up at the same spot but when I save, exit, and reopen, the message comes up beside the cell and I would like it to always stay to the side of the page.
View 9 Replies View Related