CANCELLA RIGHE CON CELLE VUOTE-CACCIA ALL'ERRORE

[luca62]

Sto letteralmente sbattendo la testa su una macro alla fine della quale voglio far si di cancellare
tutte le righe (eccetto la 1^) tranne quelle in cui Ni sia o una cella vuota o una cella = 00/01/00

allego la macro dove sbaglio?
e cosa cambia se invece voglio cancellare tutte le righe in cui nella colonna M sia presente una
data più recente di oggi?

[code][/code]
Sub DAARRIVARE()
Set Ws1 = Sheets("ORDINI")
Set Ws2 = Sheets("DA ARRIVARE")

UC = Ws1.Cells(2, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
Application.Calculation = xlManual

Ws2.Cells.Clear
For CC = 1 To UC - 12 Step 14
Ws1.Range(Ws1.Cells(2, CC), Ws1.Cells(1000, CC + 14)).Copy Destination:=Ws2.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Next CC
Ws1.Range("A1:N1").Copy Destination:=Ws2.Range("a1")

UR2 = Ws2.Range("A" & Rows.Count).End(xlUp).Row
For RR2 = UR2 To 2 Step -1
If Ws2.Range("N" & RR2).Value <> "" Or Ws2.Range("N" & RR2).Value <> "00/01/00" Then Ws2.Rows(RR2).Delete
Next RR2

End Sub

[Anthony47]

Se non sappiamo cosa effettivamente c'e' nella colonna possiamo solo andare a tentoni...
Secondo me quella cella contiene "nulla" oppure 0, e la cella e' formattata "Data"; quindi invece di
If Ws2.Range("N" & RR2).Value <> "" Or Ws2.Range("N" & RR2).Value <> "00/01/00" Then Ws2.Rows(RR2).Delete prova a usare

Codice: Seleziona tutto

If Ws2.Range("N" & RR2).Value <> "" Or Ws2.Range("N" & RR2).Value <> 0 Then Ws2.Rows(RR2).Delete

Per quanto riguarda la cencellazione di righe con in M una data superiore a oggi:

Codice: Seleziona tutto

If Ws2.Range("M" & RR2).Value > Int(Now) Then Ws2.Rows(RR2).Delete

Ciao

[luca62]

Anthony tutto ok ,ma il mio errore era che puntavo sulla cella A che a parte l'intestazione (riga 1)
è zero....quindi non lavorava!!! errore da novellino distratto

[luca62]

Anthony, applicando la tua macro tutto ok, tranne quando voglio cancellare tutte le righe percui
oltre a essere diverso da 0 o diverso dalla cella vuota , voglio anche la possibilità di non
cancellare la riga in cui la colonna mi dia 00/01/1900 .

la tua macro:

If Ws2.Range("N" & RR2).Value <> "" Or Ws2.Range("N" & RR2).Value <> 0 Then Ws2.Rows(RR2).Delete

funziona , ma mi cancella anche le righe dove è presente la data 00/01/1900 (forse dovrei considerarla come testo?)