Moderatori: Anthony47, Flash30005
Sub cancella()
righe = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("A1").Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Selection.Value = "ALL" Then Selection.EntireRow.Delete
Next I
End Sub
errore di runtime 13:
Tipo non corrispondente
Messaggio di Anthony47 » 18/01/11 03:03
Vuoi forse dire che hai quell’ errore “su celle che in col A contengono uno stato di errore??
Ciao
Range("A1:A340").Select
Selection.Replace What:="#N/D", Replacement:="ALL", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A1").Select
If IsError(Selection) Then
Selection.EntireRow.Delete
Else
If Selection.Value = "ALL" Then Selection.EntireRow.Delete
End If
Anthony47 ha scritto:Scusa se te lo faccio notare, ma hai impiegato 9 mesi per ...
If Range("D" & RR).Value = [L1] Then
...
Sub Prova()
righe = Range("Z10").CurrentRegion.Rows.Count '< utilizzata alternativamente alla riga sotto
righe = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Range("Z10").Row
For I = righe To 1 Step -1
Cells(I, 1).Select
If Selection.Value = "" Or IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I
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: 5 |
Inserire 2 valori nella stessa cella Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Visitano il forum: Nessuno e 31 ospiti