Makro

>Worksheets("ark2").Cells(1, 3).Value = "" er den linie, som skulle slette knappen :)

Hvis du ikke har andre knapper I arket kan du bruge:

For Each s In ActiveSheet.Shapes
        s.Delete
Next

Jeg har mange knapper.... :(

Prøv med:

ActiveSheet.Shapes("Button 4").Delete

Husk at rette nummeret

Hmm Jeg prøver med lidt mere tekst:

Sub ListData()
'
LastRow = Worksheets("ark1").Cells(60000, 3).End(xlUp).Row
y = 3
ActiveSheet.Buttons.Delete
Range("A3:A250").EntireRow.ClearContents

For x = 1 To LastRow
    If Worksheets("ark1").Cells(x, 5) = Range("a2") Then
        Cells(y, 1) = Worksheets("ark1").Cells(x, 5)
        Cells(y, 2) = Worksheets("ark1").Cells(x, 6)
        Cells(y, 3) = Worksheets("ark1").Cells(x, 7)
        Cells(y, 5).Select
        ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets("Ark1").Name & "!A" & x
        Set MyCell = Cells(y, 6)
        With MyCell
            Set btn = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height)
        End With
        With btn
            .Caption = "Slet"
            .Name = "Button" & x
            .OnAction = "DeleteData"
            ActiveSheet.Shapes(Button7).Delete
        End With
        y = y + 1
    End If
Next
End Sub
Private Sub DeleteData()
    myRow = Mid(Application.Caller, 7)
    LastColumn = 15 ' rettes til sidste kolonne A=1 B=2 osv.
    For myColumn = 1 To LastColumn
        Worksheets("ark1").Cells(myRow, myColumn).Value = ""

    Next

End Sub
--------------------------------------------
Når jeg klikker på knappen så skal den udføre deletedate og slette knappen....