Check Mark?

**geneg** · 02-19-2009, 11:13 PM

Hello, I wonder if anybody can help me.

I need to format cells that the one I click on will change it's color to black or put a check mark, or cross that cell.

How can I do it?

Thanks,

**solnajeff** · 02-19-2009, 11:26 PM

Hi

Paste the following code into the sheet module (right click on the tab and select 'view code')

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    Dim row As Long
    Dim Col As Long
    
    Cells.Interior.ColorIndex = xlNone
    
        row = Target.row
        Col = Target.Column

        Cells(row, Col).Interior.ColorIndex = 1

End Sub

If you wish to change the color simply change the value 1 for the interior color index to one more appropriate.

Regards

Jeff

**royUK** · 02-20-2009, 04:19 AM

geneg, what has your title to do ith the question? I suggest that you actually read the Forum Rules that you agreed to

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution. Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.
To change a Title on your post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

Check Mark?

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

Check Mark?

Re: Check Mark?

Re: Check Mark?

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions