Set Text & Hide Control On UserForm Show/Load
I'm trying to do is set up a form load event to initlize some controls. Here is my
Private Sub Form_Load()
'Initialize the form
lblProcessing.Visible = False
txtFileName.Text = "Enter a file name"
End Sub
At the moment, this event is not triggering. I have the code in the code behind my form - should it be in a module? PS: This site is great - it's answered a lot of my other questions so far without me having to make any posts.
View Complete Thread with Replies
Sponsored Links:
Related Forum Messages:
Load Worksheet Picture Into UserForm Image Control
I have an image box on a userform in Excel VB. Is there ANY WAY to load an image into this image box from an object that I have loaded into an excel worksheet something like If userform1.checkbox1=True Then userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 1")) ElseIf userform1.checkbox2=True Then userform1.image.picture = loadpicture (Worksheets("Sheet1").shapes("Object 2")) Else msgbox "No image" Endif
View Replies!
View Related
UserForm Cause Crashes Upon Load/Show
i have a user form which is activated by a button. when this button is clicked excel crashs every now and then. i get an error message run time error 75, could not find object. it asks me to debug or end. whatever option i choose when i try to save the worksheet there after excel crashs and closes. any body else have this problem, what could be the cause?
View Replies!
View Related
Load Text In Userform
I have an userform, with a label and several commandbuttons(for instance, command button A, B, C, ...) . Now if I click the command button A I would like to load in the label A text previously written in sheet1 range A1, if I click the command button B I would like to load in the label another text previously written in sheet1 range b1 (the old text shouuld obviously disappear)
View Replies!
View Related
Hide & Show Scroll Bars For Frame Control
I have a form that is dynamically created at runtime. I have assigned the controls to a frame in VBA and also attached a horizontal scrollbar manually to that frame. How can I control the scrollbar in VBA to appear, when columns of controls added to the frame exceeds 10. If not I want the scrollbar to be invisible? Private Sub UserForm_Initialize() Const cTextBoxHeight As Long = 16 Const cTextBoxWidth As Long = 40 Const cGap As Long = 10 Dim W As Integer Dim a As Integer
View Replies!
View Related
To Set Focus To The RefEdit Control In Userform
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 Replies!
View Related
Hide Userform & Show Another
how to creat a userform with a button (1) to show anouther userform with a button (2). you click the button on 1 and it shows 2. then when you click the button on 2 and it shows 1. I'm having a problem with the second part.
View Replies!
View Related
Hide UserForm Via Top X & Show Another
I bet you're getting sick of the "X" questions, and I have done an exhaustive search but the search filter kills searching for (X) or 'X' or "X" .. but nothing I did find is what I am looking to do. I have any # of userforms that when you click the "X" in the top right side, it will hide the userform... once.. Is there a fix to the code below to make it do it every time its clicked? Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode <> 1 Then Cancel = 1 UserForm15.Hide UserForm11.Show If CloseMode = 1 Then Cancel = 1 UserForm15.Hide UserForm11.Show End Sub Like I said, I don't want to disable it, I tried that off of one of the posts I found and thats just plain annoying, I just want it to hide the one userform and show the other. This will do it once and then you can click it all you want and it wont do anything.. see the annoying trait above.. this lasts until you exit the program.. so the X button can be hit repeatedly though out the day. The userform 15 is visible, userform 11 isn't shown, IE not behind userform 15.
View Replies!
View Related
Hide & Show UserForm Controls
I need some code that will do the following in a UserForm: If option1 is selected = textbox1 is visible, textbox2/combo1 is hidden If option2 is selected = textbox2 is visible, textbox1/combo1 is hidden If option3 is selected = combobox1 is visible, textbox1/textbox2 is hidden
View Replies!
View Related
Set Focus Of Cursor In TextBox On UserForm Show
I'm having some trouble setting up my Userform. It's used for someone to insert a password to open up some sheets. I have it working except for 2 problems. First off it gets started by a sub which has a shortcut key, CTRL + W. When it opens I would like the TextBox to be ready to be typed on... and I would like the submit button ready for Enter. So when it opens, you just type in the password really quick and press enter without using the mouse at all. The TextBox starts on the first try, but when I press cancel and then open the UserForm up again, then the cancel command is still selected and I have to select on the textbox. There is 3 things on this userform... TextBox1, CommandButton1, CommandButton2. All I want is for the TextBox always to show up ready for typing, and the Submit(CommandButton1) to always be ready to press enter.
View Replies!
View Related
Set Label Control Captions To A Cell Text/Value
I have an excel application that I'm developing that is going to be used by two different departments. On one side everything will pretty much be userforms. The sheets they the data I need to pull in for them is on sheets that I have such that their visibilty is equal too xlveryhidden. I'm trying to change the captions on labels using the data on the veryhidden sheets. Something like this. 'frmCurrentProposal is a userform 'lbGroupName and lbGroupNum are both labels that should vary frmCurrentProposal.Show frmCurrentProposal.lbGroupName.Caption = Sheet2. Range("B2").Value frmCurrentProposal.lbGroupNum.Caption = "Group # " & Sheet2.Range("B3").Value The labels are not changing their values.
View Replies!
View Related
Load Pictures From Folder Into Image Control
I am able to work out a code to upload pictures from my files using this: Option Explicit Private Sub cmdfind_Click() Application. ScreenUpdating = False Dim strfind As String Dim rsearch As Range Dim strfolder As String Dim strname As String Dim strpic As String Dim b As Range Set rsearch = Worksheets("m").Range("ap3", Range("ap65536").End(xlUp)) 'define path to images strfolder = "F:SEC FILESMAC2PIC" 'get data from userform strname = frmsearch.txt201.Value 'check if pic exists strpic = strfolder & strname & ".jpg"....................... How do i avoid the 'File Not Found' error if the picture is not available in my file folder?
View Replies!
View Related
Set Date Through Calendar In The Userform Text Boxes
I have a userform and a calendar form, on the user form I have three text boxes named (txt1, txt2, txt3) and three buttons named (cmd1, cmd2, cmd3). PROBLEM: when I click I cmd1 button the calendar form opens and after selecting the Date from calendar, the value of the calendar assign in txt1. the same for cmd2, cmd3
View Replies!
View Related
UserForm Text Box To Show Range Data
I have created a User Form with required controls to add data in a worksheet and it works fine. Now, I want to retieve data from the hidden worksheet and to view the data in one or two text box controls by clicking a command button placed on the user form. I expect the user to use the user form only.
View Replies!
View Related
Pre Load Userform
how I can pass a value to this function. For example I know the record id that I want loaded, it is 42, so I want to create a button that brings up record id 42 when clicked. I think to do this I would load the form, then call cmbSelect() and pass it Me.TextBox1 = Value "42", but I am not sure on the syntax on how to do this Private Sub cmbSelect_Click() Dim r As Integer Dim cell As Range, rngRecord As Range ' Locate indicated record For Each cell In MyData If CStr(cell) = Me.TextBox1 Then For Each rngRecord In cell.Range("B1:AS1") If rngRecord.Offset(-rngRecord.Row + 1, 0) <> "" Then Me.Controls(CStr(rngRecord.Offset(-rngRecord.Row + 1, 0))) =
View Replies!
View Related
Load Picture From Worksheet Into UserForm
I have tried a couple things to get this image to show up on my userform and i keep erroring out. Run-time Error '404' Object required If i hover over the "userpic" in debug it has the correct referance, its just not doing anything. Any help or suggestions would be great. -LightData = Userform -Pictures all held on sheet5 of wookbook (I've search and looked at all the threads, which actually lead to what i have below) Private Sub ComboBox1_Change() Dim RowOffset As Integer RowOffset = ComboBox1.ListIndex userpic = ComboBox1.Text LightDate.Image1.picture = Sheets("sheet5").Shapes(userpic) TextBox1.Text = Sheet1. Range("c2").Offset(RowOffset, 35) CheckBox1.Value = Sheet1.Range("c2").Offset(RowOffset, 37) CheckBox2.Value = Sheet1.Range("c2").Offset(RowOffset, 38) CheckBox3.Value = Sheet1.Range("c2").Offset(RowOffset, 39) CheckBox4.Value = Sheet1.Range("c2").Offset(RowOffset, 40) CheckBox5.Value = Sheet1.Range("c2").Offset(RowOffset, 41) CheckBox6.Value = Sheet1.Range("c2").Offset(RowOffset, 42) CheckBox7.Value = Sheet1.Range("c2").Offset(RowOffset, 43) CheckBox8.Value = Sheet1.Range("c2").Offset(RowOffset, 44) CheckBox9.Value = Sheet1.Range("c2").Offset(RowOffset, 45) CheckBox10.Value = Sheet1.Range("c2").Offset(RowOffset, 46) CheckBox11.Value = Sheet1.Range("c2").Offset(RowOffset, 47) End Sub
View Replies!
View Related
Load & Retrieve Text From Text Files In Folder
how I would go about addressing this issue. I am given a directory with individual files in it. Each file has critical information I have to extract from it. So, I want the user to provided this directory to the macro and I want the macro to cycle through each file in this directory (excluding super and sub direcories), open it, retrieve info, and close it
View Replies!
View Related
Macro That Deletes Sheet With Control & Shows UserForm Causes UserForm To Disappear
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 Replies!
View Related
Fill UserForm ListBox & Show Userform
having trouble with the details of actually making these features work for me. I figured out how to create a UserForm with a ListBox and 2 buttons, but I don't know how to proceed from here. 1. Populate the ListBox in the UserForm with a list of names from the sheet "Totals_Dropdowns", cells K2:K11 2. Make the UserForm pop up and enter the user's selection into cell C40 of the "Regenerate Request" I know these are very basic operations, and I'm pretty sure I can figure out the rest of my problems once I can get past the above.
View Replies!
View Related
Set Range Variable To RefEdit Control
I'm trying to set up a userform with a refEdit box that allows the user to select a cell range. I then need to assign that cell range to a range variable so the macro can use it. I'm having a problem reconciling the assigned string variable that refEdit returns and the range variable that I need. So what I'm trying to say is that I can assign the range fine through the Userform, and I can see through the debugging screen that mySampleVariable (dim as a variant) holds a range value of 'Access Dump'!$A$8 (the correct range), but when I try to Dim myRange As Range Set myRange = mySampleVariable The code bugs out because it apparently can't assign a string value to a range variable.
View Replies!
View Related
Userform Won't Load Info From Database Sheet To Invoice Sheet
I have a list box that I'm using to pull customer information from my "Customer" sheet to my "Invoice" sheet. I can actually open, select, and close the userform. However, I can't get the macro to put the information into the specified location on my "Invoice" sheet. Here's my code so far: Private Sub Cancel_Click() Application.ScreenUpdating = False Unload Me End Sub Private Sub customer_Change() End Sub Here is the "Customer" sheet I'm pulling the info from: And here is the location on the "Invoice" sheet that I'm trying to direct the userform to: And here's my userform just for reference: The userform works perfectly until I press the OK button. That's when I get the error.
View Replies!
View Related
Set Control Visibility Based On Tag Property
I have a userform which uses the tag property of the frame to determine whether a frame is visible (and hence the controls that reside within the frame). A frame contains three combo boxes, and six text boxes. The tag property of the frame matches the number of frames that are visible on the form, so that if the user selects five frames, frames 1 through five become visible and for all other frames visible = false. A frame contains all the data for a single entry. There can be up to fifty frames/ entries that are visible on the form depending on the user selection. I want to use the visibility property to do two things: first the combo boxes are filled from an array after the user selects the number of frames (or entries). I only want to fill the comboboxes where the frame is visible. The second thing is that I have a function which uses the data from the text boxes and combo boxes as required arguments. Since these are required arguments, I will get a data mismatch error if I try to call it and the controls are empty. Therefore, I only want to call the function if the frame which houses the controls is visible. Public Sub Visible1(Entry As String) Dim ctrl As Control For Each ctrl In UserForm2.Controls If TypeName(ctrl) = "Frame" And ctrl.Tag <= Entry Then With ctrl .Visible = True End With Else If TypeName(ctrl) = "Frame" And ctrl.Tag > Entry Then With ctrl .Visible = False.............
View Replies!
View Related
Set Variable To Forms Control & Get Value Property
How do I reference a spin button from a variable that I set. e.g Dim objSpn As Object Dim y As Integer Set objSpn = ActiveSheet.Shapes("spnWCDate") y = objSpn.Value This doesn't work, but hope it explains what I want. It's so I dont have to write the whole object name each time I reference it. ADDED: I've just noticed that this doesn't work even i do reference the object with the full name. I copied this from a forms spin control that I was using, why can't i store the value of the spin button in a variable?
View Replies!
View Related
Unload Active Userform And Show New Userform
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Application.ScreenUpdating = True Unload Me RestrictedOptions.Show Else Cancel = True End If End Sub Trying to use above code to unload active userform and show new userform when red X (close) selected by operator. With the code as is, the Unload Me leaves the form on the screen and displays the RestrictedOptions form. If i remove the Restrictedoptions.Show, the Unload Me does remove the original form.
View Replies!
View Related
Show Multiple Userfroms Without Passing Control To Any Of Them
I am thinking of creating a "summery" macro that would run at the end of my workbook and would show all the userforms needed(up to 10-20 forms) at the same time one on top of another kind of staggered.(like windows would do). However I realized that when I code userform.show then the "summery" macro would pass control to the form that was just shown, and wait for it to be unloaded before progressing to the next line of code. for example;
View Replies!
View Related
VBA Calendar Control Does Not Show Day Numbers
Over in the following thread [url] you can see we've hit a problem with the Calendar Control object. I submitted a workbook which has an Activex calendar control embedded on a User Form. On my PC everything appears as you'd expect, with the calendar showing the individual days in the calendar matrix. However when the user loads the form on their system, although they see the calendar as you'd expect, and they can change the month & year at the top of the calendar, they don't see the individual day numbers, 1,2,3 etc. within the body of the calendar.
View Replies!
View Related
Show/Display Selections In MultiSelect ListBox Control
Ive made a worksheet with a userform and ListBox. The listbox is filled with names. If you click on the last button a msgbox with your selected names is displayed. If you select the button without a selection from the listbox a message pop ups to warn that no selection is made. If you select any name afterwards and click on the button the message still pops up unless you select the first entry from the list ("natalie") then the code is right executed. I'm struggeling with the code for several days. I wonder if by any change somebody wants to correct the code. (I've uploaded my sheet)
View Replies!
View Related
Toolbar Control On Userform ..
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 Replies!
View Related
Cursor Control With Userform
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 Replies!
View Related
Filling Control On Another UserForm
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 Replies!
View Related
Userform Control Blink
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 Replies!
View Related
UserForm Control Looping
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 Replies!
View Related
Show UserForm From Another UserForm CommandButton
I have a userform button that when clicked loads another userform. I am getting a Runtime Error 13: Type mismatch on the line in bold in the code below Private Sub cmdAdd_Click() Me.txtAdd.Value = Me.VarNo.Value VariationsForm.Show Unload Me End Sub I do not get an error on the "Edit" button code which is similar so why is the above not working. Private Sub CmdEdit_Click() Me.txtEdit.Value = Me.VarNo.Value VariationsForm.Show Unload Me End Sub
View Replies!
View Related
Show Userform Or Launch A Userform
I want to use the following to launch a userform I created. Sub showuserform() Dim ans As Boolean ans = msgbox("do you want to show the userform?", vbYesno) If ans = vbYes Then userform.show End If End Sub The trouble is that if I click yes, nothing happens.
View Replies!
View Related
Hide/Show More Cells
I have two options in a Cell as Applicable and Not Applicable. This is in a Drop-down menu and what I want is that when I choose Applicable, it should bring up additional 5 or 6 cells for me to complete. And if I choose Not Applicable, the additional cells should not show up. The default would be Not Applicable.
View Replies!
View Related
Hide Or Show Zeros
Is there a method of formatting specific cells to show zeros? Or indeed I could turn on show zeros in options and then hide the ones I don't want. Any tips / advice on how to selectively display (or hide) zeros appreciated.
View Replies!
View Related
UserForm Control TextBox Or ComboBox
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 Replies!
View Related
Programmatically Remove A Control From Userform
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 Replies!
View Related
Setfocus From Module To Userform Control
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 Replies!
View Related
|
TRACKER
