Adding command button to multiple rows in Excel worksheet based on cell value

[GalaxyFlip4]

Hi all,

I have a worksheet(names, home address, action, email address, submission date) where rows of data will be added over time.

I desire a command button to the added to the end of the data row if a specific cell(Action column) in the row states "Pick up".

If the specific cell in states otherwise, no command button is added to the end of the row.

Could a looping macro achieve this?

I will use the command buttons to send email to clients only in that row.

Please see attached screenshot for clarification.

Thank you all very much.

Best,

Dion
<>

 

[kevin9999]

Personally, I wouldn't go down the command button path, but rather use a before double click event code instead. The end result would be the same, but the code would be a lot simpler. Try the following on the sheet code area of the sheet of your image. On double click on column H, you will trigger your email code (which I assume you already have) if the cell contains the word "Mail".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Target.Column <> 8 Then Exit Sub
        Application.EnableEvents = False
        If Target.Value = "Mail" Then
        
            '**** your email code goes here ****
        
        End If
        cancel = True
        Application.EnableEvents = True
End Sub

 

[GalaxyFlip4]

Personally, I wouldn't go down the command button path, but rather use a before double click event code instead. The end result would be the same, but the code would be a lot simpler. Try the following on the sheet code area of the sheet of your image. On double click on column H, you will trigger your email code (which I assume you already have) if the cell contains the word "Mail".

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, cancel As Boolean)
    If Target.Column <> 8 Then Exit Sub
        Application.EnableEvents = False
        If Target.Value = "Mail" Then
       
            '**** your email code goes here ****
       
        End If
        cancel = True
        Application.EnableEvents = True
End Sub

Thank you Kevin9999, I will give it a shot.

Best,