Excel 2003 :: Allow User To Enter Post Code And Some Details Will Be Returned Using VLookup?
May 8, 2013
I have produced a basic search/lookup facility on an Excel workbook that simply allows the user to enter a post code and some details will be returned using a vlookup. The document is going to be rolled out to a number of operational users so I want to basically 'lock down' everything I can in the document (basically everything except the data entry cell) and make it fool proof- I have locked all cells apart from the data entry cell and have made the file read only.
The only issue I am encountering is when the cursor is in the one 'unlocked' cell (i.e. the one the users will enter the post code into); it appears that you can break the document. For example, when the cursor is in the 'unlocked' cell, I am able to go to Tools > Options and change various settings including cosmetic colour changes but also cell calculation which breaks the lookup functionality. This is probably enabled as the cell is unlocked, but if I lock the cell, when I protect the document, it disables data entry!
if there is another way of providing this one cell for users to input data into for the vlookup to work whilst locking down the rest of the document to ensure that no-one can break it?
View 1 Replies
ADVERTISEMENT
May 27, 2014
User form data entry.
I need to save the data of For Eg. A form in Sheet 1, B form in Sheet 2, C form data entry in sheet 3.
what is happening now is that, all the entries are going in the Active Sheet that is open in the excel file. I want to automate the process of data entry, by making it enter data from specific form in specific sheet.
1st form
Code:
Private Sub CommandButton1_Click()
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = ComboBox1.Text
Cells(eRow, 2) = TextBox12.Text
Cells(eRow, 3) = TextBox2.Text
Cells(eRow, 4) = TextBox3.Text
Cells(eRow, 5) = TextBox4.Text
Unload Me
ThisWorkbook.Save
End With
End Sub
2nd form
Code:
Private Sub CommandButton1_Click()
eRow = Sheet2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = ComboBox1.Text
Cells(eRow, 2) = TextBox14.Text
Cells(eRow, 3) = TextBox2.Text
Cells(eRow, 4) = TextBox3.Text
Cells(eRow, 5) = TextBox4.Text
Unload Me
ThisWorkbook.Save
End Sub
View 2 Replies
View Related
Jun 11, 2013
Basically, in the "Thisworkbook" code , i have some code in the Workbook_BeforeClose section. Currently , it autosaves the workbook in a folder i have specified.
However, i need to add some code.I want to check that a certain cell has a value in it before the user closes the workbook, and if the cell is empty, show a messagebox asking him to enter a value.
I know how to get a messagebox to pop up, the only thing is once the user clicks the OK button,
i need the rest of the code execution to pause, allowing him to make the change then if he clicks the "X" (top right of the screen) to close the file or application, the filesave dialog appears and he can then save the document.
how to go about this because at the moment when user clicks ok, the messagebox just disappears and filesave dialog appears and he doesn't have a chance to edit the cell.
View 5 Replies
View Related
Feb 27, 2014
When I enter a value into a cell and press "ENTER" or press the Right Arrow the whole spread shifts to the left instead of just confirming the entry of the cell and moving one cell(column) to the right.
This is a spreadsheet that I have used for over 3 years so something has changed in one of the settings.
I have Office 2003.
View 2 Replies
View Related
Apr 20, 2009
I am trying to display a message box for the user if there is "agency" in cell o8 but nothing in p8... I tried the following code but it doesnt work..
If Range("o8").Value = "Agency" And Range("p8").Value = "" Then
MsgBox "Please provide name of agency in cell p8"
Sheet9.Shapes("cross").Visible = True
Else
View 9 Replies
View Related
Mar 9, 2009
With Excel 2000 Hyperlinks to other locations in a Workbook such as an Index to other worksheets can be achieved (executed) with the Enter Key. When using the same file in Excel 2003 the only way to execute the Hyperlink is by clicking with the Mouse.
Is there any way to get Hyperlinks to operate the same (with the Enter Key) in Excel 2003?
View 4 Replies
View Related
Sep 19, 2009
On the attached workbook i have a simple form with text boxes and a enter button and cancel button.
So far, i have only got as far as the cancel button closing the form. I want to know what i have to do to enter each of the fields in to the cells written on the form. Also when i do press the enter button, if any of the fields are not entered then a message box must appear notifying the user all the fields are not entered and then finish by taking them back to the form.
View 8 Replies
View Related
Nov 30, 2009
I've got one more problem to solve with my current project. An example of the workbook is attached.
What i want to do is change the code on my 'enter button' of the 'input form' which can be shown by clicking the 'Add New Hedge' button on the summary sheet.
The change i want to make is when the user clicks 'enter', if the 'settle now' checkbox is false to add the details of the form to the unsettled hedges form as it currently does.
If the 'settle now' checkbox value is true then i want the form details to be added to the next available row on 'settled hedges' worksheet, in the same way it currently does for adding into the next available row of the 'unsettled hedges' sheet. Also here, i would want the value of the 'returns' textbox added to be added into column L rather than the text "unsettled". This would also mean when the 'settle now' checkbox is true that the 'returns' textbox needs to have a value before adding any details.
View 15 Replies
View Related
Jun 10, 2014
I have a workbook in Excel that runs some code when it is opened [see below].
It works fine for everybody except one person using Excel 2003 - they get a Run-time error '5' : invalid procedure call or argument message and I cannot figure out why.
[Code] ......
View 2 Replies
View Related
Oct 2, 2012
I'm using Excel 2010, and I need to restrict the value the user can enter into a cell (E9).
In cell E3 is the screen width (pixels). eg 6024
In cell E5 is the preferred width of a window. eg 450
The user, in cell E9, enters an x coordinate for which they prefer the top left corner of the window whose width is specified in E5.
If the value that the user enters in E9, added to the width entered in E5, exceeds the value of E3, (if E9+E5 > E3) then the value should be disregarded (window will be off right of screen) and the user re-enter.
I'm not familiar with the use of data validation, so I'm uncertain as to how to use it in this circumstance.
View 3 Replies
View Related
Apr 28, 2014
Problem-1) i want to round off the digit in the same cell i,e. Formula in F12 should be included in D12.
Problem-2) i have entered a sample account.in this i want to post the data entered in day book into their respective sheets of jaya and supervision automatically.
View 1 Replies
View Related
Jun 27, 2014
I would like to be able to limit a drop down list's contents based on a user's selection in a different drop down. I am using Excel 2003, and I know how to do this in Access, but I can't figure it out in Excel. Basically, I have a list of themes in one drop down. The user picks a theme, and goes to a second drop down which is a list of sub-themes attributable to that one theme and no other theme.
View 1 Replies
View Related
Feb 20, 2007
Is there any way to "Inscribe" a cell? I would like to run a macro on Enter keypress, that would execute different code depending on that "inscription" that would be invisible to user. I could use some properties of . Validation property like this:
Private Sub EnterPressed
'following code to ensure proper functioning of Enter in any other Worksheet
If ActiveSheet <> mySheet 'MySheet is global Variable then
ActiveCell.Offset(1,0).Select
exit Sub
End If
'now the real code
If ActiveCell.Validation.InputMessage = "1" Then
ActiveCell.Offset(0,1).Select
Else
'something else
End If
End Sub
The problem is, I use Data Validation and Conditional Formatting, so can't use any of these properties.
View 8 Replies
View Related
Feb 6, 2014
I'm using VBA to upload the open workbook to app.box URL which is working great! Since I'm pretty new to VBA, I can't figure out how to get Excel to display the sucess/failed message from the server to the user. I used the VBA POST upload module from this awesome tutorial, but I can't figure out how to return the message to the user. I did figure out that on the website there is an "id="after_upload_message", not sure if that works. My code is below.
[Code] ......
View 2 Replies
View Related
Oct 16, 2013
I am having difficulty with a Vlookup in Excel 2003. Basically I have converted both fields to Text using the text function =TEXT(A2,"0") and have tried matching the values but just get an #N/A error and I have also converted both back to number format but still get the #N/A error....when I do a "=" operator function it returns a FALSE value but I cannot see why as both cell are just 4 or 5 digit number.
View 3 Replies
View Related
Aug 23, 2006
I am trying to write a macro that will search in column ONE, then autofilter in column TWO.
So for example....
aaa | abab
bbb | abab
ccc | sdsd
aaa | abab
bbb | sdsd
I then search for "aaa"
then...(it autofilters by what is associated with column TWO, regardless of what was in column ONE)
aaa | abab
bbb | abab
aaa | abab
I was thinking...using Vlookup in column ONE, then Autofilter with column TWO.
My code right now is...but clearly it doesnt work.
Sub CommandButton1_Click()
Sheets("Sheet1").Activate
Dim Var As String
Var = Application.VLookup(TextBox1, Range("A2:AI772"), 34, False)
Selection.AutoFilter Field:=34, Criteria1:="*" & Var & "*"
End Sub
View 5 Replies
View Related
Feb 17, 2009
I have finally come up with a macro and would like to install it to around 10 people's "Personal Workbook" in my department. Let me explain a bit further...
We use web-based software which has an "Export to Excel" option which we all use. The resulting data populates into a spreadsheet automatically.
I would like the user to be able to click on Tools/Macro/Run Macro and then run that particular macro. I assume that this macro should be in the "Personal Workbook" so that the macro will be visible no matter what worksheet they may have open?
Can this be done automatically/with a macro or must this be manually done?
I"m using Excel 2003.
View 14 Replies
View Related
Oct 20, 2008
Aged Debts & Comments
Comments consists of the following
Customer number, Date, Comment, Date, Comment, Date, Comment, Etc Etc....
Aged Debts is
Customer number, Current Outstanding, 30,60,90,120.. Comments.
I would like to bring back the last comment which would be the furthest right comment in "comments".
Ex. of COMMENTS
A B C D E F G
0001 17/10/08 Called Cust. 20/10/08 Payment Promised
0002 15/10/08 No Answer 17/10/08 No Answer 20/10/08 letter Sent
0005 15/10/08 Payment Promised
Ex of Aged Debt..........
View 9 Replies
View Related
Mar 15, 2013
I have two spreadsheets, one with master file with original data and one that needs to pull in the original data. My issue is all the data to match off of is in the same column, and a number of other files link to the master file, plus it is used externally, so I cannot alter it, and I would rather not create a mock/copy file. Is there a formula that can look for 2 different items within the same column? Would prefer not to use VBA, but if that's the only option I'll take it. I am using Excel 2003.
Here is an example of the setup - I would need the formula to reference off the two different items/categories in the column, so lookup off the 'St. Louis' and following that, lookup off the produce items.
View 4 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
Jan 19, 2012
Below is an extensive macro that basically writes data from a user's template to a certain data sheet (in the form of rows) depending on their "service group." There have been 3 separate instances of a user saving data and instead of adding rows onto the bottom of the entire list of data, the sheet only has their data and no headers/filters. I believe it is somehow deleting all the previously written data that was on that sheet.
I should also mention that this is a shared workbook. I specifically created separate sheets for each "service group" to eliminate the possibility of users overwriting each other's data (Perviously 60+ users were saving to the same sheet and running into conflicting changes errors. Now the max users writing to one sheet is 10-12). Since it is not occurring every time, I am not sure where the error is. Could it possibly be in the sort or delete sections in bold below?
I am using Excel 2003.
Code:
Sub SaveData_Test()
'---------------------------------------------------------------------------------------
' Procedure : SaveData_Test
' Author : Julie/Cecil
' Date : Fri, 1/13/12
' Purpose : Modified Julies code to capture date entries
' associated with hours logged per category.
' Check notes attached to "sOp" string comment
' for additional details.
[Code] ..........
View 5 Replies
View Related
Mar 22, 2012
I have a spreadsheet, but it came from another file using the detach sheet method. It has therefore taken with it, all the named ranges that are now superfluous.
It seems a bit long-winded to delete these named ranges one by one manually. Would there be an easy to understand script that would delete them all, so I can start with a "clean sheet".
I'm using Excel 2003.
View 5 Replies
View Related
Apr 24, 2012
Why am I getting a runtime error on the following code:
Code:
If Target.Address = "$E$5" And Target.Value "" Then
Range("E5:G5").Copy
If Sheets("Sheet5").Range("F5").Value = "" Then
Sheets("Sheet5").Range("F5").PasteSpecial xlPasteValues
Else
Sheets("Sheet5").Cells(Rows.Count, "F").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues
End If
End If
When I select only one cell it's ok but when I select multiple cell to delete it sends me a run-time error '13'.
Excel 2003, sheet is protected.
View 2 Replies
View Related
Feb 3, 2013
How to amend existing code in a workbook that is used by many different users. I am working in Excel 2003. The existing code copies data from certain cells in the active worksheet (which is password protected) into a new worksheet and saves that new worksheet to a temp folder, sends it to a particular email address using outlook and closes it, returning the user to the first workbook. You will see that it also unhides then rehides columns of the first worksheet during this process so that the user never has to see them. Problem here is that none of the users are using outlook anymore and I would prefer that this new spreadsheet that is created just be saved to the users desktop. I have found bits and pieces of what I needed on the web, but I can't seem to put it all together (I usually end up being sent to the debugger just short of having the newly created spreadsheet saved to desktop). Here is the existing code:
Private Sub CommandButton1_Click()
Range("A2:G2").Select
Selection.ClearContents[code]....
Essentially what I need to do is circumvent the whole email bit and save the spreadsheet that is created to the users desktop instead of a temp folder.
View 2 Replies
View Related
Jul 30, 2014
From an Excel 2003 workbook I generate some product labels. Each label has a 5 digit job number and a quantity that are passed to variables. If the quantity is 1, then I have no problems in printing my label. My problem is where the quantity is greater than 1. If a job has more than 1 item (can be up to 40 or 50) I need to add a series of letter (or letters) to the end of the job number.
For example:
Job number 12345
qty 1
number on label 12345
Job number 12346
qty 4
numbers on labels 12346A, 12346B, 12346C, 1234D
so that each printed label has a unique job number
View 3 Replies
View Related
Oct 9, 2012
Trying to convert an Excel 2003 macro to work in Excel 2007.
The problem line is
Dim MyDataObject As DataObject
I suspect the problem is a Missing Reference, but I cannot figure out which one. I have the same ones (in 2007) as 2003 except for one which is not showing
Microsoft Forms 2.0 Object Library
Is this the one it needs? It is called something else in 2007?
The ones I do have ticked are
Visual Basic For Applications
Microsoft Excel 12.0 Object Library
OLE Automation
Microsoft Office 12.0 Object Library
Microsoft ADO Ext. 2.8 for DDL and Security
Microsoft DAO 3.6 Object Library
Microsoft ActiveX Data Objects 2.8 Library
Microsoft Scripting Runtime
Microsoft XML v2.6
View 8 Replies
View Related
Nov 6, 2011
I use Excel 2003 at work. I'm looking for some code that will Open a folder and then lets the user to select a file then continues to run the macro.
The file name they select will look similar to this K2271011.504 or K3011111.201
View 3 Replies
View Related
Jan 13, 2010
I have a sheet where I put a code from a product in Column B, and the name of the product will appear in Column C, with a VLOOKUP Formula. What I would like to do is, get a VBA code to display a msg box, if somebody enter a the wrong code. If that happen a #N/D will appear in Column C.
In this Sheet I already have the bellow VBA Code, to avoid repeated product codes:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range, Dn As Range
If Target.Count 1 Then Exit Sub
Set Rng = Range(Range("B1"), Range("A" & Rows.Count).End(xlUp))
If Application.CountIf(Rng, Target) > 1 Then
MsgBox "O valor introduzido " & "(" & Target & ")" & " é duplicado. O Menino está a Dormir???"
End If
End Sub
View 9 Replies
View Related
Apr 21, 2014
i have a formula in a cell:
=IF(ISERROR(VLOOKUP($D11,PRMC!$O$15:$P$1048576,2,FALSE)),"",VLOOKUP($D11,PRMC!$O$15:$P$1048576,2,FALSE))&IF(ISERROR(VLOOKUP($E11,PRMC!$O$15:$P$1048576,2,FALSE)),"",VLOOKUP($E11,PRMC!$O$15:$P$1048576,2,FALSE))
The first half of the vlookup searches for data and returns a dollar amount if true The second half of the vlookup searches for another data set and returns a dollar amount if true...
Both amounts could be the same, so I cant use a formula based on numeric value
the conditional format must determine which vlookup is returning the result
in other words I'd like to conditionally format (grey fill) if the first vlookup returns data and conditionally format (blue fill) if the second vlookup returns data
Probably have to "use a formula to determine which cells to format"
View 7 Replies
View Related
Jun 20, 2007
If the user clicks on a cell within a specified range ("DataEntryWindow") which contains formulas, I want the formula RESULT to be copied on to the formula bar for that cell (not in to a cell) - the user can then press enter to replace the formula with the result, or escape to cancel
- you can do this manually by copying the cell as values to another cell, then copying that value to the clipboard letter by letter, then clicking on the original, clicking F2, selecting all the formula text, then pasting the clipboard!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("DataEntryWindow")) Is Nothing Then
curval = Target.Value
Application.SendKeys "{F2}"
'Application.SendKeys "???" ' some keyboard combination to go left, left, left
Application.SendKeys curval
End If
End Sub
Needless to say, it doesn't work. sendkeys seems to do nothing at all. is there an object in worksheet for the formula bar that i can paste to?
View 3 Replies
View Related
