Solved

Oval Fill

Posted on 2011-09-26
1
210 Views
Last Modified: 2012-05-12
Hello trying to put a vba together to do the following:

1. If sheets 'Control" cell B18= KTUL then on sheet 15, fill in Oval 3 with green. else do nothing.
0
Comment
Question by:sandramac
1 Comment
 
LVL 85

Accepted Solution

by:
Rory Archibald earned 500 total points
ID: 36707870
For example:
Sub fillit()
If Sheets("Control").Range("B18").Value = "KTUL" Then
    With Sheets("Sheet15").Shapes("Oval 3").Fill
      .Visible = msoTrue
      .ForeColor.RGB = vbGreen
      .Transparency = 0
      .Solid
    End With
end if
End Sub

Open in new window

0

Featured Post

Live: Real-Time Solutions, Start Here

Receive instant 1:1 support from technology experts, using our real-time conversation and whiteboard interface. Your first 5 minutes are always free.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
Do you use a spreadsheet like Microsoft's Excel?  Have you ever wanted to link out to a non excel file on your computer or network drive?  This is the way I found to do it!
The viewer will learn how to use the =DISCRINV command to create a discrete random variable, use this command to model a set of probabilities and outcomes in a Monte Carlo simulation, and learn how to find the standard deviation of a set of probabil…
This Micro Tutorial will demonstrate in Microsoft Excel how to add style and sexy appeal to horizontal bar charts.

776 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question