ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   if x = true then do y, possible? (https://www.excelbanter.com/excel-programming/316624-if-x-%3D-true-then-do-y-possible.html)

MarcB[_6_]

if x = true then do y, possible?
 

thank you for the responses. I entered the code but it's not working.
know I'm leaving something out and I'm sure it has to do with th
ComboBox1_Change() startup. What I have is a drop-down list o
companies, about 75. Its on a Sheet labeled "Input", there is a
"Other" item in the list. The user will select either other or one o
the companies. This relates to the "quote" sheet. On the contrac
sheet, if the user selects ANY of the companies it will say "this quot
is provided in accordance to the contract already signed." if the
select Other from the list, I would like a jpg of a generic contract t
pop up at the end of the contract, in cell B50.

I've created my drop-down list and it works fine, but I'm not sure wha
the best method is to complete the quote. I know that the code you gav
me, anilsolipuram, is where I need to be. Below I have copied an
pasted my code, I'm just not sure how to activate it or maybe I'
naming it wrong somewhere.

Private Sub ComboBox1_Change()

Dim pic As Object
Dim t As String

If ComboBox1.Value = "Other" Then
Sheets("Quote").Select
ActiveSheet.Range("B50").Select
ActiveSheet.Range("B50").Value = ""
Set pic = ActiveSheet.Pictures.Insert("K:\Bids & Proposals Departmen
Folder\Bids\Quick Quote Calculator\Image\tocstandard.jpg")
pic.Width = ActiveSheet.Range("B50").Width
pic.Height = ActiveSheet.Range("B50").Height
pic.Left = ActiveSheet.Range("B50").Left
pic.Top = ActiveSheet.Range("B50").Top
t = pic.Name
Application.CommandBars("Picture").Visible = False

Else
Sheets("Quote").Select
If t < "" Then
ActiveSheet.Shapes(t).Select
ActiveSheet.Shapes(t).Delete
t = ""
End If

ActiveSheet.Range("B50").Select

ActiveSheet.Range("B50").Value = ""
ActiveSheet.Range("B50").Value = "This agreement provided as per th
conditions in your current contract."
End If
End Su

--
Marc
-----------------------------------------------------------------------
MarcB's Profile: http://www.excelforum.com/member.php...fo&userid=1498
View this thread: http://www.excelforum.com/showthread.php?threadid=27753



All times are GMT +1. The time now is 06:36 PM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com