I have a list of account entries on sheet1 that go from 1/1/2014 to 2/05/2014. I want a userform that prompts for a cutoff date, where I will enter 1/31/2014, and it will then clear all entries AFTER the date that I enter into the userform.
I will be doing this on a monthly basis, and the number of rows will change each month.
Is this possible to do using VBA?
this are function which button needs to be able to do after clicking on it.
• When the value of only one of Description or Unit/Price is entered, a warning message appears.
• When the message is confirmed, return to the entry status for the new data.
• When the values of both Description and Unit/Price are entered, save the values in the list of product (worksheet Product), and increase Product No. by 1 and erase values from NewProduct worksheet this is the screen how it should look but button which should be able to do all the thing above at once is called List Entry
[url]
after creating this function all the values from the table product need to be update into another table which sould look like that:
[url]
Is there anyone how could write code which will do thing above?
in the attachemnt is the excel file which shows what I have done so far, as i am not a good programmer,so I do not know if it's right
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] ......
I have the existing code below. What I would like to do is clear the ListBox of all previous records found prior to the next Find All event occurring. For Example I search for "M" and it finds 3 records and these are listed in the ListBox for the user to select from, then if the user searches for "Grealy" it finds 1 record and puts it in the list but the 2nd and 3rd record from the previous Find All event still remain.
I tried using the following code
Me.ListBox1.Clear
which clears the listbox but then as soon as you hit Find All following the above mention sequence you get the result as outlined.
Private Sub cmdFind_Click()
Sheet1.Select
Dim strFind, FirstAddress As String 'what to find
Dim rSearch As Range 'range to search
Set rSearch = Sheet1.Range("b2", Range("b65536").End(xlUp))
strFind = Me.TxtEmpName.Value 'what to look for
Dim f As Integer
I've created a userform that will pop up automatically when opening my workbook. My workbook will have many worksheets identified by the employee's last name, then first name (i.e. Doe, John) Etc. I ideally would like the name entry in my user form to locate the correct worksheet based on the sheet name and then all of the other data in the user form be put in the next available/appropriate row and column, etc. of that particular sheet. This user form would save me a ton of time keeping my training logs up to date, instead of having to locate each employee tab manually and then enter the data and then look for the next tab, etc.
At the end of the year I'll manually go to each worksheet and balance that year's training time and cost (as you'll see from the attached example), but I'm hoping that the user form entry will identify that "yearly balance row" as having data and would skip to the next row to begin the next year's training entry. The "Enter Data" Button would place all of the user form data (other than the name) into the appropriate row/column and I believe my refresh button will empty the user form fields, but I'm hoping it won't delete the data that was just previously entered into the worksheet. (See attachment)
see in atteched file User-form "frmEntry" work fine to update the data in Trader worksheet. but i need help to program.for the "frmExit" which i program. u can look in to the database "Trader Worksheet" .it enter the data in next available row.instead of up dating the corresponding existing stock ticker.to sell the stock.also when i enter the second sell of stock it change the row which is already their.not in new row.
View 4 Replies View RelatedI have managed to put together a userform to input the data from a safety audit card to populate a spreadsheet so that i can generate stats etc (every ticked check box inputed a tick onto the spread sheet into the correct colum for the data, on resetting the form it went to the next line as per the userform database example available here). This was working fine as it only had 5 check boxes and although my code was probably a bit rough, it did the job. The code I was using is:...
View 9 Replies View RelatedI have the following code in a userform, assigned to a command button.
Private Sub CommandButton1_Click()
Select Case TextBox2.Text
Case Is = ""
MsgBox "Please enter the Name of recipient."
Case Else
End Select
Select Case TextBox3.Text
Case Is = ""
MsgBox "Please enter the E-Mail Address of recipient."
Case Else
I modified this code as it was starting at the bottom of the worksheet & checking for the 1st vacant row from the top. I wanted it to start at the top & look for the first vacant row down. That way, if there was a entry that was deleted, it would find that row 1st & keep the list in order. This code worked fine for the last 2 days, but, this morning, nothing is being entered on sheet2.range A2 or lower.
I just need to make a user form for entering data in one of the sheets ( Pending Confirmed Orders ), requested user form should be used to enter the orders information in columns ( each column in new entry ) and just the rows ( from 6 - 21 ) with noting that row no 16 is to link external pdf file as you will see.
File : [URL] ........
I have created a userform with a texbox and a "continue" button. In my macro I first ask the user to input name, date, etc then I have a line that says "frmDiscrepancies.Show". This code shows the userform but I am unable to type anything into the textbox. How do I activate the textbox so that I can type in it? Of course the next step is to be able to click on the command button "continue" and have it continue with the macro...
View 9 Replies View RelatedI have a requirements to do a simple monitoring data entry. Composed of 1 admin and 10 users. These 10 users are assign to a different lines basically every lines have assigned user.
These 10 user will do a data entry. once they are done on the data entry the Admin will update those entered by the users based on ticket number and the users can browse those updated records.
Every users per line have assign ticketnumber that start in "L1"&YY&MM "-"001" this compsed of lines + year+month and numbers.
For the users side. Right now i have already created a workbook with userform to perform data entry by user (samplefor line1 and line2 user).
It has also a viewing form to view by the users if its already updated by the admin. i put also an events if the admin work book is open by other user they cannot access the workbook.
For admin side. I created also a userform for updating the records entered by the users to update records admin will enter ticket number to textbox.
This is the reference to find and search those records that belong to a particular ticket number and lines which will be updated by the admin.
Right now, I am doing records consolidation for both user and admin records. I have a button for both admin and userlines to perform consolidation. Once the user entered the records admin will capture those records and copy to the workbook used by admin to perform update. Then once the admin perform update the user will capture those updated by admin and copy to the workbook under the user.
Basically they have separate workbook for their entry and database.
Right now I encounter some issues which I think this will affect the integrity if records. Sample like once i perform consolidation it create duplicates records.
I have a userform, UserForm1, which lives in a spreadsheet called 'Data Entry.xls' There is nothing else on the spreadsheet itself, it's just for the use of a userform.
I would like the user to populate textboxs in UserForm1 but have that update cells in a separate spreadsheet 'Training.xls' in the same directory.
I have this code at the moment to find the next empty row and to input data into it, which is working perfectly to enter data to sheet1 in Data Entry.xls:
[CODE]Private Sub CommandButton1_Click()
eRow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
Cells(eRow, 1) = TextBox1.Text
Cells(eRow, 2) = TextBox2.Text
Cells(eRow, 3) = TextBox6.Text
End Sub[CODE]
How can i modify it so it would do the same thing, i.e find the next empty row and then populate with what the user types in the textbox but in Sheet1 of 'Training.xls'
Would 'Training.xls' need to be open?
I have created a userform with 3 text boxes. It also has three buttons - clear, Cancel and Generate record button.
User form takes entries in the three text boxes and on clicking the Generate Record button, the values of the three Text Boxes are inserted in Column A, B and C of sheet1. The columns keep on populating with new data on each submit in the row below the last record.
Now it is required to enter data only if the value entered in TextBox1 is new and has not been entered previously in column A. If textbox entry is already aviailable in column A, a message box of 'Record available' shoud be prompted and the text entry must not be allowed until the data entered in TextBox1 is not unique.
I have a userform with several textboxes and 2 comboboxes. The data that I need protected from duplication is based in the comboboxes. If I ignore the other fields and presume the following it may be easier to understand:
The comboboxes are populated by the data stored in sheet1 and when the userform is complete, the OK button populates all the data into sheet2
Combobox1 contains names eg, John, Julie, Bob etc
Combobox2 contains colours eg, Red, Blue, Green etc
I want the userform to allow the data to be entered into sheet2 only if it is not an exact duplicate of the choices in BOTH of the comboboxes
For Example
John Red
Julie Red
Bob Blue
John Blue
These are all ok, however, to try and enter John Red again would bring up a message box indicating a duplicate entry and prevent the data from being entered.
I am making a workbook where the G column is drop-down menus that are populate a drop down on the H column. Whenever someone changes the selection of the G column I was to erase what is in the corresponding H column. I have this code that works, but I need to do this for 100 lines. Is there any way to put this into a loop instead of writing 100 if statements?
View 6 Replies View RelatedI have this code on a tab containing a series of dependent dropdowns. There are two dropdowns in each row, Dropdown2 being dependent on the choice in Dropdown1. This code replaces any contents of Dropdown2 with "Select..." if Dropdown1 changes. (Dropdown1 and Dropdown2 are NOT names, those are just the way I refer to them).
Code:.....
I have a spreadsheet on sheet 1 with a list of customers and their information. So on column A I have the customer number (i.e. k968, e37, p528,...), on column B i have the customer's name, on column C the street's name, on Column D the house number, on column E the zip code and finally the city on column F.
Right now there are around 600 customers in this list.
I have made a userform with a combobox in which I want to select an existing customer (pulled from the spreadsheet). On the same userform I have textboxes (customer number, name, street, number, zip, city). When I select a customer in the combobox, I want this customer's info to show up in the textboxes. I want to be able to change the info and hit Next to store the changes in the spreadsheet. When I do not select a customer from the combobox, I want to add new info in the textboxes and hit Next to store this info as a new customer. The userform also has a delete button. Then I select a customer in the combobox, this customer (and it's info) should be deleted from the spreadsheet when i hit Delete. So the spreadsheet is variable in length.
I have 2 userforms (userform1 and userform2)
userform1 has a combobox1 (list of customers) with an commandbutton1
userform2 has many textboxes
when I click on the userform1.commandbutton1 - userform2 shows with textbox1.text being what was in userform1.combobox1
when i am done with userform2 and click close to go back to userform1, chose a different customer and click the commandbutton1, userform2 opens with the previous value.
how can i clear the previous?
currently when i close userform2 with commandbutton1 i use the following code
Private Sub CommandButton1_Click()
unload userform2
set userform2 = nothing
End Sub
I have a CLEAR FORM command button
What codes can I use so that when I click CLEAR FORM, all the data that I encoded in the textboxes of my current userform will be erased as if I have a fresh new form?
I have a bunch of TextBoxes on a UserForm, and I would like to create a Sub to clear all of them. Something like that:
For I = 1 To 10
NameBox = "TextBox_Area" & I
For Each objControl In UserForm1.MultiPage_1.Pages(1).Controls
If TypeOf objControl Is MSForms.TextBox And objControl. Name = NameBox Then
objControl.Text = ""
End If
Next objControl
Next I
But of course there is no Text method for Controls. And I cannot loop directly through TextBoxes instead of Controls. So what can I do ?
I have a userform that has 3 sections. In each section are a number of text boxes which, following input of a value in the first text box in the section (master box), self populate with data from a spreadsheet.
This works apart from when I change the value of one of the first text boxes. Is there a simple bit of code that if on the change of the value in the master box will reset the 'dependent' text boxes to empty?
I have a button on my userform that I would like to clear all entries in column B in a sheet called "6 Entries" when pressed
Is there a code for this ?
I have this UserForm I need to clean-up but can't figure proper ways of doing it.
There's 2 ways to call the Form:
1) The main Sheet has a Command Button that calls the blank Form, which allows the user to enter & select data to be submitted to the sheet (using combo boxes, etc.).
2) If the user wishes to modify an existing entry on the sheet, he must click on it. This will call the Form which will be populated with the existing data on the sheet (per Row, since the Form enters data one Row at a time).
My problem is that I can't figure a proper way to Initialize my Form to either be blank (as for option #1), ie. have no pre-entered or pre-selected data in it, or to be filled with pre-existing data from the sheet (#2).
I tried to handle this by setting my ActiveCell = A1 when my CommandButton is pressed and check it when Initializing the Form (to initialize for #1 instead of #2), but that's totally not working.
I would like to make up an array that includes certain userform controls, such that I later on can use a loop to run through those controls.
My Problem:
First, in line 1 the Sub cbStep1_Click calls the Sub unloadSlotValues, but then the latter throws me back directly to the Sub cbStep1_Click into the next line (line 2). There is no error or something, the rest of unloadSlotValues simply gets ignored. How can I ensure to loop through all my userform controls listed in that array? (Finally, there'll be around 15 controls, I think.) Maybe my array-initialisation is incorrect?
This thread extends a simillar one you can find How to clear userform controls
Private Sub cbStep1_Click()
Call unloadSlotValues '<-- 1. line
frmStep2.Enabled = True '<-- 2. line
frmStep3.Enabled = False '<-- 3. line
End Sub
Function FindNth(Table As Range, Val1 As Variant,Val1Occrnce As Integer, _
Val2 As Variant,Val2Col As Integer, ResultCol As Integer)
Dim i As Integer
Dim iCount As Integer
Dim rCol As Range
For i = 1 To Table.Rows.Count
If Table.Cells(i, 1) = Val1 And _
Table.Cells(i, Val2Col) = Val2 Then
iCount = iCount + 1
End If
If iCount = Val1Occrnce Then
FindNth = Table.Cells(i, ResultCol)
Exit For
End If
Next i
End Function
To use this function, push Alt+F11 and go to Insert>Module. Paste in the code, push Alt+Q and save. Use the function as shown in graphic example. You can access it under "User Defined" in the Paste Function (Shift+F3).
Type Amount Sex Cost Purchased
Cat 1 Male $ 5.00 22/05/01
Cat 2 Male $ 5.00 15/00/00
Dog 3 Male $ 20.00 25/04/00
Rat 5 Female $ 1.00 15/08/01..................
I'm not sure how too set this up, here is a example of what I would like too do. This would make adding data too my list easy, I use Vlookup on my main form and it works great, had a lot of help on that from this site. I might be asking too much for this, if so tell me too go away.
View 14 Replies View RelatedThe userform takes the data to a worksheet, then i run a pivot table on the worksheet to provide an easy to view summary of entries....
I'd like the user to be able to amend a record if they see an error ... so from the userform how do i do that ? I've read a bit about refedit ( completely ) and a bit about Find...
I have a userform with two pop up calendars (calendar1 and calendar2). Calendar1 is the "start date" and must be a Monday. I have this portion working fine. If they select a date other than a Monday an alert message will pop up notifying the user a Monday must be selected. I need to limit the user to a date selection in calendar2 to be a minimum of three years out from Calendar1. I would like an alert message to pop up in Calendar2 should the user select a date inside of my three year minimum. Am I even in the ballpark with the following:
If Trim(Calendar2.Value) < (Calendar1.Value + "not sure here") Then
Calendar2.SetFocus
MsgBox "Select End Date 3 Years Out From Start date", vbExclamation
I am trying to get my User Form to work whereby I choose a pre-determined date entry. I have tried some coding but cannot get it to work. What code I need to add in VBA for this to work? I have tried to alter the time entry from my previous post that was solved but are doing something wrong.
View 11 Replies View RelatedI have a userform
1. On my userform I've got 9 txt fields, 18 opt boxes and 3 buttons (please see attached form)
My problem is: If I intput a principal name, spouse name and child/ dependants I seem to work just fine.
However, if I input just a principal name and child/dependant instead of just placing one child/adult dependant on the sheet it places 2.
As a matter of fact, if no spouse is selected and child/dependant is entered then the last dependant is always repeated.
I have used the following code:
Private Sub CmdAdd_Click()
LR = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & LR) = txtPrin
Range("I" & LR) = txtTotal
Range("A" & LR + 1) = txtSpouse
If opt1.Value = True Then
[Code] ......