ATTIVADISATTIVA VBA



  • ATTIVA/DISATTIVA VBA
    di Ermes.Maz (utente non iscritto) data: 05/01/2015 08:13:05

    AMICI.... creo nuova discussione in quanto alla precedente avevo messo "RISOLTO"

    Vi pongo un'ultima domanda a riguardo di questa formuletta....

    Esiste la possibilità di attivarla/disattivarla tramite due pulsanti sul foglio attivo?

    Uno appunto sarà "ELIMINA CODICI R & S" e l'altro "RIPRISTINA CODICI R & S"???

    Creare i pulsanti e collegamento riesco.... è creare le formule che una attiva e una disattiva che non riesco....

    Attualmente... cosi come è scritta è sempre attiva

    100000000 Grazie
     
    Function RegExpReplace(selectString As String) As String
    Dim objRegExp As Object
        Set objRegExp = CreateObject("vbscript.regexp")
        
        With objRegExp
            .Global = True
            .IgnoreCase = True
            
                If Len(selectString) = 1 Then
                    .Pattern = ""
                Else
                    .Pattern = "(S|F)$"
                End If
        
        RegExpReplace = .Replace(selectString, "")
        
        End With
    End Function
    



  • di lepat (utente non iscritto) data: 05/01/2015 08:28:29

    il risolto lo puoi togliere facilmente levando la spunta col prossimo messaggio, così puoi continuare con la discussione precedente, qual'è il file su cui fare le prove ?



  • di Ermes.Maz (utente non iscritto) data: 05/01/2015 09:44:44

    SCUSATE E GRAZIE DELL'INFORMAZIONE LEPAT

    Chiudo questa e riapro la vecchia....