You are here:--[RISOLTO] elimina righe
[RISOLTO] elimina righe2019-01-28T07:34:01+02:00

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

Tag: 

  • Autore
    Articoli
  • Avatargiorgioantonio
    Partecipante
      Post totali: 354

      https://www.dropbox.com/s/hcyfqo67uynncdf/Elimina%20reghe.xlsb?dl=0

      salve,

      cortesemente se possibile una macro,
      eliminare righe tranne quando in colonna C trova 1
      Se per velocizzare la macro
      invece di eliminare la riga intera si
      può eliminare solo la riga da colonna A a colonna AR

      Grazie dell’aiuto

    • BySalvBySalv
      Amministratore del forum
        Post totali: 518

        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:

      • Avatargiorgioantonio
        Partecipante
          Post totali: 354

          Salve Bay Sal,

          Perfetto,
          la macro funziona come voglio.

          Grazie e buona giornata.

        Devi essere loggato per rispondere a questa discussione.

        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