I would like to add a piece of code into the user form that will check and verify if a part has already been added so as to avoid multiples in a user-driven/created database.
here is a repost of the current code i am using for the user form (I have posted it before in another thread .. Blane245 helped me out with a different question I had)
I have used the search function but can't seem to find a suitable solution.
I'm trying to figure the best way to extract 12 continuous months worth of data from a table and plot on a graph, each month with a separate plot on the graph (i.e. not the summed total but rather, a line graph with 12 points). The data is based on two, user-generated inputs, that are produced from a dropdown box.
I can create the Data Validation rules, use a Match formula to produce the reference for an Index formula and i have created a bunch of Named Ranges to work with and can easily generate the FIRST value to plot.
E.g. INDEX(DATA,ROW,COLUMN). After the first value, I'm stuck on how to generate the rest.
I have attached my problem for reference : Excel Problem.xlsx‎
how do I code in vba for it to wait until the user has checked the file that has been made make a few amendments and then when done one would click OK or resume for the program to carry on with the rest of the code.
View 2 Replies View RelatedI'm trying to write what is supposed to be a simple script that looks at a column of usernames (ColumnA) and passwords (ColumnB). I start off by prompting the user to enter their username in an input box and then I want a loop to check this value against the values in Column A. If the username exists, I want to prompt an input box for the password. If the username does not exist I need some kind of limit on the loop to prompt an input box for the user to enter a new username and password that I'll add to the last row of the data table. The loop part is kicking my butt, this is what I have so far...
Sub Main()
Set StartRange = Worksheets("16.10"). Range("A1")
username = InputBox("Please enter your username.", "Enter username", "Jdoe")
i = 1
Do While StartRange.Offset(i, 0).Value <> "username"
i = i + 1
Loop
If StartRange.Offset(i, 0).Value = "username" Then
password = InputBox("Please enter your password.", "Enter password", "password")
End If
End Sub
I have created a userform and a command button to bring up the user form but when I click on the command button and the user form pops up I am not able to enter any data, the entire page freezes
This is the code
Private Sub CommandButtoncancel_Click()
unloadme
End Sub
Private Sub CommandButtonOK_Click()
With Workbooks("RETS results version 2.xlsm")
[Code] ......
Is it essential to enable macros in whatever the pc i use, if i am interested in using a form which i created in a different pc with macros. is there a way to avoid this. because each and every time i dont want to change the settings in excel in other pc. the form which i create will be filled by my colleagues and they have to send it back to me.
View 2 Replies View RelatedIs there a way to avoid a textbox value from being entered into the same cell on a worksheet more than once.
I am building a BOL(Bill Of Lading) wizard. Within the userform the end user will input the part numbers and quantities to be shipped... it also has a textbox that will hold the PO number that each part belongs to. I have a command button that says Add to Pallet 1. Pallet 1 will be on a row by itself on the excel sheet. Parts belonging to different PO#'s can be on this 1 pallet. When the end user clicks the "add to pallet1" button... the PO textbox (textbox6) value will be sent to (Sheet3) Cell I28. If, for example, PO# 12345 has already been added to (sheet3) Cell I28 and then the end user plugs it in again, i would like for it to be discarded and a message box stating this PO Number has already been accounted for...
so you get a better understanding...
Qty's... part numbers and PO#'s for Pallet 1 will be on row 28. Multiple PO#'s will fit into Cell I28 seperated by spaces and i will do wrap text.
Qty's...part numbers and PO#'s for Pallet 2 will be on row 29...so on and so on...
I've created a User Form in VBA. When this is filled out, and they hit the enter button, I want the info they entered to automatically be entered into a new worksheet within the document.
Here's the code I currently have:
Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheet("Sheet1")
How to put a formula into my userform created in Excel.
What I have is 4 Combobox's which can select either 0,1,3 or 9 then each box has a weight which that number must be timed by this is the excel formula:
=SUM(L48*10,M48*10,N48*8,O48*6) so that was 9x10,3x10,9x8,3x6 Which gives me a sum of 210.
Can this be added to the userform so when the user selects the number from the dropdownbox it will calculate it into the total score?
This is a screen shot of the userform : Capture.JPG
I have created a combo box in a userform called combobox1 and userform1
I have also created 2 command buttons called Go and cancel
below is the code for the combo box.
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've been trying to modify this code in several ways but I can't figure it out, I'd like to
a) use different sections for the email generation where the email address/surname/forename/location are in my user database
b) have a popup screen appear for the body of the email text, I don't like the idea of my secretary having to go into the code to change the text
c) another popup box requesting an email identifier that will set a 'flag' in the Email Information column to show they've had that email and (this may be ambitious) to record the body of the email text somewhere that I can review so there's a record of what's been sent out
This is the code
Dim oXlWkBk As Excel.Workbook ' Excel Work Book Object
Dim oOLApp As Outlook.Application
Dim oOLMail As MailItem
Dim lRow As Long
Dim olMailItem
[code]....
Using the code below, I search a database (Sheet1) on a pallet number and display in the listbox all the items on that pallet.
Assuming now that the pallet has been "worked" or despatched, what code would I use to delete that pallet and all its items from the database?
Private Sub cmdFindAllPal_Click() 'Find all Pallet
Dim FirstAddress As String
Dim strFind As String 'what to find
Dim rSearch As Range 'range to search
Dim fndA, fndB, fndC, fndD As String
Dim head1, head2, head3, head4 As String 'headings for list
Dim i As Integer
i = 1
Set rSearch = Sheet1.Range("b7", Range("b65536").End(xlUp))
strFind = Me.TextBox2.Value
With rSearch
Set c = .Find(strFind, LookIn:=xlValues, LookAt:=xlWhole)...........
I have created a form that will add new records to a database. On the database there is a predetermined ticket number. The "Create" form looks for the first blank row and adds the information on the form the database.
What I am trying to make happen is when a "Ticket Number" is entered in the appropriate field on the "edit" form, the "Date Raised" and "Raised By" fields populate based on the information stored on the row for the ticket number enter.
I have created a userform on the "Database" sheet that has a listbox at the bottom that populates with records when I search for someone using the 'Name' box.
The problem that I am having is that when I enter "Person" and get the 30-odd records appear in the listbox, I click on say Person 5 BUT the userform fields do not update themselves fully with the correct information.
I found the following thread ....
when "Update"(code is under "Update"button) button is pressed to copy the data from userform to the database sheet exactly into columns where both column heading match, for example if userform has heading "Qty Received " all data from that column should be in the database column with the same header "Qty Received"
I attached my file when you will open the file you will find screenshot how it should look.
I am trying to create a relatively small database that is updated by users through a userform, but also has the capability to have columns (attribute categories) added or deleted without code modification.
I think my starting point, though it works for the simple case of no updates without code modification, is not good for my actual goal.
I have a database of 13 columns and ever increasing rows.
I want the following to be there on my userform.
1 combobox: showing the list of categories from which to search.(The categories are the column headings in columns A1 to A13.The user will have to select one category.
1 textbox:Here the user will enter the search term.
1 Command Button: When the command button is clicked/entered, the code shall be such that it will search in the column corresponding to the category mentioned in the combobox and display the results( The entire 1 row x 13 cloumns containing the search term) in a Listbox. If the search term does not matches then a message box should appear with the message "No entries found"
[b]
1 Listbox:to display the search result as mentioned above.
I am working on a label printing set-up for my work. So far I have completed the userform that formulas will be entered on and printed from. I had an idea of being able to save these formulas for recall later. I included “Save” and “Recall” buttons on the userform. My plan is to have my co-workers click on the “save” button and be able to enter an additional piece of data and have everything saved to another worksheet labeled “database”. If you look at the said sheet you will see a column for “customer”, “color” and then the colorants. Due to the wide variety of colorants and quantities available, I set it up so that I have the colorant and under that Oz and 48ths. I am trying to figure out a code that will populate that across the row.
Then I want to be able to push “recall”, find my customer and then color in a combobox and have that populate my label.
At this time I am stuck. Part of my problem is I don’t quite know the terminology to google.
Attached is the file I am working with. The only sheets that need concern anyone are "main" and "database". The others are from the original file and I will be deleting those once I am done.
Userform Loading with database turns to close all Excelworkbooks completely
Database created in Excel worksheets to load and show in various different objects on userform. At present this project file size is approximately 2.5 mb and more to go as it is not yet complete. Now you can imagine how much big this project can be.
It uses various different types of objects such as listboxes with many columns, combo-boxes, textbox, checkbox and many. Every objects has its own style to display data on userform which is set in its properties itself.
Before loading userform to display, program creates database from manual entry (which is made by user on their working sheets) to database entry sheets (which is made to make compatible to show on userform). Upon loading, it also loads/populate all datas required in their objects to display.
All works perfect when I am in editing mode. It doesn't matter how big the database can be and works as required. This Project is now Password Protected and distributed among all staffs in our company to work with.
Error Occurs, when I tested in non-editing mode. The moment I triggered the macro to load the program, it takes some few times and pops-up with Excel Recover error message box asking whether to send Error Report and to whether recover & start Excel application again??
I don't know what is wrong. Sometimes it also run successfully when in non-editing mode even there is no changes in program codes.??
Sometimes I feel there can be a virtual memory issue, but my Pc is more than enough with 1GB ram. I hv also increased virtual memory limits and tested but all vain attempt...
I've got a sheet which is filled with data from an SQL query, the data looks similar to this
Make Model Derivative
AUDI A3 HATCHBACK 1.6 3dr
AUDI A3 HATCHBACK 1.6 5dr
AUDI A3 HATCHBACK 1.6 SE 3dr
AUDI A3 HATCHBACK 1.6 SE 5dr
AUDI A3 HATCHBACK 1.8 SE 3dr
AUDI A3 HATCHBACK 1.8 SE 5dr
etc
On a seperate sheet I want to select the make in cell 1, then cell 2 populates with all the models for that make, select a model then cell 3 gives a list of derivatives to choose from. I'm not sure what this is called, I would call it a drop down list.
Currently I have a database in an Excel template. After a user creates a new workbook from the template, a macro button on sheet 1 brings up a window (a userform) to allow selection of items from the database sheet. The item selected is entered on sheet 1 by means of VLookup. That works fine, but to edit the database correctly it is necessary to open the template itself. This is not a user-friendly method.
I figure the best way to solve this dilemma is to separate the template from the database. That is, make the database sheet into a workbook. This I've done. Here's the problem: What code is there that links the list box in the userform (of the template) with the closed database workbook? Is it even possible? If a file path type code is required, it may work on my computer, but when I use my template and database on another computer, the code doesn't work.
Another problem, and similar is this: I'd like to be able to have a macro button that opens the database from the new workbook (which was created from the template) in order to edit the database. If having a template seems to be my problem, I must have it since each workbook created from it is a different project.
I have formulas in cells B8:B365 that pull project names (in words) from a plugin using values specified in other cells (non-formula). If a project is inactive, the cell returns a 0.
I am looking for a macro that will hide the rows in this range where the B cells = 0. If there is no data at all, I want to leave the row as-is (unhidden). I also have 2 other specific sheets in the workbook that I'd like to include in the formula without having to repeat the macro 2 other times.
The one I am currently using just hides every row, regardless of if there is a title, a 0, or nothing. Here is the code (I don't know how to create those nifty little text boxes):
I am encountering an error(-2147417848) when running my existing code. I did a little research and found on MSKB Q319832 information that suggests that I might try qualifying my code (not that I know what that means : D) In the article, it suggests using something like the below:
Dim oXL As Excel.Application
Set oXL = New Excel.Application
oXL.Visible = True
.....
.....
oXL.Quit
Set oXL = Nothing
I tried this approach and it fails as soon as it hits the event portion of the macro:
If oXL.Target.Address = "$C$2" Then
....
End If
I need to understand how the oXL object is used against information in my existing workbook.
Below is my current code. The strFind1 searches for a name within the database and then I need strFind2 to do a exact for a Subproject search and a partial search for everything containing the Subproject selected and other Subprojects. Currently, when the database entry in the worksheet includes Subproject 1 the search function works but when I have an entry that contains Subproject 1/Subproject 4 it does not find the entry. How can I expand the strFind2 to equal what is selected in the Combobox2 and find entries that have what is selected plus more text. I have set the line where I think everything is going wrong to a bold format.
[Code] .....
I have a spreadsheet listing various pieces of computer hardware, software and mobile accessories, etc with costs attached.
I have created a dropdown list of staff profiles eg a sales representative, finance assistant, IT administrator.
What I want to do is get Excel to pull the data through from the data sheet, to a printable summary output form (something you could also cut and paste from). For example, a sale rep would need to be set up with a laptop, laptop case, mobile phone, etc, so when you select Sales rep from droplist, I want that action to pull all the associated data through to the summary form. Similarly, a Finance assistant would require different kit , perhaps a desktop PC , monitor , etc.
Next to my data I have created columns with "Y" for yes in cells containing kit that match the staff role requirements, but I am not sure of the best way to pull this together.
In the following code snippet I have worked out a way to verify that the user inputs an Integer and then prompts downstream if an improper value was entered. The user is prompted for a corrected reponse and loops until they get it right. The initial Cancel at the first prompt was causing issues until i saw poster: titarelli use StrPtr(). Except for subsequent cancels, the code works but it is clunky at best. How to tighten this up?
VB:
Dim Quantity As Variant
Dim CorrectedQuantity As Variant
Dim j As Integer
j = 194
Quantity = 0
CorrectedQuantity = 0
[Code] ......
I have a VBA userform with various textbox fields like 'Name' and 'Address' and 'Amount'
I would like an input box to pop up that asks the user to 're-enter for verification'
So that they have to type the same thing twice, to protect against typos
How do I code it so the program compares the inputbox to the textbox and passes only if they are identical?
(or even, using two inputboxes instead if that would be easier)
i have followed the following criteria correctly
Create a function GetProducerRow() which takes in one String input (give it any name following the conventions) and returns an Integer.
Write a Select Case statement inside the function.It should compare the input string with the various companies listed in the Voting tables in cells F5:F9.
The Case should not use hard coded values for the names of the companies but something like Range("F5").Value.
In each case, set the return value by assigning the appropriate row number. For example, the value assigned would be 5 for "The Hershey Company" store in F5.
Remember to write Case statement for each of the 5 producers.
Add the Case Else in-case none of the producers match the input and have the return value set to 0.
Function GetProducerRow(strProducer As String) As Integer
strProducer = Range("F5")
Select Case strProducer
I am trying to check what was selected from a validation list range. I need to put up a message box if a certain selection is made. I will try to give some more explaination and detail.
I have a 'Labor Type' cell that has a validation list based on the 'LaborType' range that contains things like T&M, PM, Claim*, Quote, etc. When Claim* is selected, I want to put up the message box reminding the user to enter some additional information.
I have tried a few things like Worksheet_SelectionChange that I can't seem to get to work. I admit it has been a while since I have used a function like this (and never with a list).