Referencing Userform Control From Another Userform / Class Via Variable

May 3, 2012

I have several non-modal userforms in my App, some of them have date-fields that require manual entry typing of dd/mm/yy etc (No single userform has more than one date-box in it, this I think may be pivotally useful)

Now the Userform 'Calendar' that is built on the class of the same (cCalendar) name, has the write value line 'ActiveCell.value = theCal.value'

I'm looking to change this to refer to the correct userform.Textbox value, depending on which form is open.

I would imagine I could simply have a global string, whose value is set (or re-set) whenever a Userform is initialized (some sort of 'ActiveUF.value = Me.Name), where I get lost is referring to the components by name, so as to have a case statement by where I go:

Code:

Private Sub theCal_AfterUpdate()
Select Case ActiveUF
Case "AddForm"
application.vbe.components("AddForm").controls("AddFormDatePicker").value = theCal.value
Case "EditForm"
'.... etc
end select
end sub

better way of doing this (instead of passing around the userform name as a variable) - or proper syntax for referring to controls outside of the 'active' userform (but an open userform nonetheless)?

Every time I have to do this particular thing with userforms, I completely forget how, and the object browser always leads me on an infinite loop of Application.vbe.activevbproject.vbcomponents.vbe.active....

PS - there may be one slight complication to the process - one of the forms, has a 2-tab page in it, each page having similar (but named differently) fields. So I may need to be able to throw in 'Activepage' or whatnot

View 5 Replies


ADVERTISEMENT

Macro That Deletes Sheet With Control & Shows UserForm Causes UserForm To Disappear

Jun 15, 2009

This is weird - if you delete a sheet that contained a control then

a. showing a modeless userform resluts in a userofrm that goes invisible at subroutine End
b. public variables lose their value

These things do not happen if the sheet did not contain a control. Attached is an example file - put the inputfile.xls in your default file location (or add a path in the code) then open the ProblemDemo.xls and run the main macro to see it fal - isthis another Excelbug I've found?

View 9 Replies View Related

Assign Userform Name To Variable For Use On Another Userform

Dec 17, 2008

In order to deal with the multitude of screen resolutions that can be found at our work, I have got a module to check the current screen resolution on loading the workbook. I then have set up 3 different sized userforms, all containing the same coding, and based on the displayed screen resolution one of these is open (the userforms are named Customer1, Customer2, Customer3).

The displayed userform then has a button to show another userform (Customer_Details), and this form requires some referencing back to the previous form for some of it's information eg,

customer_details.textbox1.text = customer(1, 2 or 3).textbox1.text
customerdetails.combobox1.list = customer(1, 2 or 3).combobox.list

way for me reference the specific "Customer" form that has been opened, without calling it by name?

View 9 Replies View Related

Dynamically Create Userform Through Class Modules?

Feb 15, 2013

I have a problem with a dynamic userform that I need to create.

I need a userform in which the number of controls are determined by the some values in the worksheet. The users of the workbook must be able to add new controls to the form, so I do not know the number of controls in advance. I therefore can not create the userform through the design module but must create it through code instead.

I need a userform with a number of comboboxes and a commandbutton, which when clicked sends the content of the comboboxes to the first empty row in a worksheet.

My problem is that I can't assign any commands to the comboboxes (which are created at runtime), nor can I use the values of the comboboxes in any commands assigned to other controls in the userform (e.g. the commandbutton).

I have read as far that I probably need some form of class module to create the controls at runtime, but since I am relatively new at VBA, I'm having trouble getting the class module to work in connection with the userform.

View 2 Replies View Related

Referencing A Textbox Within A Multipage Userform

Jan 25, 2010

The code below works when the textbox (txtExt) is not within a multipage but doesn't when it is. I'm presuming i need to reference the multipage and page number but can't seem to get the right syntax.

Private Sub txtExt_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Details.Activate
Dim agExt As String
Dim extFind As Range
agExt = txtExt.Value
Data.Range("M3:M120").ClearContents
With Details

Set extFind = Range("B1")
For lCount = 1 To WorksheetFunction.CountIf(Columns(2), agExt)
Set extFind = Details.Columns(2).Find(What:=agExt, After:=extFind, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
With extFind...................

View 9 Replies View Related

To Control A Sheet From Userform

Jul 16, 2014

I've a worksheet, which has formulas, links, combo list box and format control.

I've made a user form to enter the data, so that the particular cells in the worksheet is filled and the remaining cells are calculated as per the formula.The format control (combo box) has list of range.

Is it possible to bring this format control (combo box) on the user form, so that without going to the sheet, I Can control the sheet by selecting the combo box values.

View 7 Replies View Related

Cursor Control With Userform

Dec 17, 2008

I have created a simpel userform that shows sales total and it is activated [.show function] whenever an entry is made in the order column. All of this works fine.

The only problem I have is that the curser jumps in to the text box and doesn't return to the order column where next entry needs to be made.

How do you move the curser out of the userform, back to the activesheet?
Ideally it should move to the next cell for the user to make entry.

I am attaching my sample file here. It has some odd things that I was just playing around with as learning experience. But the main question is how to control the curser.

View 8 Replies View Related

VBA Userform Image Control

Jan 13, 2014

I have a userform with multiple images

I would like to set all images to visible = false when images are dynamically named.

E.g. image names:
Image73om3
Image4y45h
Image12AB2

Is there a way to say

Code:
With all images
visible = false
End With
or

Code:
image*.visible = false

View 5 Replies View Related

Toolbar Control On Userform ..

Apr 3, 2008

I've got the bare bones of a toolbox control on my userform but I can seem to find anyway to refer to the buttons and control them (I’ve tried using the properties page but it doesn't seem to give me the options I need). I want to be able to add a macro and a picture to the buttons, is this possible?

Eg.

With Userform1.Toolbar1.button("x")

.image/picture/faceid = “x”
.action = "macro1"

end with

I've looked for ages on the board but can only find threads on creating toolbars in the application, not on userforms.

View 9 Replies View Related

UserForm Control Looping

Nov 12, 2008

Split off from Loop Through ActiveX TextBox Controls On Worksheet. Here is a zip file with the files in it. The main one that I am working on now is PO Form.xls. I want to start with the Qty column and copy any values that are entered into the form to the file called PO.xls in the Qty column of this file.

View 2 Replies View Related

Filling Control On Another UserForm

Aug 18, 2006

I am trying to add a list of items to a combobox on form1 from form2 where form 1 has a variable name.

I can use:

x = UserForms(0).Name
VBA.UserForms.Add(x).show

to show a userform with a variable name but I can't get it to add anything to the combobox using this

VBA.UserForms(x).Combobox1.Additem

View 4 Replies View Related

Hyperlink UserForm Control

Oct 10, 2006

I am looking for Hyperlink Control or any other control that I cam add to my form. When I move mouse on it and press it open to me attachment.

View 2 Replies View Related

Userform Control Blink

Mar 18, 2007

This code works fine on a normal userform But I declared the userform with "New" in my calling procedure

myForm As New form

How can I get it to work??
Or more interesting, why is it not working
Also what exactly is the advantage of using the keyword New
I have propertys set in the userform, but other than that..
Can someone tell me if the load function in this case is better or not

Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub cmd_click
Call blink
End Sub

Public Sub Blink()
Dim i As Long
For i = 1 To 20

' set color
Form.cmd.BackColor = &HFFFFFF
DoEvents
Call Sleep(60)

Form.cmd.BackColor = &HFF& .....................

View 2 Replies View Related

Spreadsheet Read Only - Control With UserForm

Jun 13, 2013

I am working an a userform. I want people to add records to the spreadsheet thru the UserForm ONLY, meaning that if they go straight to the spreadsheet they wont be able to edit anything.

View 1 Replies View Related

Generic Sub For Image Control In Userform?

Aug 9, 2014

My final version will have more than 40 images with all the same code: they will all increment a corresponding SpinButton with 1.

[Code]....

View 13 Replies View Related

Setfocus From Module To Userform Control

Jan 1, 2009

I have a project with many textboxes on different forms. On some of the textbox_exits on some of the forms, I call a standard module that checks what the user has input. If the user needs to change the input, a msgbox appears to inform the user the info needs to be changed.

I have tried to use ControlSource, Name etc., But I cannot seem to setfocus back onto which ever textbox the input needs to be changed. I think it has something to do wih the _exit event, but not sure.

View 4 Replies View Related

Find Position Of Control On Userform

Feb 14, 2013

I have a user form where two command buttons are set with the following code:

Code:
Private Sub CommandButton1_Click()
Frame1.Visible = True
Frame2.Visible = False

[Code]....

Now, when cmdbtn1 is clicked, frame1 is visible and vice-versa.

However, the position of both the frames on the user form are not on the same position on the user form. Indeed, it takes the position of the design view.

I want a code which will place the frame1 and frame2 at the same place and position on user form, irrespective of its position in the design view.

View 2 Replies View Related

Adding Control On Existing Userform On The Fly

Jul 21, 2013

What I missed. I already added the MS VBA Extensibility 5.3 on a VBA Reference. but still got an error.

Line1: Dim objForm as object
Line2: Set objForm = ThisWorkbook.VBProject.VBComponents("UserForm1").Designer
Line3: Set Butn = objForm.Controls.Add("Forms.CommandButton.1")

The error is on Line3, "Runtime Error '91': Object Variable or With block variable not set".

View 2 Replies View Related

Use PropertyGrid Type Control On UserForm?

May 29, 2014

I would like to use a PropertyGrid type control on my UserForm. Is there an effective way to wrap this control and create an add-in to use in VBA?

View 1 Replies View Related

To Set Focus To The RefEdit Control In Userform

Feb 23, 2007

I am trying to implement a simple userform using the RefEdit control.

So I have the RefEdit control and an Ok (which has code attached to it) and a Cancel commandbutton.

For some reason, I can't get the focus on the RefEdit control (i.e. when I activate the form, I have to actually click in the RefEdit box before it gets the cursor). Which property sets the focus in this control?

Right now I have the Ok button Default property set to True.

I have a commandbutton on the spreadsheet that activates the userform.

View 9 Replies View Related

Programmatically Remove A Control From Userform

Nov 17, 2009

Suppose I have a userform named myUserForm and a checkbox on it named myCheckBox. How on earth do I remove myCheckBox from myUserForm at run time? I've tried every which way I can think and I always get "error 444". Some things I've tried are:

myUserForm.Controls.Remove "myCheckBox"
myUserForm.Controls.Remove(myCheckBox)
myUserForm.Controls("myCheckBox").Remove
myUserForm.Controls.RemoveControls "myCheckBox"

I've put this in a standard module, the ThisWorkbook module, even in the myUserForm code module and each time it's the same error.

View 9 Replies View Related

Remove UserForm Control From Tab Order

Aug 6, 2006

can i disable/remove a control from the being in the tab order.
i no i can move to the bottom but there is too many too use that option.
i need it to be elimated from user input alltogether.
it is filled automatically

View 4 Replies View Related

Disable WebBrowser Control On UserForm

Sep 7, 2006

How can I put the webbrowser disable so that is impossible to clik in it?

View 7 Replies View Related

UserForm Control Not Showing Fully

Oct 24, 2007

I have a workbook which when opened connects to an external datasource (excel file) and downloads a table of information. While this is happening I have a userform which shows which has a lable saying (connecting to datasource, please wait....). However, when I open the workbook, the userform shows but the labels do not show, the userform just appears white.

View 4 Replies View Related

Control Toolbox Pops-Up When UserForm Run

Apr 22, 2008

i've gotta demo an Excel app in a few days and this never really bothered me, but someone recently pointed out that it can get distracting for the Control Toolbox to pop in and out randomly. the form is being built for use by other staff, and i suppose it would also be distracting for them if the toolbox arbitrarily appeared here and there. is there a way to turn it off?

View 2 Replies View Related

Enter Key On UserForm To Next Control Not Working

Apr 23, 2008

I have a User Form that is used to collect data. CommandButton1 loads the User Form data into the worksheet and CommandButton2 clears all data from the Form in preparation for entering the next record. Immediately after a user first opens the Form, the very first time CommandButton1 is clicked, the Enter Key stops working. At this point data can be typed into any TextBox on the Form, but when the Enter Key is pressed the cursor remains in the TextBox. (The Enter Key will not move the focus to the next Textbox in the Tab Order. Also, if I alter the code to set the focus on a CommandButton as the active control instead of a TextBox, pressing Enter on the active CommandButton does not execute the CommandButton's macro... the same behavior as a TextBox; nothing at all happens when the Enter Key is pressed even though the CommandButton has focus).

At the point when the Enter Key stops functioning, if the user presses 'Alt-Tab' to leave the Form and then immediately uses 'Alt-Tab' to return back into the Form the Enter Key suddenly works again and continues to work correctly from that point on even after CommandButton1 is clicked. Again, the Enter Key stops working ONLY the first time CommandButton1 is run immediately following initially opening the workbook and Alt-Tabing into the Form immediately corrects it. I saw one other post in this forum with this same problem in 2003, but unfortunately it did not get answered.

View 2 Replies View Related

UserForm Control TextBox Or ComboBox

Jun 5, 2008

If this control is a TextBox, I would like to read the Text property,
and if it's a ComboBox, I would like to read the Value property.

Public Function readValue(c As Control) As String
If (TypeName(c) = "TextBox") Then
' convert the Control to TextBox then put readValue = c.Text
Else
If (TypeName(c) = "ComboBox") Then
'convert the Control to ComboBox then put readValue = c.Value
End If
End If
End Function

View 9 Replies View Related

UserForm Control To Select Range

Aug 8, 2008

I want a control to select a range in a userform I'm creating.

I wonder if we can use the same type of control the wizards use, where you click on the right and choose the range? Alternatively, what's the best option?

View 9 Replies View Related

Give Control To Userform During Long DB Search

Feb 24, 2014

My difficulty: I have an Excel 2007 DB xlsx Workbook file (mydb.xlsx) made up of several (8) Worksheets. I can't modify the content of this DB. For this reason I 've created another Workbook (MyGUI.xlsm) implementing a user interface for db querying.

The userform let the user making searches using the find method (criteria: "Text contains...") In the DB file there is one particular Sheet with thousands of entries. This makes the searchs too long (30 seconds). During this period the entire form is blocked.

My question: when the user realizes the search is too long I'd like to stop the current search
introducing for example a new button "stop current Search" to click it in these situations.

View 4 Replies View Related

Userform Controls Behaviour When Moving From One Control To Another

Feb 27, 2013

I have built a quoting tool and Userforms to act as a user interface to this tool. The userforms basically just feed user input back to relevant sheets. I have a number of textboxes, listboxes and radio buttons on multipages. Now the issue is that each control has an Afterupdate or Change event associated with it. Consider this scenario:

I have 4 product categories (represented by radio buttons) : Cat A, Cat B, Cat C, Cat D

Each category can have up to 10 line items which are represented by combo boxes.

Now lets say the user has selected Cat A radio button, he selects a product from the combo box (the cursor or focus is still on the combo box) and clicks on Cat B radio button. Here is the issue: on the first click, Afterupdate or Change event of Combo box fires but radio button is still unselected. The user has to click Cat B radio button AGAIN to select Cat B radio button. So essentially it takes two clicks with a slight pause between them to change categories.

One way to avoid this is to press Enter or 'tab through' each field. But this is not very intuitive. I have tried using Exit, Afterupdate, Exit, Change events without success. I can't use ControlSource option because the cell to input info to is dynamically selected. I have used xlCalculationManual for some text boxes but can't use this since some inputs on the userforms depend on the right value being calculated on the sheet.

View 5 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved