macro excel per intervallo di righe

[frigobar]

ehi ce l'ho fatta forse!!!
E' così?

Codice: Seleziona tutto

Sub EliminaRighe2()
    UR = Range("D" & Rows.Count).End(xlUp).Row
    For RR1 = UR To 2 Step -1
        If UCase(Range("D" & RR1).Value) = "# MESSAGE: CROSS.JPG" Then
            RigaU = RR1 - 1
            For RR2 = RR1 - 1 To 1 Step -1
                If Mid(UCase(Range("D" & RR2).Value), 1, 18) = "# MESSAGE: SUBJECT" Then
                    Rows(RR2 + 1 & ":" & RigaU).Delete
                    RR1 = RR2
                    GoTo saltaRR1
                End If
            Next RR2
        End If
saltaRR1:
    Next RR1
    End Sub

[Flash30005]

Non si riesce a scaricare il file
comunque
se è al contrario ti sistemo qui, in tempo reale, la macro
provala a fai sapere

Codice: Seleziona tutto

Sub EliminaRighe2()
UR = Range("D" & Rows.Count).End(xlUp).Row
For RR1 = UR To 2 Step -1
    If UCase(Range("D" & RR2).Value) = "# MESSAGE: CROSS.JPG" Then
        RigaU = RR1 - 1
        For RR2 = RR1 - 1 To 1 Step -1
            If Mid(UCase(Range("D" & RR1).Value), 1, 18) = "# MESSAGE: SUBJECT" Then
                Rows(RR2 + 1 & ":" & RigaU).Delete
                RR1 = RR2
                GoTo saltaRR1
            End If
        Next RR2
    End If
saltaRR1:
Next RR1
End Sub


Ciao

[Flash30005]

Esatto (stavo fermo nell'altra pagina)
ho postato la macro e mi sono trovato su questa pagina del topic, ho visto la tua che sembra uguale

Brava!!!

Ciao

[frigobar]

WoW!!
Ti ringrazio infinitamente per la pazienza e per il preziosissimo aiuto..così è perfetta davvero!!
Grazie Flash!
ciao

[Flash30005]

Come vedi non è difficile
ci vuole logica, impegno e... e risolvi!
In caso contrario, siamo qui

ciao

[pistri]

Scusate l'intrusione ma ho letto questo post ed è anche di mio interesse.

Io devo cancellare le righe si un foglio se in colonna A non sono presenti determinati valori (A,C,S,V,D)
Ho provato il codice postato quasi all'inizio (provandolo con solo 2 campi) ma non funziona correttamente.
Inoltre, se possibile, mi dovrebbe escludere dal controllo la prima riga.
Sbaglio io qualcosa?

Codice: Seleziona tutto

Sub EliminaRighe()

UR = Range("A" & Rows.Count).End(xlUp).Row
For RR1 = UR To 2 Step -1
    If UCase(Range("A" & RR1).Value) <> "A" Then
        RigaU = RR1 - 1
        For RR2 = RR1 - 1 To 1 Step -1
            If UCase(Range("A" & RR2).Value) <> "C" Then
                Rows(RR2 + 1 & ":" & RigaU).Delete
                RR1 = RR2
                GoTo saltaRR1
            End If
        Next RR2
    End If
saltaRR1:
Next RR1
End Sub


[Flash30005]

La tua macro "adattata" è errata
ma queste lettere sono singole o contenute in una stringa?

ciao

[ricky53]

Ciao,
prova questo codice con l'assunto che vanno cancellate le righe la cui cella i-esima in colonna "A" NON contenga "A", "C", "S", ...

Codice: Seleziona tutto

Sub Cancella_Righe_Condizionato()
    Dim I As Long, UR As Long
    Sheets("Nome del tuo foglio").Select ' <<====== Qui devi scrivere il nome del foglio dal quale vuoi cancellare le righe
    UR = Range("A" & Rows.Count).End(xlUp).Row
    For I = UR To 2 Step -1
' Cancella le righe se non contengono i valori "A,C,S,V,D"
        If UCase(Cells(I, 1)) <> "A" And UCase(Cells(I, 1)) <> "C" And _
                UCase(Cells(I, 1)) <> "S" And UCase(Cells(I, 1)) <> "V" And _
                    UCase(Cells(I, 1)) <> "D" Then
            Rows(I).Delete
        End If
    Next I
End Sub

[pistri]

Le lettere sono singole, derivanti da una formula.
Provo subito la macro.
Che servizio!!!

[pistri]

PERFETTTTAAAA!!!!!

Non ti dico da quanto tempo mi stavo sbattendo per trovare la soluzione!!!!!
Grazie infinite.

Altra domandina facile: Posso richiamare una marcro all'interno di una macro??

Buonanotte!

[ricky53]

Ciao,
si, in linea generale non dovresti aver problemi.

In caso invia il tuo codice e ne usciremo fuori.