Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
?
Solved

Oval Fill

Posted on 2011-09-26
1
Medium Priority
?
233 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 2000 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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

This article describes how to use a set of graphical playing cards to create a Draw Poker game in Excel or VB6.
After seeing numerous questions for Dynamic Data Validation I notice that most have used Visual Basic to solve the problem. This suggestion is purely formula based and can be used in multiple rows.
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.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

564 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