Solved

Click cell on that row column 11 add word

Posted on 2016-09-13
8
35 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 45

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 45

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
 
LVL 45

Accepted Solution

by:
Martin Liss earned 500 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
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 

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 45

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

What Is Threat Intelligence?

Threat intelligence is often discussed, but rarely understood. Starting with a precise definition, along with clear business goals, is essential.

Join & Write a Comment

Modern/Metro styled message box and input box that directly can replace MsgBox() and InputBox()in Microsoft Access 2013 and later. Also included is a preconfigured error box to be used in error handling.
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

708 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

18 Experts available now in Live!

Get 1:1 Help Now