Macro elimina numeri



  • Macro elimina numeri
    di Paolo (utente non iscritto) data: 23/09/2013 11:03:09

    Buongiorno. Ho trovato questo codice in una precedente discussione ma non riesco ad adattarlo bene, dove sbaglio? Praticamente ho 2 intervalli di celle che sono D5:E300 e M5:N300, devo eliminare tutti i numeri compresi da 0 e 20 (lo zero è compreso). Perché non funziona? Grazie
     
    Sub Elimina()
      Dim n As Range
      For Each n In [D5:E300;"=>0<21"]
        [D5:E300].Replace n, "", xlWhole
      Next
    End Sub



  • di Vecchio Frac data: 23/09/2013 11:12:58

    Complimenti per la fantasia, mai visto un utilizzo simile delle parentesi quadre ^_^
    Purtroppo VBA non è Python o Ruby e bisogna adattarsi alla sintassi consentita...
    Per restare all'esempio di codice che hai postato tu la correzione è la seguente.
     
    Sub Elimina()
     Dim n As Range
        For Each n In [D5:E300,M5:N300]
             if n >= 0 and n <= 20 then n = ""
        Next
    End Sub






  • di Paolo (utente non iscritto) data: 23/09/2013 11:26:58

    Ok, grazie. Io il vba non lo mastico proprio, quindi cerco di adattare quello che trovo