
Option Explicit
Option Compare Text
Sub EliminDato()
Dim ur As Long
Dim rng As Range
Dim cel As Range
ur = Cells(Rows.Count, "p").End(xlUp).Row
Set rng = Range("P2:P" & ur)
For Each cel In rng
If cel.Offset(0, -8).Value = "luigi" Then
cel.ClearContents
End If
Next cel
End Sub
|
