Ciao,
come posso modificare questa parte di macro:
'----------------------------------------------------------------
'cancella tutto dopo l'ultima riga valida
'Dim WS As Worksheet
'Dim LastCell As Range
'Dim LastCellRowNumber As Long
Set WS = Worksheets("dividi") 'nome foglio
ActiveSheet.Unprotect "123456"
With WS
Set LastCell = .Cells(.Rows.Count, "A").End(xlUp) 'colonna A
LastCellRowNumber = LastCell.Row
Rows(LastCellRowNumber + 1 & ":" & Rows.Count).ClearContents
End With
'---------------------------------------------------------------- che cancelli dall'ultima riga in cui il valore è un numero.
Mi spiego.
Ora la macro cancella tutto dall'ultima riga della colonna A.
La modifica che chiedo è che cancelli dall'ultima riga della colonna A in cui non c'è un numero.
Esempio in A200 c'è 654332 in A201 c'è una parola da A201 cancella tutto.
Spero di essermi spiegato.
patrik
------------------
excel 2003 / 20007