Add delete button in table column ONLY if condition is met.

[duteberta]

How do I have a DELETE button appear in the "d" column (Column "data[d]") only if there is a "1" value in the first column? I already have the Delete row macro written and it works fine - I'm just trying to get a better UI.

Here is my test file:
iCloud Drive - Apple iCloud

 

[Anthony47]

My platform is Windows so I cannot test that using a shape (e rectangle, for example) or an icon the result will be Ok for you.
Anyway, those items are "Shapes", so the code of the added block need to be modified as follow:

    'Added block -->
    Set rngCol1 = Intersect(Target.Cells(1, 1), lo.Range.Columns(1))
    If Not rngCol1 Is Nothing Then
        If rngCol1.Cells(1, 1).Value = 1 Then
            Me.Shapes("myIcon").Visible = msoTrue
            Me.Shapes("myIcon").Top = rngCol1.Cells(1, 1).Top          'TOP
            Me.Shapes("myIcon").Left = rngCol1.Cells(1, 2).Left        'LEFT
        Else
            Me.Shapes("myIcon").Visible = msoFalse
        End If
    End If
    '<-- End Added Block

This assumes that the shape or the icon you inser be renamed myIcon: select the object, type myIcon in the Name box (see image) and confirm using Enter