Forum Discussion

ReeducBenodet's avatar
ReeducBenodet
Copper Contributor
Jul 21, 2022

How to add date to cell with a button

Hello, I want to add the date at the end of a line with a button. It's to follow how many time our product are cleanned. I want to have on a line : the product name, a button and all the date of cleanning. And when you click at the button, the date add at the end of the line

 

Sorry for my bad english. 

Thanks in advance

ReeducBenodet

Formulas and Functions
Macros and VBA
  • NikolinoDE's avatar
    NikolinoDE
    Gold Contributor
    Jul 22, 2022

    ReeducBenodet 

    Here is an elegant approach to solving the problem without any button :).

    Example in the included file.

    Enter the right mouse button in the area A1:B10 and the date appears, pressing it again disappears the date.

     

    VBA Code:

     

     

    Option Explicit

Private Sub Worksheet_BeforeRightClick(ByVal Target As Excel.Range, Cancel As Boolean)
'Me.Unprotect ("1234")
    If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
        Target = IIf(Target = "", Date, "")
        Cancel = True
    End If
    'Me.Protect ("1234")
End Sub

     

     

     

    Hope I was able to help you with this approach :).

     

    NikolinoDE

    I know I don't know anything (Socrates)

Resources