Sub NASCONDIRIGHE()
Application.ScreenUpdating = False
MsgBox "Copro le righe fra le 700 che hanno 0 su prima colonna"
'
'
'
'
' IMpostoCalcManuale Macro
' Macro registrata il 2009-11-18 da
'
'
Range("A1").Select
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
'
'
'
tot = 0
For r = 700 To 1 Step -1
If Cells(r, 1).Value = "0" Then
'
'
'Cells(r, 3).EntireRow.Hidden = True
'=================== x Massimo T. prova a metterci:
Cells(r, 3).EntireRow.Delete
'===================
'
tot = tot + 1
End If
Next
MsgBox "NASCOSTE N." & tot & " righe"
Set x = Range(Cells(1, 1), Cells(1, 1).End(xlDown))
restano = x.Rows.Count
MsgBox "di 500 Rimangono N. " & restano & " righe scoperte che non hanno su prima colonna lo ZERO"
'
'
'
'
' ImpostoCalcoloAutomatico Macro
' Macro registrata il 2009-11-18 da
'
'
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
Range("A1").Select
' End Sub
'
' la macro ti legge tutte le celle a partire dalla riga 1000 e scalando verso la prima ti NASCONDE le righe dove la cella è vuota, nella colonna 3 ( la C ), poi ti avvisa con due messaggi: sia le righe tolte, sia le righe rimaste che quindi contengono valori.
' Ti dovrebbe andar bene, fami sapere, ciao ennius
' http://www.ennius.altervista.org/domande/dom51.htm
End Sub
Sub SCOPRIRIGHE()
Cells.Select
Range("A1").Activate
Selection.EntireRow.Hidden = False
End Sub
