Cancellare righe da una cella conntenentee certo dato a fine

[Gabri08]

Buongiorno a tutti. Ho un foglio di excel 2010 dove dovrei cancellare tutte le righe successive a partire da quella dove in colonna B la cella contiene testo "99" - su di un altro foglio iinvece tutte righe fino a quella dove la cella B = 99. Non so se mi sono spiegata.. si può fare??

[patel]

Codice: Seleziona tutto

Sub dopo()
LR = Cells(Rows.Count, "B").End(xlUp).Row
For r = LR To 1 Step -1
  If Cells(r, "B") <> "99" Then
    Rows(r).Delete
  Else
    Exit For
  End If
Next
End Sub

Sub prima()
LR = Cells(Rows.Count, "B").End(xlUp).Row
r = 1
While Cells(r, "B") <> "99"
    Rows(r).Delete
Wend
End Sub

[patel]

Se le righe sono molte occorre cambiare strategia, cercare il valore con un FIND e cancellare le righe tutte insieme

Codice: Seleziona tutto

Sub prima1()
LR = Cells(Rows.Count, "B").End(xlUp).Row
riga = Range("B2:B" & LR).Find("99").Row - 1
Rows("1:" & riga).Delete
End Sub

Sub dopo1()
LR = Cells(Rows.Count, "B").End(xlUp).Row
riga = Range("B2:B" & LR).Find("99").Row + 1
Rows(riga & ":" & LR).Delete
End Sub

[Gabri08]

Grazie ma probabilmente non mi sono spiegata. Dovrei cancellare TUTTE le righe fino all'ultima riga scritta del foglio a partire da quella dove la cella B contiene "99" (le celle della colonna B delle righe successive potrebbero anche non contenere "99"). In altro foglio dovrei cancellare tutte le righe fino a quella dove la cella B contiene "99".

[patel]

ti eri spiegata bene, ma forse è meglio che ti alleghi un link al tuo file

[Gabri08]

Scusa, sono nuova del forum, abbi un po di pazienza, come devo fare per allegare link? grazie

[patel]

basta leggere le istruzioni all'inizio del forum
viewtopic.php?f=26&t=103893

[Anthony47]

Ma le macro di patel le hai provate?
La Sub prima1 cancella i dati da riga 2 alla riga che contiene 99; la Sub dopo1 cancella dalla riga col 99 in avanti...

Ciao

[Gabri08]

Ciao, si Anthony, ho provato le macro di patel e funzionano benissimo!! Grazie patel.