I am trying to ensure that the information entered in an input box is only accepted when it is a letter first then 4 digits. I have help with this using data validation within excel but it doesnt work when I run the VBA routine
View 5 Replies
I am trying to ensure that only alpha numeric data (one letter then 4 digits) is entered in a cell.
View 9 Replies View RelatedI created an automation process where worksheets are generated. But after the sheets are generated I noticed that one of the company names is missing from the list. As I am watching the worksheets generate I can see the name quickly printing on the screen. When I use a message box to validate the data entry, the name does appear. After all is generated, the name is still missing. Does anyone know what this could be? Could it be a software malfunction?
View 6 Replies View RelatedI have created a spreadsheet which is tallying up various data. I have a number of different categories e.g. A, B, C, D and within each one of these are sub categories. I then have a tally for the number of each category and within that the number of each sub category. I then want to sort the data so that first the main category is sorted in order of highest tally to lowest. the sub categories however need to stay with their primary category. I then need to sort each sub category within the main category.
the data looks omething like this:
category tally sub cat number
A 6 A 3
B 4
C 6
B 9 A 1
B 6
My excel charts don't resize the way they should after hiding them through a worksheet macro. After unhiding, the scale overlaps the data labels and, over several times, the scale even colapses to a small thin line. Any suggestions on this? The code I'm using to hide cells and charts:
View 2 Replies View RelatedI would like to generate a primary key for each line of my spreadsheet. My spreadsheet flows like so: Each row is an individual record. I have a status column that represents the status of each record. Ultimately, thie represents different forms of open status & then of course a closed status. The only other status is blank. When I go from blank status to non-blank I would like to generate a unique # that I can use key that I can it use refer to this unique record.
View 9 Replies View RelatedI am trying to copy form sheet1!A1 into sheet2!A1.
Now, I want the data in sheet2!A8 to be what is in sheet1!A2 in the same order. So sheet2!A15 will have data from sheet1!A3 and so forth.
Trying to use Excel Data List to create a database style report. IE. Originally blank sheet, which is only populated by data containing data matching "filters" input into cells ( say A1 & A2 )
I.e. A1 = Delivery week to be filtered by, and B1 Manufacturer Name
So if I type week "1" into A1 & Manufacturer "Microsoft" into A2, it will show a table only containing data Microsoft, Week 1, and associated data for those lines across the screen.
Week 1
Microsoft
PO number : Date Ordered: Address 1, 2 3 etc....
0011 01/01/13 Somewhere
0015 02/01/13 Anywhere
0213 05/01/13 Nowhere
I know this is much easier with a database, however my manager insists a database cannot be used, and it must be in a spreadsheet format !
I have an month input in cells B2 (user can enter values from 1-5)
I then have a data table that has month 1,2,3,4,5 running across range G9:K9. the data is held in range G10:K19.
So if user types in 4 in B2, what should happen is that months 1,2,3 and 4 the data for these months should be cleared and data in month 5 moves forward into month 1.
So basically, anything left of the month entered is B2 should be cleared and replaced with anything right of the month in B2.
1
2
3
4
5
£11
£133
£29
£193
£100
[Code] ........
I have a two sheet, in Sheet1 i have a data, and in sheet 2 i have a count of location wise data in it, which is from sheet1.. And beside it u will see a button "View Detail". When you click on that button it will pop up a userform which have listbox and 2 button.. Now in listbox i get a filtered value of column C of sheet1 (For eg. Mumbai, Pune, Chennai).. When i click on the value (Mumbai) in Listbox and then click on View Location Details. It should give me a details of mumbai based candidate, like name, pod no, location in the range of (H5:J100) of sheet2..
I wrote the code for it but its not giving me the correct data..
Creating a working userform that takes data input from the user and puts it onto a spread sheet.
That data is then used to calculate a result (via the spreadsheet), and I want that result to show on the userform when the data is submitted (if that makes sense?)
I have a spreadsheet with 5 columns. A1 to A5
Entries are made into columns A2 to A5 but only ever one entry across all cells
If an entry is made into A2 to A5 the I need a "P" to be placed into A1
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'm trying to convert this code so it transfers the data without the input box being needed.
Dim response As Long
Dim strLastRow As String
Dim rngC As Range
Dim strToFind As Variant, FirstAddress As String
Dim wSht As Worksheet
Dim rngtest As String
Application.ScreenUpdating = False
Set wSht = Worksheets("Transfer Sheet")
strToFind = Application.InputBox("Enter Your Initials")
If strToFind = False Or strToFind = "" Then Exit Sub
With ActiveSheet.Range("H2:H5000")
Set rngC = .Find(what:=strToFind, LookAt:=xlWhole)
If Not rngC Is Nothing Then
FirstAddress = rngC.Address
Do
strLastRow = Worksheets("Transfer Sheet").Range("A" & Rows.Count).End(xlUp).Row + 1
rngC.EntireRow.Copy wSht.Cells(strLastRow, 1)
Set rngC = .FindNext(rngC)
Loop While Not rngC Is Nothing And rngC.Address <> FirstAddress
End If
End With
I am looking for a macro which will help make my workbook more user friendly.
Is it possible to have a macro which when run brings up dialog boxes for user input into certain sheets etc.?
How to set a control on data input to a cell? I want to restrict user to input data in this format "LASTNAME,FIRSTNAME" to a cell. Otherwise, an error message will prompt. For example, if they put a space in between lastname and firstname, an error message will prompt.
I have already enter Data Input instruction using Data validation / input message. But this does not prevent them from putting space inbetween lastname and firstname.
I've just started using Excel and everything is really confusing. I can't make sence of the online help or the various boards. Hopefully anyone can atleast make some sence of my question.
I don't know about combability issues but I think we have Excel97 / Swedish version at work and at home I have the English 2007 version so mostly I will try to do as much I can at home but it have to work at my job computer.
Anyways I want to create a sheet where users can input data, something like this
Date : automaticly show the current date but the option to change it
Time : and dropdown menu where I can choose day, evening, night
and Some various fields where the users can input some settings.
And somehow the ability to submit the data into another sheet and clear all input when done automaticly. with every submit it should add another row with information in the other sheet.
How can I restrict the user from entering anything other than the date and the proper format required for this input box? I am having a tough time figuring out how to check the input for the right date and format . .
Sub EffDate()
Dim a As Variant
a = InputBox("Enter the effective date" & _
" of the subject's lease using a 2 digit day," & _
" a 2 digit month and a 4 digit year" & _
" (dd/mm/yyyy).", "C/NC Analysis")
Range("U4").Value = a
End Sub
I am writing this code as a user prompt when importing data but getting an error when it goes to add the text to the worksheet.
Sub CheckForUndetermines()
Dim Und As Range
Dim Inp As String
For Each Und In Range("E1:E200")
If Und.Value Like "*Undetermined*" Then Und.Interior.ColorIndex = 6
If Und = "Undetermined" Then Inp = Application.InputBox("Invalid or Negative", "Undetermined Value", "Negative")
If Inp = "False" Then Exit Sub
If Inp "" Then Cells(Und, 3).Value = Inp
Und.Interior.ColorIndex = 0
Next Und
End Sub
I would like to know if it is possible to transfer values of cells this way?
I've attached the excel file for easier reference.
I have to design an input user form (a button that opens an input box or dialog box), which asks user to "Enter number of "columns"".
User enters a number i.e. 2 or 3 etc
It then asks user for the headings of these coulmns and places first column heading in A1 and second column heading in B1, third in C1 and so on ...
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 Relatedhow to input a data/number into excel through vba userform and get another data/number from excel back to the userform??
View 8 Replies View RelatedIf the three letter code (in the second field) matches one in the range,
I'd like to input the company name into the cell beside it. I'm trying to import a list such as this:
3D OIL LIMIT,TDO,Energy
3D RESOURCES,DDD,Materi
3Q HOLDINGS ,TQH,Softwa
4C SECURITY ,FCS,Techno
A-CAP RESOUR,ACB,Materi
A.B.C. LEARN,ABS,Consum
A1 MINERALS ,AAM,Materi
AAQ HOLDINGS,AAQ,Food B
etc...........
I new for a forum I have a small problem I just stock and can´t see what to do. So i need to move data from 4 columns B,C,D,E to F,G,H,I depending on input in column J, like if in J2 i enter letted M (or any from column A) i need to move data from B12,C13,D13,E13 to F2,G2,H2,I2 and so on. I dont have experiens in programming in exel or using formulas.
View 14 Replies View RelatedIs there any way to have an editbox that when i write a value on it ex: 10 to write this value to A1 when i am pressing the enter button and delete the value of the editbox afterwards when i enter a new value on it to write that on A2?
View 14 Replies View RelatedI want to run a macro that unhides 15 lines (line 20 to 35) when data is inputed on cell 'F6' and to run another macro called "search" (i have already finished this macro) which will fill in information on the unhidden lines from above.
View 4 Replies View RelatedI need a simple macro to enter data for hours worked, but don't like the inputbox.
I need to enter the Emp Nbr in B1.
AM in Time in B3
AM out Time in B4
PM in Time in B7
PM out Time in B8
I then write down the hours worked and
Return to B1
When I enter an new number, I want it to put 0 in B3,B4,B7 and B8
(see attached) Oops can't post. There is probably a better way to calculate the sub-totals, but this works except on an enter of 1200
How can Excel input automatically the "total price" in the first table after I enter "type", "width" and "height" and looking up the other reference tables (below). The referenced tables will have fixed width and height but in the input table will be entered any number within the minimum and maximum range. So the idea is to get the price of the closest highest combination of "width" and "height" on the referenced tables and apply the price:
Input table (I will input "type" by drop down menu, and width and height)
type
width
height
total price
[Code].....
I have created a form for my work. And I have input boxes for users to add data that I would like to get stored in another worksheet. What is the vba code to send data for an input box to another worksheet at the bottommost empty row; first column.
Private Sub cmdAddData_Click()
' Collect user name, find the space between first and last names, and separate the names.
UserName = InputBox("Enter the Program Name.", "Program Name")
spaceLoc = InStr(1, UserName, " ")
firstName = Left(UserName, spaceLoc - 1)
