You are here:---Rispondi a: [RISOLTO] elimina righe
Rispondi a: [RISOLTO] elimina righe 2019-01-27T08:50:33+02:00

Home Forum Domande su Excel VBA e MACRO [RISOLTO] elimina righe Rispondi a: [RISOLTO] elimina righe

BySalvBySalv
Amministratore del forum
    Post totali: 439

    Ciao Giorgioantonio, eccoti la macro per eliminare la riga incriminata

    Sub DelRiga()
    Dim r, x
    
    r = Cells(Rows.Count, 2).End(xlUp).Row
    For x = r To 3 Step -1
        If Cells(x, 3) = 1 Then Range("A" & x & ":AR" & x).Delete Shift:=xlUp
    Next x
    End Sub

    Ciao By Sal :bye:

    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

    Chiudi