Attached is a workbook for entering sample receipt. Each new entry/row should have the consecutive number in column A.
I have a button for calling up the default form for a database (e.g. Data>Form>New).
I was wondering whether there was any way to save the values put into a form, so that next time you open it the same values will appear - basically I want all the variables I type into my textboxes to be saved when a button on the form is pushed.
But I can't find the magic words - I'll include the code so far below, but the crucial bit is missing (if it is possible at all)...
Private Sub btSaveDefaults_Click()
Dim tb As TextBox
For Each tb In fmImportSetup.Controls
'*****HERES THE IMPORTANT BIT*******
tb.??????? = tb.value
Next
End Sub
Is it possible to get the value of the E39 cell, and use that value as the default text for a text box in a user form?
View 2 Replies View RelatedI have a form I'm building that I want to put on the server to allow different people to complete as needed.
As they complete this form I want to take all the info they entered and have it go into a data base once there I want to clear the form for the next person.
I have a userform to view data in a database from a combobox result as follows:
Private Sub cmbCompany_Change()
With frmChangeCustData
.txtCustNo = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 2)
.txtAddress = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 3)
.txtCity = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 4)
.txtState = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 5)
.txtZip = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 6)
.txtPhone = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 7)
.txtContact = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0, 8)
.txtFax = Format(Val(.txtPhone), "(###)###-####")
.txtEmail = Range("custdatacompany").Cells(cmbCompany.ListIndex + 0.1)
End With
End Sub
I want to be able to use the same type of form to edit any of the fields in the data base selectively. I think I need to reverse the above code in some manner to accomplish this. What I can't get my head wrapped around is how to get to the correct row in the database to post the edited fields in the correct spot.
I need to construct a text only database to keep track of an ever changing catalogue. The contained data will have three levels to it and look something like this:
Company 1
................Product 1
.............................Extra 1
.............................Extra 2
.............................Extra 3
................Product 2
.............................Extra 1
.............................Extra 2
Company 2
................Product 3
.............................Extra 4
................Product 4
.............................Extra 4
.............................Extra 5
...and so on
As you can see, the database will contain several companies, each selling their own products, each with certain extra's available. My main aim is to have an easily updateable list that can be summarised quickly into a company and their available products and extra's. The database hasn't been constructed yet. Have you guys got any tips or ideas on the best way of setting this out to keep it as flexible as possible?
My first thoughts were along these lines:
Company.........Product.........Extra
......1......................1.................1
......1......................1.................2
......1......................1.................3
......1......................2.................1
...and so on
Does this look to be the easiest way? Obviously there would be quite a bit of duplication in column A and B but as far as I can tell this is unavoidable.
I also have grand aspirations of having a front worksheet with a customised form that allows me to select the company from a dropdown list and then having it populate a list of the products and available extra's. Would I need to use VBA and if so how would I go about doing it? Is it possible to include something to export the results out to a new word or excel document? Eventually I would like to be able to hide the database and have data entry/removal made by way of a similar form. I must admit that this is currently out of my scope so chances are I may reply with further questions.
Lets say i have 2 columns A and B as shown below. I want to have a userform that has a list that shows the uniques in column A ie. 1,2,3 and a drop down next to each one that shows my options yes, no, maybe. If the user selects yes for 1 and submits the form i want all 1's in column a to have yes in column B.
A B
1 Yes
2 No
3 Maybe
1 Yes
2 No
3 Maybe
1 Yes
2 No
3 Maybe
1 Yes
2 No
3 Maybe
I have created my first user form that puts the info gathered onto a seperate sheet.
We are a garage and its for cars that come into stock.
What I want to do is when we sell a car, have a way of removing the car from the database but recording the infomation that was in the first database and some additional infomation like who sold it and the selling price.
I have found this code which inserts a sequential number in Column A skipping any blank rows.
View 2 Replies View RelatedThis time I'm looking for something like an autonumber code - I have a file with 1500 address entries entries (1 entry per row), and I have to number column A from 1 to the last row entry value (I shouldn't have it ending at 1500, because I know more addresses will be added in the future)..
So it will look like:
A........B....................C
1........123 Street......City
2........456 Street......City
3........789 Street......City
After trying to research/try out codes myself, I saw that the =row() will give you the number for the row, but copying that 1500 times would take a reallly long time, which is why I was wondering if it can be just done with a few simple lines of code. Again, I'm really not an excel-type of person, but I'm assuming the code would be something to do with ranges, .Autofill and .Offset? (I'm just basing this info from the last code I requested..)
i was wondering if it was possible to move database entries from sheet to sheet using a user form ? any examples for this ?
View 1 Replies View RelatedI have 100 or so workbooks named A1234.xls, A1235.xls, A1236.xls etc.
I want to gather information from the same worksheet and same cell in each workbook.
I want this information in a separate workbook named Master.xls
In the Master spreadsheet I have the workbook names in column A e.g.
A1234
A1235
A1236 etc.
In column B, I want the information form each of the 100 workbooks. For example, from "sheet 1" Cell C2. This is the same place I want the information from in each workbook.
Is there an easy way of doing this with a formulae rather than a macro. For example, in the Master spreadsheet column B1 formula would read =[A1234.xls]Sheet1!$C$2 ... and then can you drag this changing the filename according to column A in the master spreadsheet?
If not can a macro be used? I have only started looking at macro's and my knowledge on them is very basic.
I need to have a end user form that pulls information from a database and simplifies work for our substitue coordinator. Please be advised I have been working on this and can not get the desired results. I need a form that displays the current date and 5 columns of data the Data needs to be in seperate cells for example cell A1 titled TEACHERS and then the sub coordinator could start typing the name of the teacher in a2 and a predefined database of teachers name, class they teach, etc. MATH, ENGLISH and planning period would be pooled and automaticly fill the cell.
I also would need a second cell say cell B to be call Substitutes and b2- b100 to pull data from a database of substitute names and display their information.
I have set up a simple form in excel, whereby people use drop down menus to select the appropriate information (as all data inputted needs to be entered in exactly the same way to allow sorting, counting etc) so I thought drop downs were best. The trouble is the data is carried through to my excel database (on another worksheet) were it is shown in numeric values dependant on how far down the drop down list the select item appears (ie "Fareham" is third on the list, so shows in the database as "3").
I'd very much like my database to be easier to read and actually show Fareham etc, rather than be populated with lots of numbers. I initially tried using IF function (ie =IF(C3=3,"Fareham") but unfortunately two of my drop down lists are too long for this (with 25 and 33 entries respectively).
I'm trying to get a date picker to open with the current day's date, and am running into some trouble...
I added this line to the Initialize function:
Code:
Private Sub UserForm_Initialize()
DTPicker.Value = Date
End Sub
...and this to a button which opens the form:
Code:
Sub Open_frmPatientData()
frmPatientData.Show
frmPatientData.txtLastName.Value = ""
frmPatientData.txtFirstName.Value = ""
frmPatientData.txtID.Value = ""
frmPatientData.txtDay.Value = DTPicker1.Day
frmPatientData.txtMonth.Value = DTPicker1.Month
frmPatientData.txtYear.Value = DTPicker1.Year
End Sub
and I get a 'Run Time Error 424: Object Required' error on the line frmPatientData.show (in red). If I remove the line from the Initialize event, then everything works fine, but of course the current date isn't shown. What am I doing wrong?
I am currently trying to create a database of products for my company. For each product I would like to include an image associated with it. I then want to have on another sheet a place where the user will click an error and be able to cycle through the products. As tehy cycle the associated image will pop up.
What I need to understand is after importing the image into excel, how do I associate that image to a cell so I can reference it in another sheet of the database. I am not concerned with how large the database will get, my pictures are quite small.
I'm trying to lookup a database named database and return a time in column A, based on criteria in cells a1 and b1 on another sheet, A1 would contain a number and B1 would contain a day from mon-fri
eg of Database
A B C D E F G
10:00 5000 Mon Tues
11:00 5000 Wed Thur Fri
and so on
if a1= 5000 & b1=Wed
how can I return 11:00
I have tried index and match =index(a:a,match(a1&b1,b:b&e:e,0))
I've used a countifs, but I'm having trouble doing a sum in a similar way. I have 2 databases and I will try to explain below. I need the to sum the values of database 1 if the second database is >= 20. So the value I would expect on this example would be 900. I would also like to be able to highlight which ones are elliminated. Such as coloring the text red.
Database 1
Eric 100
Jenny 200
Gina 300
Doug 400
Database 2
Eric 18
Jenny 20
Gina 34
Doug 55
I'm missing something in my UserForm initialization code. If I fill the form out once and click 'OK' (run the code to put the form data into a sheet), when I go back into the form all the old info is still there. If I then click 'Cancel' (Unload Me) and reopen the form, the old data is cleared out. What am I missing to make it clear it out the first time?
View 2 Replies View RelatedI'm having trouble trying to come up with a way to insert data fields into a spreadsheet form. I have a travel authorization form that I would like to have automatically fill in the required fields based on typing in a name. i.e. I would type in an employees name, and it would automatically fill-in the correct address, etc for that employee. I have attached a spreadsheet that contains one sheet as the form, and another sheet containing the employee data. I know nothing about VBA, but I have a feeling that is where I need to go.
View 3 Replies View RelatedI am needing to create a form that exports data (a quote) to an Excel Db (table) and is then able to recall the data back into the form. (the default form in excel does this and I want to copy that.)
Once the data is called back in, I can then export it to another Table to show that the quote has been approved and will be used.
I am having trouble with the VBA coding that copies the inputted quote in Cell C2 (the reference for the quote number) of the "Form" sheet and looks it up in the "Database" sheet. I have tried several variations of code, but nothing works so far.
-SS
Sub RecallQuote()
'
' RecallQuote Macro
'
Sheets("Form").Select
Range("C2").Select 'this is the cell that holds the quote number to look up from the table
[Code] ......
I have a spreadsheet I use to keep track of weekly sales patterns and use for estimating the amount of a product I would need to order taking into account what I would expect to sell in a given week and what stock I have at present. On the example I've attached, I show where I enter my storeroom count figures, which are organised by supplier and the position in which a particular product appears on the supplier's order form. I have a page which lists the orders by suppliers and which are used to place the orders by e-mail or telephone.
At present I have each supplier section of the order form directly linked to a cell on the storeroom count as per columns K to M on the attached file. However, this means that as products are de-listed by suppliers and extra products become available, I have to edit the formula in each cell as the products now appear in a different position on the storeroom count and may otherwise end up on the order form for a different supplier. I would like to set it up so that I just have to select the supplier name and the table below will automatically fill with the required info, in order of the position they appear on the supplier's form. I'm struggling to combine vlookup and hlookup. Is there a way to do it or do I need to rethink?
I'm trying to pull up a second form from a command button within a form. There's a command button in a sheet to open the first form (frmOrderInput.) Then there's another command button in that form to open the second form (frmPriceInput.)
The Module to open the first is this:
I have got a userform that fits my 24inch monitor screen perfectly, however it doesn't fit other screens. How do I get windows style scrollbars added to the form so people can use these to see the whole form?
View 3 Replies View Relatedfind the attached workbook
I have a Database and user form, in the user form i have a field named “Vehicle No” this is a combo box from which a user needs to select the Vehicle numbers, and all these are working fine now, I need your help in the following:
When user selects the second field named "Select Vendor name" i need a pop up window which shows all the Vehicles belongs to the vendor which they have selected, and with the popup window user selects the vehicle number then the Vehicle number combo box should be filled.
Currently users have to select by scrolling through Combo box which takes long time and difficult to find by scrolling.
I have two forms...clicking a specific button on the first form should display the second form which works fine.
VB:
Private Sub Image_Employees_Click()
Form_Main.Hide
Form_Employees.Show
[Code].....
When I do this twice, however, the second form seems to freeze/hang and I have to close Excel and then re-open it. I feel like I'm overlooking something obvious...
I have created a registration workbook for this year's youth sports league. All of the information is entered into a User Form and separated onto it's appropriate sheet designated by the child's age. Next year, I would like to use this year's workbook to look up returning players.
Will it be possible to add a "lookup" button into my form, or create a lookup program, that once the registrar clicks on the correct player, the information is plugged into the User Form, the registrar adjusts the age and any necessary info, presses enter, and the information is copied into the appropriate category in the new workbook? I haven't worked with User Forms long enough to know if they can be filled in that way, but if this can be done, you are the people who would know.
I'm using a series of user forms for data entry to a workbook, some of them open next stage user form on completion (OK cmd button).
All that is working fine, but I'd like the initial form to close on showing the next one. I've tried adding Unload and Hide commands following the frmInsertEntry.Show (Next stage form), to no avail, but I'd like this user form to close or hide at the end of the sub.
Private Sub cmdContinueType_Click()
ActiveWorkbook.Sheets("Records").Activate 'Select starting cell in record sheet
Range("N3").Select
Do
If IsEmpty(ActiveCell) = False Then ' Search for next empty cell
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
If optDrillType = True Then
frmDrillEntry.Show
Else
frmInsertEntry.Show
End If
End Sub
I have created a form that pops up using a macro when the form is opened. It is a simple form that uses optionbuttons in a group to select Intl or Dom.
Problems:
1) How do you get the form to close once a button is selected?
2) The user can close the form without selecting a button (the X at the top).
3) How do you get the data selected onto the excel spreadsheet?
I need to create a form that if you were to enter a name in the text box it would fill all the information across that row into other boxes on the form. Basicly if I type John Doe in the text box it would look in col A for John Doe and then put whats in the cells on that row into different boxes on my form. I have tried searching but I have had no luck. Im very new to forms so this is a great experience.
View 3 Replies View Related
