Solved

Click cell on that row column 11 add word

Posted on 2016-09-13
8
48 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 46

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 46

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
PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

 
LVL 46

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
 

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 46

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

Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

Question has a verified solution.

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

If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
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 demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate how to use a scrolling table in Microsoft Excel using the INDEX function.

825 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