Salve a tutti, dovrei risolvere un problema in un tabella eliminare la riga selezionata. ho una tabella, con nome tabella1 è possibile quando seleziono una cella nella colonna A allinterno della tabella1 tramite un pulsante eliminare la riga nella tabella. Su internet ho trovato degli spunti solo, che si agisce su doppio clik.Allego il file e il codice che dovrei modificare e far funzionate tramite un pulsante e richiamare una Sub cancella_Riga. sperto che qualcuno mi possa aiutare.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'OK Funziona controllo se si clikka sulla colonna AA
Dim x As Integer
x = ActiveCell.Row
Dim CellaAttiva As Range
Set CellaAttiva = ActiveCell
If Intersect(CellaAttiva, Range("A:A")) Is Nothing Then Exit Sub
If Intersect(Target, Range("Tabella1")) Is Nothing Then Exit Sub
If MsgBox(" Operazione Irreversibile" & vbCrLf & vbCrLf & "Stai Per Eliminare La Riga" + Str(x) & vbCrLf & " Vuoi continuare ?", vbCritical + vbYesNo, " ATTENZIONE ELIMINAZIONE RIGHA") = vbYes Then
Sheets("Foglio1").Unprotect Password:="Pippo"
ActiveCell.Delete
Sheets("Foglio1").Protect Password:="Pippo"
End If
'Range("A4").Select
End Sub