Ciao a tutti.
La macro di mariventi funziona quasi bene.
Se seleziono tutta la riga va bene, se seleziono una cella della riga da eliminare dà errore.
Ho inserito On error resume next per non visualizzare il debug.
Option Explicit
Sub cancellarighe() ' mariventi su selezione di una o più righe
Dim myaddress As String, a1 As String, a2 As String, x As Integer
Dim Nriga As Long
Nriga = ActiveCell.Row
On Error Resume Next
myaddress = Selection.Address(False, False)
x = InStr(myaddress, ":")
a2 = Mid(myaddress, x + 1)
a1 = Left(myaddress, Len(myaddress) - Len(a2) - 1)
myaddress = "B" & a1 & ":" & "H" & a2
Range(myaddress).ClearContents
End Sub
si può correggere o al limite visualizzare un avviso che dica "devi selezionare una riga e non una cella?"
Grazie,
xam
-------------------------------
excel 2003 ufficio / 2007 casa