Allora prova con questa macro:
- Codice: Seleziona tutto
Sub Cercaz()
Dim sPos As Range
Dim mMatch, lFor As variant
'
Set sPos = Sheets("Foglio4").Range("B3") '<<< Foglio e posizione di partenza dove guardare
lFor = "#Zc_Arciz" '<<< Valore da cercare
'
mMatch = Application.Match(lFor, sPos.Resize(10000, 1), False)
If IsError(mMatch) Then
MsgBox ("Stringa non trovata - " & lFor)
Else
If mMatch > 1 Then
sPos.Resize(mMatch - 1, 1).EntireRow.Delete
End If
MsgBox ("Eliminate " & mMatch - 1 & " righe")
End If
End Sub
Copia il codice in un Modulo standard del progetto vba del tuo file.
Le righe marcate <<< in testa al codice vanno personalizzate come da commento, prima di mandare in esecuzione la macro.
Partendo dalla riga indicata in sPos= la macro cercherà in verticale la cella che contiene quanto indicato in lFor= e verranno eliminate le righe indesiderate. Un msgbox informerà sull'esito.
La natura del dato inserito in lFor= deve essere la stessa del valore da cercare (un numero, una stringa, una data,...); potrebbero emergere problemi a cercare numeri decimali con troppi decimali.
Per informazioni su come inserire la macro nel tuo file guarda qui:
viewtopic.php?f=26&t=103893&p=647675#p647675Per i vari metodi per eseguire una macro:
viewtopic.php?f=26&t=103893&p=647678#p647678Fai sapere...