Pass Value From User Form To Code

Jun 24, 2006

I have created a custome User Form with three option buttons inside a frame. How do I set the value for each button and then how do I pass that value back to the code that opened the form (after closing the form upon a selection?

Sub Test2()
UserForm1.Show
Select Case List
Case 1
Range("b1").Value = "List 1"
Case 2
Range("B1").Value = "List 2"
Case 3
Range("B1").Value = "List 3"
End Select
End Sub

in the form I have the following code associated with each of the butons (but I do not think I have it right). Isn't there a way (becasue I have them in a frame) to shorten the code?.................

View 8 Replies


ADVERTISEMENT

Pass A Variable To The Form Code

Jun 8, 2009

I have a spreadsheet with about 30 charts on it that I would like to attach a macro to which opens the chart in a form. I've figured out how to do this last part, but am stuck on how to pass a variable to the form code which tells excel which chart to copy. Essentially what I'm doing creating a macro for each chart which would run when that chart is clicked on. This macro is identical for each chart except for the name of the chart being passed.

Sub Chart1_click()
ShowChart "Chart 1"
End Sub

Sub ShowChart(c As String)
frmChart.Show
End Sub

In the UserForm_Initialize code located in the userform module, I'd like to call the code which saves and loads the image of the clicked on chart. But here's where I'm stuck. How do I pass c to the code in the form module...e.g, how to pass c to UserForm_Intialize and to ChartZoom? Here's what I have so far...

Private Sub UserForm_Initialize(c As String)
ChartZoom c
End Sub

Private Sub ChartZoom(c As String)

frmChart.Show

Dim Cht As Chart
Set Cht = ActiveSheet.ChartObjects(c).chart
Dim CName As String
CName = ThisWorkbook.Path & "cht.gif"
Cht.Export Filename:=CName, FilterName:="GIF"
imgCht.PictureSizeMode = fmPictureSizeModeZoom
imgCht.Picture = LoadPicture(CName)

End Sub

View 9 Replies View Related

ListBox Code In User Form?

Nov 14, 2008

I'm playing with simple UserForms to get the hang of VBA. I was trying an example for the help files (Using xl2K), and this isn't working. My first challenge was figuring out that I needed to 'create' a UserForm to begin with.

View 2 Replies View Related

VBA Code For Fliping Images In A User Form

Jun 9, 2009

find a VBA Code for fliping images in a User Form. What I want is that, I have a user form in which I have a command button "Next" & "Previous". I want whenever I click "Next" button my image control should show the next image & whenever I click "Previous" button my image control should show the previous image. I tried many logics but failed. Might be you guys will crack this hard nut.

View 7 Replies View Related

Code For Simple Checkbox On User Form.

Jan 21, 2010

I really don't know how to code a checkbox correctly. On the sheet, I have a form with CheckBox1 and Checkbox2. I would like Checkbox2 disabled until Checkbox1 is checked. Also, when Checkbox1 is checked, display Image1, otherwise Image1 is hidden. When CheckBox2 is enabled and checked, display Image2, otherwise Image2 is hidden. I know this is real beginner stuff, I'm still a rookie.

View 4 Replies View Related

Show User Form After Workbook_open Code Has Executed

Apr 19, 2006

i have this code which askes the user for a job number once the workbook is opened.

Private Sub Workbook_open()

' If sheet was named by original open routine, exit

If ActiveSheet.Name = "Main Roof" Then Exit Sub

' otherwise

Do
Returnvalue = InputBox("Please Enter a New Job Number.", "Information")

' Allow changes by entering q as the Job Number
If Returnvalue = "q" Then Exit Sub


' Delete the ' from the front of the following two lines and
' then when you enter q as the Job Number you will also be
' asked for a password. The default password is toe.

what iam trying to do is get it to open the userform "WorkSelection" after it has completed the above code.

View 3 Replies View Related

Dynamically Add Controls To User Form Macro Code

Apr 9, 2008

I am trying to dynamically add controls to my user form based on some values in my cell. I am successfully able to create a text box dynamically but my label is not getting displayed. here is my code


Private Sub UserForm_Activate()

On Error Resume Next
If (ThisWorkbook. Sheets("Sheet2").Cells(1, 8) <> "FALSE") Then
Dim ctl As Control
Dim ctl1 As Control


Set ctl1 = Me.Controls.Add("Forms.Label.1", ctl1, True)
With ctl1

View 9 Replies View Related

User Form: Which Format The Code In Order To Get Information To Appear In A Spreadsheet

Oct 24, 2007

I have created a userform but just unsure how to format the code in order to get information to appear in a spreadsheet
http://www.srfl.ca/userform.htm

View 9 Replies View Related

Logon Box - User / Pass - Unique Actions Per User.

Apr 2, 2009

I have a workbook that is used to track overtime hours worked through the year. I've received some help from users on this forum, and others, to create the necessary macros and formulas to allow a supervisor to make use of the form; however, the workbook is also used to track those that wish to volunteer to work overtime each weekend. The sheet has a list of names for the employees on each shift, then a column to allow a "Y" to be placed under the date - designating them as a volunteer for any overtime available. I've found this spreadsheet (attached - from this site) that will allow individual users to access the workbook and have unique passwords for each. I don't completely understand how it works, but I feel it may be a start to getting what I want.

Essentially, once the user selects their name and inputs their password, I'd like the workbook to be opened and then allow them to only manipulate the row associated with their name. That row will change from week to week, so specific numbers will not be able to be used, but their name will be the same as the name used in the logon.

I feel like I'm asking for a lot here, so just some initial guidance on whether this type of thing is possible would be an acceptable answer.

View 9 Replies View Related

User Form-Easy Selection Of Data To Be Filled In The Form

Jun 3, 2006

find the attached workbook

I have a Database and user form, in the user form i have a field named “Vehicle No” this is a combo box from which a user needs to select the Vehicle numbers, and all these are working fine now, I need your help in the following:

When user selects the second field named "Select Vendor name" i need a pop up window which shows all the Vehicles belongs to the vendor which they have selected, and with the popup window user selects the vehicle number then the Vehicle number combo box should be filled.

Currently users have to select by scrolling through Combo box which takes long time and difficult to find by scrolling.

View 7 Replies View Related

Prevent The User From Saving The Data Input From The User Form If Any Of Those Three Fields Is Left Blank

Feb 9, 2010

I have a user form that has a combo box "City" two text boxes one called "Flight" and the other "Date". What I'm trying to do is to prevent the user from saving the data input from the user form if any of those three fields is left blank. The code that I have so far checks all of the required fields, if any are left blank a message notifys which field(s) is left blank and return the focus back to that field. But the rest of code also fires.

What I really need is either to stop the code if any fields are blank and return the focus back to the blank field, the user completes the field(s) and clicks the save again, or better yet, pause the code until all the required fields are completed and then complete the save. (There is actually another 200+ lines of code in this sub, but I deleted it to keep the post a little shorter.)

View 2 Replies View Related

Look Up Data And Plug Into Form - User Form In Reverse?

Jan 14, 2009

I have created a registration workbook for this year's youth sports league. All of the information is entered into a User Form and separated onto it's appropriate sheet designated by the child's age. Next year, I would like to use this year's workbook to look up returning players.

Will it be possible to add a "lookup" button into my form, or create a lookup program, that once the registrar clicks on the correct player, the information is plugged into the User Form, the registrar adjusts the age and any necessary info, presses enter, and the information is copied into the appropriate category in the new workbook? I haven't worked with User Forms long enough to know if they can be filled in that way, but if this can be done, you are the people who would know.

View 3 Replies View Related

Unload Or Hide User Form On Show Next Form

Dec 2, 2008

I'm using a series of user forms for data entry to a workbook, some of them open next stage user form on completion (OK cmd button).

All that is working fine, but I'd like the initial form to close on showing the next one. I've tried adding Unload and Hide commands following the frmInsertEntry.Show (Next stage form), to no avail, but I'd like this user form to close or hide at the end of the sub.

Private Sub cmdContinueType_Click()

ActiveWorkbook.Sheets("Records").Activate 'Select starting cell in record sheet
Range("N3").Select

Do
If IsEmpty(ActiveCell) = False Then ' Search for next empty cell
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True

If optDrillType = True Then
frmDrillEntry.Show
Else
frmInsertEntry.Show
End If

End Sub

View 9 Replies View Related

Collect Date From User And Pass To Variable

Sep 9, 2006

I have an existing macro which I am enhancing and I would like to have the user provide a date, either with a popup text box in a userform and then use a command button to hit OK and have the box dissapear, or in a calender which the date is selectable, and the date supplied go into a variable.

View 2 Replies View Related

Pass Ranges To User Defined Function

Dec 28, 2006

I am trying to write a User Defined Function in VBA to perform a simple two-dimensional table lookup. I have the temperature distribution in a solid given in a table in Sheet2. The first column of the table contains the time values, the first row contains the spacial values (radii), and the intersections contain temperature values. These ranges are named times, radii, and temperatures. In Excel, I can perform the lookup using: =index(temperatures, match(time, times, 1), match(radius, radii, 1))

But how do you do this in VBA? More specifically, how do you deal with passing ranges to the WorksheetFunctions?

Function temperature_ref(time_range As Range, radii_range As Range, temperatures_range As Range, time As Double, raduis As Double)

r = WorksheetFunction.Match(time, time_range, 1)
c = WorksheetFunction.Match(radius, radii_range, 1)
temperature = WorksheetFunction.Index(temperatures_range, r, c)
End Function

This function would be called (from any worksheet) as..................

View 4 Replies View Related

Display Number Of Lines Which Depends On Value Pass By User

Jul 17, 2013

I am trying to display number of lines which depends on value pass by user. Actually user is passing some value. On which some group of lines has to be display.

E.g.
for 1 value 9 lines
for 2 value first 9 lines + another 9 lines
for 3 value first 18lines = 9 lines
and so on till 52.

View 2 Replies View Related

Pass Element Of User-Defined Data Type

Oct 17, 2007

I have an array with structure, i.e. User Defined Type. Assume the user defined type has two elements: Element1 and Element2 and array name is Array.

So the definition is:

Dim Array(1 To 10) As UserType

and access to elements is

Array(5).Element1

The problem is that I need to pass the whole set of Element1 or Element2 to a function. Should it have been two separate arrays, it would not be a problem. But because of the user defined structure I have no idea how to pass a single element.

I hope there is another solution rather than to use loops. I have many arrays like this with complex structures. I simply can not replicate all of them.

View 9 Replies View Related

Pass Multiple Non-contiguous Ranges Into A User Defined Function

Dec 23, 2009

I am trying to call a function that calculates forecast error (wMAPE). This function needs to be able to handle passing in non-contiguous ranges. I can't seem to figure out how to do that.


Function wMAPE(Forecasts As Range, Actuals As Range, Weights As Range) As Variant
Dim Denominator As Double
Dim Numerator As Double
Dim i As Long
Dim Fcst As Variant
Dim Act As Variant
Dim Wt As Variant

If Forecasts.Cells.Count Actuals.Cells.Count Then MsgBox ("Error: Arrays not same size")
If Forecasts.Cells.Count Weights.Cells.Count Then MsgBox ("Error: Arrays not same size")

Denominator = 0............

View 9 Replies View Related

UserForm Initialization: Fill The Form Out Once And Click 'OK' (run The Code To Put The Form Data Into A Sheet)

Mar 31, 2009

I'm missing something in my UserForm initialization code. If I fill the form out once and click 'OK' (run the code to put the form data into a sheet), when I go back into the form all the old info is still there. If I then click 'Cancel' (Unload Me) and reopen the form, the old data is cleared out. What am I missing to make it clear it out the first time?

View 2 Replies View Related

User Forms- Create A User Form That Will "pop Up"

Oct 25, 2007

I have a spreadsheet with the following headings:

A
Claims Number

B
Name

C
Scheme

D
Admin

E
Date

I need to create a user form that will "pop up" and ask the administrator to enter the above details.

A - should be created automatically (ie last claim number + 1)
B - user enters manually
C - data retrieved from a list
D - data retrieved from a list
E - date is the date the information is entered

View 9 Replies View Related

User Form

Feb 24, 2009

I have a user form that I want to take the information and have it input on the worksheet. I want it to start at A3 and check to see if that cell is "" and if it is not then enter the data from the from horizontally. If A3 is not "" then continue down column A untill the first nonblank cell is and then select that cell and have the data entered horizontally.

I have this code so far but it is not working.

Private Sub cmdSubmit_Click()
Dim Month As Variant

Month = Me.cmbMonth.Value

ActiveWorkbook.Sheets(Month).Activate

I have done a bit of excel programming last year but have not done any for the last 4 months so I am a bit rusty.

View 9 Replies View Related

Code To Use Existing IE Tab To Pass Different Queries On Google

Jun 20, 2013

I need a code to use existing IE tab to pass different queries on google search.

For example:- If active cell contains "manoj Kumar" then macro will search "manoj Kumar" on google and if i select another cell then code will pass the another google search query on the same active IE window(It will not open new window or new tab).

View 4 Replies View Related

Combobox In A User Form

Aug 30, 2007

I've written a workbook that enables my workmates to enter sample information easily (workbook attached). What i need help on i cant get the combobox 's on the user form to pick up the related info in worksheet named "data" and insert it into the relavant coloumn in tab named "Results". I can get it to work without using combobox's and just typing the info into a textbox but i wanted to use combobox's.

Another thing i wanted to do was pick invidual results and send them the "Report" for printing. how would i do that.

View 14 Replies View Related

User Form Drop Down Box

May 25, 2008

I have a project, i want to create a user form, basically i have a work book that contains dinner menu's on column A and ingredients in column b.
I would like to create a user form that have a drop down box that would show all the possible menu's referencing my workbook sheet1 column A values. and by selecting a item, i would like to be able to show all ingredients needed, is there a way to do this?.
I hope so, it would be so cool to do this.

View 11 Replies View Related

User Form Interaction

Jun 22, 2009

I have created a multi utility user form that user can initialize by a shortcut key. The problem if user want to see the content on sheet or want to change the active cell, he has to close the form and then do any action. This form is initialized by a command and default included in excel as a Add-in. Is there is any way to make the form floating i.e. user can manipulate the data and can see the form as well.

View 4 Replies View Related

Using The Scroll Bar In A User Form

Jul 8, 2009

On a userform, I have 5 paragraphs of text that the user needs to read. The problem is the user can't see all 5 paragraphs, the user is only able to see about two paragraphs. I don't want to make the userform larger but I would like to add some type of scroll bar that would allow the user to scroll up and down to view all of the text.

View 7 Replies View Related

Comments In User Form ...

Dec 20, 2009

Can anybody help me with a code that shows a comment within the user form when specific a checkbox is selected?

I am attaching a sample file with user form containing 6 checkboxes. I need when Name6 is selected, a comment "Test" to appear inside the user form beside the checkbox.

View 6 Replies View Related

Placing User Form

Apr 6, 2007

I have created a user form (thanks Datsmart), and now need to place the data that will be inserted in that userfom onto my spreadsheet.

The spreadsheet will have 50 rows, each containing a different project. There will be a button on each row to activate the user form for that specific row. They click the button on the spreadsheet, and the user form opens. They enter the data on the user form, and once they click the "add comment" button on the user form, the data should be entered in the last cell of the row on which the button is located.

Now the complicated part:

The users will use that for to update the project from week to week, but each week's comment needs to go in the same cell, but above the previous comment.

IE:

Week 1

Jan 1: Project lauched

Week 2

Jan 6: Project budget submitted
Jan 1: Project lauched

Week 3

Jan 22: Budget approved
Jan 6: Project budget submitted
Jan 1: Project lauched

The date being the date from the user form, and the comment being the comment from the user form. If the latest date can be bolded that would be a bonus.

They each have to go in the same cell cause all relate to the same project. This same thing will be repeated 50 times for each different project.

View 9 Replies View Related

User Form Printing

May 24, 2007

I came here yesterday asking for help and was helped immediatly, but I have another question/problem. I got my user form up and running, however I've just been informed that the form has to be able to be printed out. So basically I need this user form with all the data on it and I need it to be printed.

Is there a way to add a command button perhaps that prints out the form with the data on it? (Ex: Imput Data, hit Print command button, have an electronic and hard copy of the information)

View 9 Replies View Related

Mask In User Form

Oct 16, 2007

I have a user form with 2 textboxes (used as parameters for an ODBC query). The entry should be a period, as yyyymm. How can I check, for instance when clicking the Ok button after entry, that both textboxes are of the "000000" format and the last 2 numbers are between 01 and 12?

View 9 Replies View Related







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