User Inputs Information Into Userform When Click Enter?
Mar 21, 2012
Say a user inputs information into the user form, when they click enter, it enters all the data on the next available line in a workbook.
Is is possible for the user to click a cell on a previously entered row, and have the userform populate with the existing information?
example.
say the user has to fill out 3 separate areas. 1, 2, 3. However the user only has data for 1 and 2. They go ahead and enter the infromation for 1 and 2 and click submit to transfer to sheet. Now later he gets information for area 3, can the row the information that he previously entered, lets say column 1, row 1, and it reopens the userform with the information for 1 and 2 prefilled from what he entered previously?
View 9 Replies
ADVERTISEMENT
Aug 20, 2007
i have some code that allows my users to enter their user ID on double clicking. The worksheet code below shows how on double clicking into Colum 3 (If Target.Column = 3 Then) then the user ID will appear. Q: How do i get the code to work in Columns 3, 5 and 7 but not those inbetween?! I tried using "or" but it allowed the ID to be entered into all columns! i.e. 3,4,5,6 and 7 which is not what I require. In short I need the ID to appear on double clik into every other column.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim user As String
'This refers to the function ReturnUserName, which takes the name from the NT environment
If Target.Column = 3 Then
Target = ReturnUserName
Cancel = True
End If
End Sub
View 9 Replies
View Related
Oct 17, 2013
I have a spread sheet that has rows of information and once you click on the tally form button (top Left) you can search on the info and it will display in the list box once you click on a result. I have attached the spread sheet, with only 1 row as obviously I dont want to share work data on here.
My question is that, if I want to display a row in the form, I would like to be able to click on a certain cell (Incident # column), it would then recognise the row and display that row in the form.
At the moment I have a EVENT that will highlight a row if a cell is selected. Just thought I'd mention that in case it would interfere.
VB:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
' If more than 1 cell is selected, then don't run the rest of the code
Application.ScreenUpdating = False
[Code] ......
ozgrid.xlsm
View 9 Replies
View Related
May 29, 2014
I have a workbook that I'm using to tracking staffing patterns within a mental health agency. When the workbook opens the user is asked to pick a date range and an office location. I've placed code into the userform that pre-fills the "start date" with today's date and the "end date" 7 days from today's date. I would like the user to be able to enter a unique date range should they wish but I have yet to figure out the coding to accomplish my goal.
[Code] .....
Attached File : Staffing Report 1.90.xlsm
View 7 Replies
View Related
Jul 20, 2009
I am not new to excel - but I have never required the use of advanced excel features before today - so I apologize in advance. I am a health professional student (graduate level) assisting my preceptor in developing patient management mechanisms.
I am building an excel spreadsheet to manage current medications for several patients.
I have built the spreadsheet with the first 'sheet' being a directory and subsequent sheets being patient data files(one sheet per patient).
I am now in the process of creating a macro to build new patient data files (a new sheet for a new patient). I recorded a macro to build the new sheet with the proper formatting of information. What I am trying to do now is automate the naming and linking of the new sheet.
What I am really after is how can you create a "prompt" such that after activating the macro button it asks:
Patient last name:
Patient first name:
Then uses this data to:
1. Rename the newly made sheet to 'last, first'
2. Title the newly made sheet with 'last, first'
3. Create an entry in the directory in the 'last, first' format
4. Finally, build the hyperlink from the directory to the newly created sheet
View 11 Replies
View Related
Nov 16, 2007
I want to build something like this....
function getdb(a,b,c,d,e,f........x)
getdb = a & "," & b & "," & c &....& x
end function
where x is the total number of variables.
So if in excel, I run getdb (a,b) that it will know that the funciton has only 2 variables but if i run getdb(a,b,c,d,e,f,g,h,i,j) that it knows.
I am trying to avoid getdb(a,b,,,,,,,,,,,,,,,,,,,) as I bet the user will not know how many ","s to use
View 9 Replies
View Related
Aug 30, 2006
Is it possible to show a timer on a worksheet as a user inputs to it? I can get the timer to appear, using Application .OnTime Now() + TimeValue ("00:00:01"), "AutoRecalcWorkbook", but it's kind of modal -- that is, the user can't input at the same time it's running.
View 2 Replies
View Related
Dec 24, 2006
I've a userform with just textboxes and have written code that checks each textbox in turn to ensure a correct value has been entered. I want to run the code after any changes are made; where then would I insert the code? Userform.click doesn't appear to work nor keypress. Would I have to enter the code in each textbox_afterupdate?
View 9 Replies
View Related
Feb 11, 2010
I have created a userform that allows input of information and then deposits the information on a specific sheet. I am looking for a way to have that information not only deposited on the specific sheet it is already set to but also to another sheet based on a selection made from a combo box.
here is my current
View 5 Replies
View Related
Jun 23, 2014
I have a userform where the user enters prices for up to 12 items in textbox controls, and these prices are stored in an array. The textboxes are titled tbPrice1, tbPrice2, etc. I'm having an issue with the line of code I am using to store the values in an array. Every time I attempt to store them, I get runtime error 13 type mismatch, but I don't understand why.
dim PartPrices(1 to 12) as Currency
For x = 1 to 12PartPrices(x) = IIf(Trim(Me.Controls("tbPrice" & x).Value) & vbNullString = vbNullString, CCur(0), CCur(Trim(Me.Controls("tbPrice" & x).Value)))Next
A little more explanation here. Not all 12 parts will have prices, so I use the IIf statement to store the value 0 whenever the user has left a price field blank. I use trim in case they leave spaces in the price textbox or something. When the field is not blank, I take the value entered in the textbox, convert it to currency and attempt to store it in the relevant element of the array.
View 2 Replies
View Related
Jul 18, 2014
I'm trying to capture if any changes are made to a UserForms selections.
I initially load all the data from the database when the first user form is initialized, see code below
[Code]....
Once I have selected the corresponing record from the combobox , in this case Planning Number, then select the command button which runs the code below
[Code] .....
Now the user form frmProcessEngineeringTemp is opened, it now populates all the comboboxes, textboxes and option buttons in this form based on the planning number choosen from initial user form
[Code] ....
Once the user has finished with the user form the information from the form is passed to a worksheet via a command button. If changes to the user form selections were made i need to capture what has changed (if anything), from what was initially loaded into the second user form (frmProcessEngineeringTemp).
I have seen numerous posts from various sites that discuss Change and Exit events from a Class module and many instances where each combobox, textbox and option button is hard coded to capture changes.
Being that I have captured my initial inputs from the database thru the myVar 1 thru 40, can this be put into a string array and the current inputs/selections in the frmProcessEngineeringTemp put into a second array then compare 1 to another looking for difference, then output the differences to a worksheet for tracking purposes. At the same time if changes were indeed made i would increment the Revison record by 1.
View 3 Replies
View Related
Jun 23, 2007
I am working with a large legacy file/program which has a lot of issues. Foremost, and unfortunately this cannot be changed, is that all of the controls were placed directly on the worksheets instead of on Userforms.
I had previously posted code from the legacy file which may have been excessively complicated. So I edited my post to this simple example. Sheet1 has one textbox and one command button. Sheet 2 is blank.
If Sheet2.Activate is commented, everything works fine. If Sheet2.Activate is executed, then Excel crashes....
View 9 Replies
View Related
Aug 21, 2009
I have two sheets - Data and Mail.
I am using a userform to collate the information in the "data" sheet and have a unique ref number in column A. Data populates columns A - AC.
In sheet "Mail" I enter the Ref number and it pulls through the info using vlookups into a template which I then e-mail as the body of the text on the click of a macro button.
I wish to capture the date each time the button is clicked in the same data row starting in column AD then AE etc.
I have cobbled all of this together by searching around this forum - I have not expertise so please be gentle with me!
View 9 Replies
View Related
Jun 24, 2007
I am working with a large legacy file/program which has a lot of issues. Foremost, and unfortunately this cannot be changed, is that all of the controls were placed directly on the worksheets instead of on Userforms. The actual code from the legacy file is excessively complicated, so I created this simple example. Sheet1 has one textbox and one command button. Sheet 2 is blank. I want to be able to click the command button or use the Enter key on the command button, to trigger the Click Event. Clicking works fine. When using Enter, if Sheet2.Activate is commented, everything works fine. If Sheet2.Activate is executed, then Excel crashes.
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bBackwards As Boolean
Select Case KeyCode
'Only look for tab, return, down arrow, up arrow
Case vbKeyTab, vbKeyReturn, vbKeyDown, vbKeyUp
Application. ScreenUpdating = False
'Do we need to go back to previous control
bBackwards = CBool(Shift And 1) Or (KeyCode = vbKeyUp)
If bBackwards Then TextBox1.Activate Else CommandButton1.Activate
Application.ScreenUpdating = True
End Select
End Sub
Private Sub CommandButton1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim bBackwards, bForwards As Boolean
Select Case KeyCode
Case vbKeyTab, vbKeyReturn, vbKeyDown, vbKeyUp
Application.ScreenUpdating = False...................
View 9 Replies
View Related
Jan 18, 2010
I am trying to use a nested IF to enter info into col A. It is based on 4 pieces of info, I can get the first 3 to work but am struggling with the last part. The problem is that I am looking at the same cell for the first 3 parts but the last part is looking at another cell reference. A nested IF may not be the way to go. An example of the spreadsheet is as follows:
A B C D AB
1 12/1/10 Comp 1 Surveyer 1 18/1/10
Omit 11/1/10 Comp 2 Surveryer 1 Omit
0 10/1/10 Comp 1 Surveyer 2
Comp 3 Surveyer 1
The formula I am currently using in column A is:
=IF(AB3="Omit","Omit",IF(AB3,1,"0"))
This works for the first 3 pieces of information but however does put a 0 in col A if there is no date in col AB, but this what I expect as it's what I've asked for. I am missing the last piece of information.
But what I want to put in column A is:
If there is a date in column AB - enter 1
If there is the word 'Omit' in col AB - enter Omit
If there is no date or the word Omit in col AB - enter 0 and finally
If there is no date in col B - leave blank (if there is no date in col B, col AB will always be blank)
View 5 Replies
View Related
Mar 14, 2007
I am creating a macro that will take some information from 3 cells that the user will input, place it into 3 different cells, clear the original 3 cells and then I would like the macro to, when next activated input the new information from the 3 cells below the information that was already in the table.
For Example,
Date (D3), Description (E3, F3, G3 Merged cell) and Reference (H3)
I would then like those 3 cells to be put into A9:E9 then clear the original cells. That is not the part that I have the problem well, the following however, is.
After I enter new information into the input cells, and press the macro button, I would like the information to be placed into A10:E10 and from then on, the information goes down by 1 row after each macro.
View 11 Replies
View Related
Jul 10, 2014
I have created a time sheet in excel (see attached) that will be part of the larger workbook that will be linked with other sheets to auto fill in most fields. I am wondering if there is a way for an user to enter a Month and a Year at the top of the page and that in turn automatically fills in the days of the month by week.
So in attached sheet there are 5 boxes representing 5 weeks in a month. So if we used May 2014 as an example I would like to know if there is a way that once May 2014 is entered in up to top that. Excel fills in the dates in Week #1 with under Thursday showing 1st, under Friday showing 2nd as on for the entire month...
So as the month go by all user has to do is state the month and year and excel fills in the weekly dates for each day in month.
Attached File : Time and Attendance.xlsx
View 2 Replies
View Related
Oct 9, 2012
I have recorded the following marco and it works fine. I would like to modify it so the user would highlight a range of cells rather than have the fixed area :
"'ConsExecProp@20120920'!R4C5:R113C21"
What code lines would need to be added?
Application.Goto Reference:="R4C5"
ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:= _
Array("'ConsExecProp@20120920'!R4C5:R113C21"), Version:=xlPivotTableVersion12 _
[code]....
View 4 Replies
View Related
Feb 25, 2013
I have some VBA code which hides columns based on a cell value. The cell value changes according to which option button is selected. The code works but not when the button is selected and the cell value changes. It is necessary to click elsewhere in the sheet or press Enter to get the columns to hide. I want it to do it automatically as a user wouldn't know to click elsewhere.
The working code is:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("N5").Value = 2 Then
Columns("O:R").EntireColumn.Hidden = True
Else
Columns("O:R").EntireColumn.Hidden = False
End If
End Sub
N5 is the linked cell for the option button.
View 4 Replies
View Related
Sep 23, 2008
I am trying to use visual basic editor in excel. I have all ready set up my user form where information can be entered, but I ave having trouble getting the information that is entered in the user form into the correct cells in excel.
I am wanting my information to enter the tables and then automatically move into the next available cells below.
Private Sub cmdadd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("details of cars in stock")
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
If Trim(Me.txtreg.Value) = "" Then
Me.txtreg.SetFocus
MsgBox "please enter a registraion number"
Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.txtreg.Value
Me.txtreg.Value = ""
View 9 Replies
View Related
Jul 17, 2014
I'm trying to get certain Excel cells (varies by column and row) to populate different areas in a Word document. I've tried using both Word bookmarks and form fields and have defined the Excel names with the Word bookmark names as well as using Word's generic terms (Field1, Field2, etc.) with no luck. The VBA code I'm using now is for word forms and will open the Word document but seems to delete the form fields. I don't know if I'm not coding the cells correctly or what.
Sub CreateProposal()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Set wdApp = CreateObject("Word.Application")
' Open word document
[Code] ........
View 3 Replies
View Related
Apr 24, 2012
Is there a better way to do the following:
Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Range("b5").Address Then
Sheet1.Range("j5").Value = Target.Value
End If
If Target.Address = Range("c5").Address Then
Sheet1.Range("j5").Value = Target.Value
[Code] ........
View 6 Replies
View Related
Mar 11, 2014
Is there a way to prompt users to enter information in a specific range of cells before they save?
View 1 Replies
View Related
Dec 13, 2011
I have a userform where I want the user to enter the date (US Version)
I want them to enter 121311
I want the textbox which I am using to show 12/13/11 when they exit from it.
Here is my code i am using:
Private Sub mm_built_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim mm_date As Date
Me.mm_built.Text = Format(mm_date, "mmm/dd/yy")
End Sub
What shows when they exit the entry for the above is Dec/30/99
How do I get it to show correctly?
View 5 Replies
View Related
Nov 8, 2007
i need an inputbox to appear asking the user to enter an amount(we'll call XX).
Now the code will find that value in Column F, and delete the row that contains the value XX in F
View 9 Replies
View Related
Mar 10, 2008
I'm trying to force a user to enter a numeric value, (one numeric value between 0 and 8, inclusive) into a range of cells, prior to exiting the spreadsheet.
The range would be D7:D252, and a single value would have to be entered into each range prior to exiting the spreadsheet.
View 9 Replies
View Related
Jun 30, 2009
I am trying to create an input box where the user can only enter a whole number between 1 and 99. i can create the input box but am having trouble specifiying it can only be a whole number between 1 and 99.
View 9 Replies
View Related
Sep 25, 2006
I've created a calendar user form, much like many of the examples I seen posted here. I've tried all that I could find but none would allow the user to use the Enter Key to make the selection like the mouse click.
I would like the use of the Enter Key to produce the same results as a Mouse Click.
View 3 Replies
View Related
Nov 6, 2007
I have a macro with about 20 Subs and before each one I wanted a msgbox saying "macro is now running sub 1." which then changes to "Macro is now running sub 2", all while the user is sat there with his feet on the desk twiddling his thumbs.
View 9 Replies
View Related
Sep 8, 2012
I have a series of consecutive cells that I have a number entered in it. AP50 through AP 74 are numbered 1 through 25. I don't want the user to be able to change the number but I do want them to be able to click in the cell as this makes other functions happen.
View 3 Replies
View Related
