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

x
?
Solved

Click cell on that row column 11 add word

Posted on 2016-09-13
8
Medium Priority
?
65 Views
Last Modified: 2016-09-13
Hello Experts Exchange users

I am trying to add a macro on a button

On any clicked cell
Look for that exact row
Column 11
Put in the word (DONE)

Thanks for your help and time guys. I really appreciate it.

Click-on-cell-on-that-row-column-11-.pngClick-on-cell-on-that-row-column-11-.pngFIXED-COMPLETED-9-6.xlsm
0
Comment
Question by:Omar Hernandez
  • 4
  • 4
8 Comments
 
LVL 50

Expert Comment

by:Martin Liss
ID: 41796914
Add lines 2 to 4 at the top of your GENERAL sheet's Worksheet_SelectionChange code.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(ActiveCell, Range("K4:K999999")) Is Nothing Then
    ActiveCell.Value = "Done"
End If

    Application.ScreenUpdating = False
    
            Dim rownumber As Integer

            rownumber = ActiveCell.Row

Open in new window

0
 
LVL 50

Expert Comment

by:Martin Liss
ID: 41796915
My code looks for clinks in the ORGANIZER3 column. If you want it in the next column instead then change line 2 to If Not Intersect(ActiveCell, Range("L4:L999999")) Is Nothing Then
0
 

Author Comment

by:Omar Hernandez
ID: 41796977
Hello there Martin Liss, Before anything thanks for your quick response. I have done what you have suggested but The actual button that is label DONE. the Macro is not created on it may you guide me to get this working, thanks again
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
LVL 50

Accepted Solution

by:
Martin Liss earned 2000 total points
ID: 41796986
Oh, sorry, ignore my code above. Assign this macro to the DONE button. If you need help doing that then please let me know.

Sub RectangleBeveled7_Click()
    Cells(ActiveCell.Row, "K") = "DONE"
End Sub

Open in new window

0
 

Author Comment

by:Omar Hernandez
ID: 41797002
Thanks a mil Martin Liss this did the trick, I know that you have just assisted me with the solution. but wanted to ask you a question before finishing up.

Is it possible to have this button to have two function that if i click on it once it will add "DONE" and if it has "DONE" when click clear that exact cell ?
0
 

Author Closing Comment

by:Omar Hernandez
ID: 41797004
Thanks again for the Best solution Martin
0
 
LVL 50

Expert Comment

by:Martin Liss
ID: 41797016
Sub RectangleBeveled7_Click()
    If UCase(Cells(ActiveCell.Row, "K")) = "DONE" Then
        Cells(ActiveCell.Row, "K") = ""
    Else
        Cells(ActiveCell.Row, "K") = "DONE"
    End If
End Sub

Open in new window


You're welcome and I'm glad I was able to help.

Expand my profile’s “Full Biography” and you'll find links to some articles I've written that may interest you.

Marty - Microsoft MVP 2009 to 2016
              Experts Exchange MVE 2015
              Experts Exchange Top Expert Visual Basic Classic 2012 to 2015
0
 

Author Comment

by:Omar Hernandez
ID: 41797020
Will do, thanks again friend
0

Featured Post

[Webinar On Demand] Database Backup and Recovery

Does your company store data on premises, off site, in the cloud, or a combination of these? If you answered “yes”, you need a data backup recovery plan that fits each and every platform. Watch now as as Percona teaches us how to build agile data backup recovery plan.

Question has a verified solution.

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

You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
We live in a world of interfaces like the one in the title picture. VBA also allows to use interfaces which offers a lot of possibilities. This article describes how to use interfaces in VBA and how to work around their bugs.
Graphs within dashboards are meant to be dynamic, representing data from a period of time that will change each time the dashboard is updated with new data. Rather than update each graph to point to a different set within a static set of data, t…
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.

580 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