I have a user form containing a calendar. What I'm trying to do is that if any cells are selected in a range - D4:E83 - then I want to run the userform therein forcing the user to use the calendar and ensure the date is correctly formatted.
The userform is named frmCalendar.
How do I make a userform or maco run when a cell is clicked on. For instance in my case if E20,E23,E30 are selected I want a userform to popup.
View 9 Replies View RelatedI would like to have a userform activated when I select a specific cell "g77". I tried a code that I found while searching the forum but it did not work.
The userform name is ufMutualAid
I am not sure if it makes it any easier to write the code three times seperately or if I can put them together, but the same idea is needed for
L79 ufPersonnel
L81 ufApparatus
I have some Worksheet_SelectionChange code that automatically calls a Userform when a cell is selected.
What I want to do is retrieve the data from the cell where the Userform is called from and enter it into a textbox on the Userform.
There are 3 other columns to the right of the cell that is selected.
If there is data populated there, I want this to be copied to the appropriate textboxes on the Userform too.
I have a worksheet that has a months worth of data on it. The sheet is divided into sections with each day of the month being given 10 rows. So day 1 of the month will occupy rows 1 to 10, day 2 rows 11 to 20 and so on.
In each of these sectors, I would like to have an editable tick list that displays when a certain cell is selected. For example in day 1, selecting cell A3 will display the tick box. If I need a tick list for each day, would I need to create a fresh userform for each day or is it possible to have just one form and have excel remember the setting.
I would like to be able to check a checkbox on a userform with a keyboard stroke rather than using the mouse. Any key will do, "P" or Enter would be prefered. It would make data entry much easier.
View 4 Replies View RelatedI've created a User Form to input data on a dashboard where you can select a date from a dynamic list of dates. The list of dates is calculated using:
Code:
=(TODAY())-WEEKDAY((TODAY()),1)+2
The other dates are based on this date -7.
The User Form code:
Code:
Private Sub CommandButton1_Click()
Dim emptyRow As Long
'Make Sheet30 Active
[Code]....
This works perfectly for any date except dates from December. 3/12/12 (3rd Dec) turns to 12/3/12 (12th Mar) when it's copied to the cell. The same happens for 10/12/12 - becomes 12th October instead of 10th December.
I would like to insert the count of items selected in a listbox in a Userform into a cell. I have been scowering the internet and all of the solutions seem pretty clunky (or don't work).
An alternate way that I could do this is if I have the values selected be entered into a column and then I can use the =count() formula, but I can't figure out how to do that either...
I am trying to have a ComboBox activate a specific sheet based on the value of "ComboBox1.Column(1)". I have many sheets to select from so i want to avoid using the Case method Here is a small sample of my code that isn't working:
[Code] .....
Userform Activate Label in correct format. I have the following code in a userform activate
View 2 Replies View RelatedI have a userform that has a listbox that contains data in 7 columns. I also have a command button that when clicked allows the user to edit the data in whatever row of the list box is highlighted. This works fine.
I decided to have a double click in the listbox on a row do the same thing. So I simply picked the double click event and called the command button sub. When I try this, it runs the command button sub, but then it runs the userform Activate sub. This is a problem as it does things that I do not want to occur again.
I then decided to put the command buttom code in a separate sub and then call that sub on the double click -- same result.
Then I just put the exact code that I have in the command button into the double click event -- still does it.
Anyone know why this happens, I see no reason for it. It works great in the command button, but with double-click it run the userform Activate sub when it is done.
Here is the code that runs (if called by a command button it works fine, if called by a double_click in the listbox, it runs the userform_activate sub):
Private Sub Edit()
SetCell = "d" & ListBox1.ListIndex + 5
Range(SetCell).Select
Range("AA1").Value = 1
ADD_ODC.Show
NextRow = Range("D65536").End(xlUp).Row
EndARR = "J" & NextRow
ODCData = Range("D5", EndARR)
ListBox1.Column = WorksheetFunction.Transpose(ODCData)
Range("AA1") = ""
ListBox1.ListIndex = -1
Filling
End Sub
I am using the following Selection_Change Event to show a UserForm when a cell in 1 of 31 named ranges is selected.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim i As Long
For i = 1 To 31
If Not Intersect(Target, Range("StatPost" & i)) Is Nothing And Target.Value = "" Then
If Target.Offset(0, -8).Value = "" Or Target.Offset(0, -7).Value = "" Or Target.Offset(0, -6).Value = "" Or Target.Offset(0, -5).Value = "" Or Target.Offset(0, -3).Value = "" Or Target.Offset(0, -2).Value = "" Or Target.Offset(0, -1).Value = "" Then....................
I have developed a Userform button in Excel 2010 using the developer icons, which when clicked on with my mouse it runs my super dooper macro. It works great!
But one thing I want to have happen is to have the choice of using the Enter key to start the macro or use the left mouse button
For example, I place data in (say) cell A1 and the userform button is in cell A2. When I place the data in A1 and press the Enter key, the cursor moves down to A2, but doesn't highlight the user button. When I press the Enter key again, the cursor moves to cell A3.
What I want is when I fill in the data in A1 and press the Enter key, the cursor moves to cell A2 and selects the button, so that when I press the Enter key again, it activates the macro.
Basically it is a if statement saying that if the selected cell falls between 1/01/06 and 31/01/06 then Jan would be selected. The end part is not a problem; I’m just not sure how to write the one line of code that would test if the cell falls between the two dates. I attemped to create it as shown in the code attached below but wasn't successful. I used an else if statement to test the other 11 months.
Sub test()
Dim SelectDate As Range
Set SelectDate = Range("SelectedDate")
If selectedDate >= 1 / 1 / 2006 And selectedDate <= 31 / 1 / 2006 Then
ActiveSheet. PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _
"Jan"
ElseIf selectedDate >= 1 / 2 / 2006 And selectedDate <= 28 / 2 / 2006 Then
ActiveSheet.PivotTables("PivotTable1").PivotFields("PnLDate").CurrentPage = _
"Feb"........................
I have a (MultiSelect) ListBox1 that is populated with Customer Names for the user to select from. I want the user to be able to hit the CommandButton1 adjacent to the ListBox1, and the selected Customers copy into/get added to the ListBox2.
I have the following code, adapted from other code, but it is not working:
[Code] ........
I am trying to set up something similar to the old "print dialogue" box whereupon the user presses a command button on the userform and all sheets within the work book are listed (eg:sheet1, sheet2 etc) The user can select any amount of sheets and and using "OK" outlook is fired up- pretty similar to Ron de Bruins code for email.
I have tried taking the print dialogue vba and stooping it at copy, then trying to gets Ron's code to continue- without success.
There are great bits of code I've seen for select tabs and selct sheets from listbox, but I have found none to email once selected.
I have created a Multipage Userform which I want to control the display when certain condition is met. I am using a button to call up this userform but I wanted to put some limitation to this form being displayed. This form will only be displayed when any of the cells in Column B Row 20 downwards or Column D Row 20 downwards are selected.
View 9 Replies View RelatedI've created and coded a vba userform that creates purchase orders for my projects. The user begins by selecting the project code from the combobox (the project code is a unique identifier of each project). Once the purchase order is created, the information is logged in a separate sheet called "POLog" and the userform is cleared. The project code is saved in the first column of the "POLog".
My problem is that when I have more than one purchase order to create for the same project (sometimes I have 20 or 30), the combobox starts out empty and I have to manually select the project code from the combobox. Is there a way to allow the userform to recall the last project code that was used? Maybe recalling it from the last row in the "POLog" sheet?
I currently have a user form and am trying to make a counter to that will increment if the check box is not selected, but will not increment if the check box is selected.
I am assuming I could use an if then statement for this, under the command_click OK. but I cant get it to work.
Returning items selected from a ListBox. I have a Multiselect Listbox with 15 items. Additionally, I have a worksheet with 15 columns (each one corresponding to the 15 ListBox items). I'm looking for code that will do the following:
After a user selects values from the ListBox (can be more than 1, thus the Multiselect), I would like for "TRUE" to appear in row 2 of the worksheet for each column. (IE: Column A is for Bikes, if a user selects "Bikes" from the ListBox and hits a CommandButton, I would like for A2 to say "TRUE".
I'm building a userform (for the first time), and I'm working with a textbox control. I'd like to make it so that when the user clicks in that textbox, the contents is selected, so that if they begin typing, it will type over what is already there.
My question, specifically, is whether or not there is a property I can set to make this the default behavior, and if not - what event do I tie to this action? Is it the "Enter" event?
What I have now, which will probably be unacceptable to my users, is code that looks like this:
Private Sub tbName_Enter()
ActiveControl.Value = ""
End Sub
This makes the contents disappear, but I'd rather they stay there and just become "selected".
I have created a custom Menu (excel add-in) to make my work easy in excel. My problem is to print only selected sheets from Workbook in one PDF file, for that I've created a Userform with 2 listboxes, add sheet and print buttons. In the first listbox are listed all the sheets and in the second listbox are the sellected sheets to be printed. What I've succeded so far is to print selected sheets, but it creates one PDF file for each sheet, only if I put my code in workbook and not in Menu add-in (.xla file). As PDF Printer I use PDF reDirect Pro v2.
View 8 Replies View RelatedI have a calendar form opened by a control button on an excel userform. Is there a way of closing the calendar form as soon as a date is selected, leaving the initial form open?
View 4 Replies View RelatedI have a userform which has a number of multipage controls nested inside each. So, the parent is Multipage1 with 2 pages. Page 1 of Multipage1 has a second multipage control (Multipage2 which has 4 pages). In Multipage2, page1 there is a 3rd Multipage control (Multipage3 which has 2 pages). In Multipage2, page 2 there is another multipage control (Multipage4 which has 3 pages)...and so on! I know this sounds complicated, but I am trying to get the caption of the selected multipage.
There are commandbuttons in all of the pages, which when clicked need to return the caption name of the multipage where they sit.
I have started the following code, but suspect there must be a better solution:
VB:
With Sales
If .MultiPage1.Value = 0 Then
Hardware_Purchases_Input.TextBox6.Value = .MultiPage1.SelectedItem.Caption & " - " & .MultiPage2.SelectedItem.Caption & " - " & .MultiPage3.SelectedItem.Caption
End If
End With
I need some assistance taking dates entered in a userform and applying them to the sheet 'Completed_Report' cells Q1 and R1. The userform code that stores the input values is:
View 2 Replies View RelatedHow do I populate a new userform from an entry selected in the listbox. The listbox only lists one item from the original table but I'd like to populate the new userform with related information from the same row.
I'd then like to save this information to a new sheet and store the original information on another sheet leaving the first sheet a table of information yet to be updated.
The attached workbook should make things clearer. The update button is the one in question.
Basically, I'd like my macro to be activated whenever the value in cell A4 changes. Cell A4 has a numerical value between 1 and 10. The macro clears a contents table. Here it is:
Sub Clear()
Sheets('Form').Select
Range("H4:L10").Select
Selection.ClearContents
End Sub
How to get the (module) macro to be activated whenever cell A4 changes value?
I have code that calls a dataform when I click on a command button. Regardless of where I am in the row, the command button is in column A. I want the selected cell to move to column B in the same row so that when the userform displays it will show the correct data. (I have used
Private Sub UserForm_Initialize()
Container.Value = ActiveCell.Value
PONumbers.Value = ActiveCell.Offset(0, -1).Value
SizeType.Value = ActiveCell.Offset(0, 1).Value
Vessel.Value = ActiveCell.Offset(0, 2).Value
'etc
End Sub
to populate my userform.
Can I add something in my call code to also select the cell I want? Or alter the initialization code to start at the beginning of that row?
I have an excel file that I want a macro to run when the cell changes to "Yes" (location B21). The cell options right now in a drop down list is "Yes" or "No". The Macro is called helper. How do I get this to work when they pick yes or no from the drop down list. I wanted to attach the file in this post, but it will not let me. I can email it to anyone who would like to work on it.
View 9 Replies View Relatedi'm trying to combine vlookup and activecell here.
based on value that the user enter it'll activate the first cell on the row.
example:
a1:id
a2:1
a3:2
a4:3
b1:name
b2:josh
b3:alex
b4:ray
the user will input the id, and using vlookup i want to find the id and set the first column as an activecell. So for example the user input is 3, i want a3 to be the activecell.
