I have a group box with 5 little round option buttons in, what i wanna do is connect the options to an image and when an option is selected the image that corresponds to it shows, then when a different option is picked another image relating to that option shows.
Select option 1, image 1 is shown
select option 2, image 2 is shown
I have done the above where when I select a picture name from a drop down list it displays the relevant picture in another cell by using the IF function in the named formula
My question is why cant I use VLOOKUP instead of IF in the named formula. When I use it it comes with an error.
I am using this code to hide or unhide rows of text on another sheet:
VB:
Sub ProcessSheet1ChangeOnCellJ7(ByVal Target As Range)
Dim sAddress As String
Dim sValue As String
'Get the address of the cell that changed without '$' signs
sAddress = Target.Address(False, False)
[Code]....
When the "Not Pursuing" list box option is selected (in cell "J7" or "J8" in Sheet 1) I need to add (or over-write) "Not Pursuing" to the range of cells in column "B" (in the "Tasks" sheet), but only for that particular Goal, meaning a limited range of cells in column "B". If the "Pursuing - Show All Tasks" option is selected for a Goal then these same cells need to be blank so that the appropriate person can enter their name into the cell.
The purpose for adding "Not Pursuing" automatically to these yellow highlighted cells is that it will facilitate filtering of tasks by individual in the "Tasks" sheet..
Again I have tried several times to upload a sample file and am unable to, which I know makes it more difficult to solve. (Is there some common mistake people make? I know it's an allowed format and is very small in file size....)
Code solution can be entered directly beneath:
VB:
If Target.Value = "Not Pursuing" Then
ActiveWorkbook.Sheets("Tasks").Rows("29:29").EntireRow.Hidden = False
ActiveWorkbook.Sheets("Tasks").Rows("30:48").EntireRow.Hidden = True
I have a number of pictures on sheet 1 that display names from cells in sheet 2
E.g.
Cell B1 in Sheet 2 has the value "Bob Jones"
Cell B2 in Sheet 2 has the value "Ian Jones"
In sheet 1 Picture1 has the formula =Sheet2!$B$1 so that the picture displays "Bob Jones"
Picture2 has the formula =Sheet2!$B$2 so that the picture displays "Ian Jones"
I have about 30 pictures displaying names in this way, but I want the name of the chosen picture to also appear in cell A1.
E.g. On sheet 1 user clicks on Picture 1 (Bob Jones), the name "Bob Jones" appeas in Cell A1
User clicks on Picture 2 (Ian Jones), the name "Ian Jones" appeas in Cell A1
How I can get a picture to pop up when a certain answer is selected in a certain cell, or when a certain answer is keyed in to a cell. Another portion to this question is that we know how to get a message to pop up in a dialog box when a certain piece of information is typed in to a box, but we don't know how to get graphics into those dialog boxes.
View 3 Replies View RelatedI have a spread sheet where i have created a drop box in Cell i4. There are 56 choices in the drop box. These choices come from cells B160:B215.
There are dollar values in cells C160:C215 correspond with B160:B215. I am trying to find a formula for G16 that will look at i4 and find the corresponding dollar value from C160:C215.
What I am trying to accomplish is the ability to insert a value into a cell if an option button is selected. If the option button is not selected I want there to be a different value in the cell. This is what I have so far:
Sub OptionButton2_Click() Range("F8").Value = "$299" End Sub
What I am having issues with is the "else" clause. I want the value to show $0 if the option button is not selected. I attached a screen shot for reference.
I have inserted a listbox and based on the value selected a picture should be poped. I have searched the forum and got the code below. But it is throwing an error message "object required"
Private Sub ListBox1_Change()
If ListBox1.Value = "x" Then
Pictures("Picture 1").Visible = True
Else
Pictures("Picture 1").Visible = False
End If
End Sub
Then i modified it to
Sub ListBox1_Change()
If listbox1.Value = "1" Then
activesheets.Shapes("Picture 1").Visible = True
Else
activesheets.Shapes("Picture 1").Visible = False
End If
End Sub
If I have a dropdown with
A (value 1)
B (value 2)
C (value 3)
D (value 4)
and a person selects one of those letters in the dropdown in column 1, I would like column 2 to show the number value associated with it
I attached a sample spreadsheet but I was wondering if there was a code that could display a range based on an option selected in a dropdown box.
excel help.xlsm
I was trying to have the the mouse focused on to the textbox when an option button is selected, but it seems not working.
[Code]....
I'm creating an excel spreadsheet that will be sent out to a few users to enter data into. In this spreadsheet, multiple columns contain drop down lists created using the Data Validation tool. The lists are referencing named ranges on a second worksheet.
In these drop down lists are terms that consists of one or two words. What I'm trying to do is when a user goes to select an option from the drop down list, I want the matching one letter code to be entered into the cell instead. For example,
Column AK has drop down list with following options:
Good
Moderate
Poor
When a user selects one of the options, I want one the following respective letter to appear instead......
I have set up a combolist box, and wish to run different VBA subroutines depending on what the user has selected from the combolist. How do I do this? Apologies in advance if this sounds like a silly question.
View 2 Replies View RelatedI have a survey with different groups of Control Toolbox options buttons on it. I want to ensure that each question has an option button selected before the survey can be exited and emailed onwards. The grouped button names are: GroupA, Group1 through to Group6.
View 2 Replies View RelatedUsing macro's on Excel 2010. What I'm trying to do is create a macro that will copy a range of cells from one sheet to another depending on a option being selected from a drop down box. I've tried to use formulas but without success.
sheet 1 contains a list of approx 20 people with rows containing sales figures per week.
Is it possible to have a macro that will copy the rows to sheet2 depending on the dropdown? The drop down has already been setup with people's names
E.g.
if sheet 1, cell a1 (with data validation setup) dropdown contains "mr smith", copy sheet2 row A1:A9 to sheet 1 cell a2
or
if sheet 1, cell a1 dropdown contains "mr cooper", copy sheet2 row B1:B9 to sheet1 cell a2
etc... for each name in the dropdown
The idea is so that i select a dropdown and it copies the sales figures that match the dropdown name, if i then select another dropdown, the corresponding figures are copied to the same place.
I have a sheet that I use to store machine process data. The way it works is on a main sheet I select the job I need to run and the machine I want to run it in. The sheet adjusts the process to match the machine basicly volumetric formulas and all that works great no problems. But what I would like to do is when I choose a job I would like excel to display a couple pf pictures such as a picture of the part, a picture of the machine with that job set-up in it that kind of thing. Each time I pick a new job the pictures would change with the data.
View 9 Replies View RelatedI have 50 word docs where people have pasted powerpoint slides as pictures but just used copy and paste rather than paste special, this means when pasted the file sizes are massive.
I have an excel spreadsheet with hyperlinks to evry document where the file sizes are massive and its taking up so much file space.
I was wondering if anyone has a macro or can hlp me with one that, when i click on a link to the word doc, it would open the word doc, and change the picture from .ppt to .JPEG then close the word doc when done.
Im not sure if this is even do-able, infact i am probably talking rubbish, but it would save me like 2 weeks if ti was possible.
I have fond a couple of posts to achieve this however they all require selecting the picture first. Is there a way to change the picture formula without selecting the picture?
View 8 Replies View RelatedI have posted example work book
Sheet1 has a list that changes based upon input in Sheet2
So, I have reference pictures on Sheet2 that I would like to show on Sheet1 under the corresponding value.
Explanation: on Sheet two a value is assigned (in column B) to each category (Column A) and then it is ranked (Column C)
Sheet 1 lists the categories in rank order.
I want pics to show under each category.
I saw some articles online, but have been unable to make it work.
I know how to create a backup file for an excel file (General Options Menu in Save As dialog box, we have to tick the "Always create backup" check box). When we tick this option the backup file is created in the same folder. Can we specify the path were this backup file can be stored and updated each time when we save the main file.
View 4 Replies View RelatedI already have the code to import the picture but i would like it to have rounded corner's. The option if you select the picture then tick format, picture shape and it's the second rectangle in. I can not seem to find that particular piece of code for that particular shape. The other comparison is the (reflected beveled, black) option under picture format.
[Code] .....
I have a userform with Option Buttons. I have them all initialized as deactivated except for one at a time as the user performs certain tasks (e.g. Create a new worksheet with the name "database"). Once each task is completed, the previously activated option button becomes deactivated and another option button becomes activated. That works fine. My problem now is that I can't change the default tab index settings to put the black dot next to the activated option button:
This doesn't seem to work:
Code:
If Sheets("Database").Range("A1") vbNull Then
Controls("OptionButton1").Enabled = False
Controls("OptionButton1").TabIndex = 1
Controls("OptionButton2").Enabled = True
Controls("OptionButton2").TabIndex = 0
End If
I have a userform with a lot of OptionButtonson it.
(a few pages on the userform * a lot of OptionButtons per page = a lot lot OptionButtons)
I need to change them all to checkboxes ... Is that possible? For example:
Code:
Dim oCnt As Controls
For Each oCnt In myform.Controls
If TypeOf oCnt Is msforms.OptionButton Then
TypeOf oCnt = msforms.CheckBox
End If
Next
Syntax error in line: TypeOf oCnt = msforms.CheckBox
But I always have an error.
I have a series of 12 option buttons on my spreadsheet named Opt_1 thro' opt_12. Whenever one is pressed, I want to invoke code to action the following:
change forecolor of non-selected option buttons to yellow
change forecolor of the selected option button to red
Enter in Cell A1 the number of the option button slected
So, for example, if Opt_4 was pressed, then
Opt_1 - Opt_3 & Opt_5 - Opt_12 forecolor = yellow
Opt_4 forecolor = red
Cell A1 gets the value of 4 entered into it.
I know how to do this on a user form, by putting the option buttons in a frame and then picking up the array value of the option button, but I have these directly on my spreadsheet next to 12 cells as this is more relevant to my application.
I thought of a Select - Case statement, but this will be rather lengthy. Have you any suggestions on how to tighten this code down.
I have a problem with the changing the caption property of the option buttons to bold, italic and regular.
Is it some vb code you need to put in for the option buttons?
I'm a complete Excel and VBA newbie and would like to know if it's possible to change the output of OptionButtons from 'TRUE' or 'FALSE' to "1"/"2"/"3"/etc..
The name of each button is:
Rating 1
Rating 2
Rating 3
Rating 4
and so forth..
The idea is for each rating to output its assigned number such that if the user were to click "Rating 1", the result would be "1", "Rating 2" = 2 and so on. I'm trying to design a survey and these results will then be used to calculate an average rating. If this is possible, how would I need to write the code for it?
I have set up a rollover hyperlink so that when I hover over the cell it changes colour and creates a good effect. To do this I have another cell on the sheet that turns to 1 when the cell in question is hovered over.
I need a code so that when that cell displays the number 1. the object (which is rectangle 2) changes from white fill. to a picture I have saved on my desktop.
I cant quite figure out the coding and have been messing about with things like..
if cell range e.g a1 = 1 then rectangle 2 .userpicture " path " else .solid etc.
I would like to set up some option buttons so that the will be become visible and enabled when a check box is checked, and the opposite when the same checkbox is not check. This is my problem
Private Sub cbpDiscAlum_Click()
Dim myOption As Control
Dim myValue As Boolean
myValue = cbpDiscAlum.Value = True
If myValue = True Then
For Each myOption In pDiscounts.Controls
myOption.Visble = True
myOption.Enabled = True
Next myOption
Else
For Each myOption In pDiscounts.Controls
myOption.Visible = False
myOption.Enabled = False
Next myOption
End If
End Sub
It is the 5th command where it gets hung up: For Each myOption In pDiscounts.Controls. I am sure I am spelling both of the names correctly: the checkbox, and the group name.
I am a complete newbie with the camera tool. Is there any way to make the camera tool dynamic so that the cells the tool is referencing can change upon the click of a button or some other form of switch? I am creating my first dashboard and this is the last step for my report to be completely dynamic.
-----------------------------------------------------------------------
Never mind, I apologize i just figured this one out...
Create a user defined formulaIn the UDF Create an if statementThe if statement's condition is the logistics in the shift mechanismThe value if true is the first group of cells you want in the snap shotThe value if false is the second group of cells you want in the snap shot, The range you want to toggle betweenRename the cell reference of any snap shot you have taken with the UDF name. In my example my UDF is "Dude" so when you select the camera tool it shows =Dude as the cell referenceReference a scroll bar to the conditional cell you selected in the if statement or choose statement. This is the shift mechanism
If you want to toggle between more than 2 sets of data use =Choose instead of =if
I have set up an option frame with two options. If I click on option A it shows below a frame with txtLenght and txtWidth.
If I use option button B it shows me on the same spot a different frame with txtSQM. I need that so I could either enter the length and width to get the sqm or I do already have the sqm value.
When I set up the code I would like to use an input message saying "Enter Lenght & Width" but if I use the other option it would need to say. "Enter the sqm value".
How or what code do I need to enter to be able to seperate those two from each other.
But also it is important that it does only calculate either the value in sqm or the values from length and width.