Solved

Oval Fill

Posted on 2011-09-26
1
202 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

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Suggested Solutions

Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
Convert between Excel file formats (.XLS, .XLSX, .XLSM) with/without macro option David Miller (dlmille) Intro Over this past Fall, I've had the opportunity to see several similar requests and have developed a couple related solutions associate…
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

706 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

Need Help in Real-Time?

Connect with top rated Experts

17 Experts available now in Live!

Get 1:1 Help Now