Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

macro excel per intervallo di righe

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Re: macro excel per intervallo di righe

Postdi frigobar » 02/12/12 01:40

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
frigobar
Utente Junior
 
Post: 16
Iscritto il: 28/11/12 23:30

Sponsor
 

Re: macro excel per intervallo di righe

Postdi Flash30005 » 02/12/12 02:27

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro excel per intervallo di righe

Postdi Flash30005 » 02/12/12 02:28

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
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro excel per intervallo di righe

Postdi frigobar » 02/12/12 02:33

WoW!!
Ti ringrazio infinitamente per la pazienza e per il preziosissimo aiuto..così è perfetta davvero!!
Grazie Flash!
ciao :)
frigobar
Utente Junior
 
Post: 16
Iscritto il: 28/11/12 23:30

Re: macro excel per intervallo di righe

Postdi Flash30005 » 02/12/12 02:43

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

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro excel per intervallo di righe

Postdi pistri » 09/02/13 23:29

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
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: macro excel per intervallo di righe

Postdi Flash30005 » 09/02/13 23:50

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

ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: macro excel per intervallo di righe

Postdi ricky53 » 10/02/13 00:02

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
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Re: macro excel per intervallo di righe

Postdi pistri » 10/02/13 00:05

Le lettere sono singole, derivanti da una formula.
Provo subito la macro.
Che servizio!!!
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: macro excel per intervallo di righe

Postdi pistri » 10/02/13 00:11

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!
pistri
Utente Junior
 
Post: 34
Iscritto il: 11/10/11 21:47

Re: macro excel per intervallo di righe

Postdi ricky53 » 10/02/13 00:23

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

In caso invia il tuo codice e ne usciremo fuori.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4223
Iscritto il: 11/04/09 19:29
Località: Italia

Precedente

Torna a Applicazioni Office Windows


Topic correlati a "macro excel per intervallo di righe":


Chi c’è in linea

Visitano il forum: alfrimpa, patel e 15 ospiti