Moderatori: Anthony47, Flash30005
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
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
Torna a Applicazioni Office Windows
Incolla prendendo riferimento da cella esterna Autore: scanacc |
Forum: Applicazioni Office Windows Risposte: 4 |
Inserimento valore di una cella in testo di altra cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 7 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Maiuscola prima lettera cella formato ggg Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 41 ospiti