http://www.filedropper.com/esempio6
Il file allegato ha un solo modulo con la seguente macro:
- Codice: Seleziona tutto
Sub Elimina_Se_Non_è_GV()
Dim I As Integer
Dim Righe As String
Sheets("Foglio1").Select
Righe = ActiveSheet.Range("G14").CurrentRegion.Rows.Count
For I = Righe To 14 Step -1
Cells(I, 7).Select
If Selection.Value <> "GV" Or IsNumeric(Selection.Value) Then Selection.EntireRow.Delete
Next I
End Sub
Questa controlla la colonna 7 partendo dalla riga 14 ed elimina tutte le righe in cui non è presente GV. Il problema è che l'istruzione
- Codice: Seleziona tutto
Righe = ActiveSheet.Range("G14").CurrentRegion.Rows.Count
Saluti a tutti !