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
colora parte di frase/ Parola in stessa cella Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 7 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
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 |
Visitano il forum: marcoc e 70 ospiti