Risultati da 1 a 4 di 4

Discussione: modificare le formule in una selezione



  1. #1
    L'avatar di Giandox
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    roma
    Messaggi
    3
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    1

    modificare le formule in una selezione

    Buona sera a tutti.
    Ho questa necessità: vorrei poter modificare (con una macro?) tutte le formule in una selezione.
    le mie celle in partenza contengono una formula: B5-C5 io vorrei cancellare tutto quello che sta dopo il meno quindi il risultato dovrebbe essere B5.
    Visto che devo farlo per molte celle in molti file diversi ho pensato ad una macro. ho fatto una tentativo ma sono ancora lontano:

    Codice: 
    Sub cancDopoMeno()
    Dim Cell As Object
    Set RangeDaUsare = Selection
    For Each Cell In RangeDaUsare
    Cell.Activate
    ActiveCell.FormulaR1C1 = "=RC[-5]" 'non so come dirgli di cancellare quello che sta dopo il meno
    Next
    
    End Sub
    potete aiutarmi?


    Grazie
    Ultima modifica fatta da:cromagno; 06/07/16 alle 16:28 Motivo: Inserito codice tra i tag CODE...

  2. #2

    L'avatar di cromagno
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Sardegna
    Età
    37
    Messaggi
    4016
    Versione Office
    2013
    Likes ricevuti
    1225
    Likes dati
    923

    Re: modificare le formule in una selezione

    Ciao,
    allega un file d'esempio.

    P.S.
    I codici vanno messi tra gli appositi tag CODE (questa volta li ho inseriti io).
    Per sapere come fare, leggi qui:
    http://www.forumexcel.it/forum/2-ann...tra-i-tag-code

    "Sono le persone che nessuno immagina che possano fare certe cose, quelle che fanno cose che nessuno può immaginare."

  3. #3
    L'avatar di Raffaele_53
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Binasco
    Età
    64
    Messaggi
    506
    Versione Office
    2007
    Likes ricevuti
    85
    Likes dati
    7

    Re: modificare le formule in una selezione

    Un qualcosa del genere Ti aiuta?
    Codice: 
    Option Explicit
    Sub cancDopoMeno()
    Dim Vform As String, Nform As String, RangeDaUsare As Range ', Cell As Range
    Dim Cell As Object
    Set RangeDaUsare = Selection
    For Each Cell In RangeDaUsare
    Cell.Activate
    Vform = Cell.Formula
        If InStr(Vform, "-") > 0 Then
            Nform = Mid(Vform, 1, InStr(Vform, "-") - 1)
            Cell.FormulaLocal = Nform
        End If
    Next
    End Sub

  4. I seguenti utenti hanno dato un "Like"


  5. #4
    L'avatar di Giandox
    Clicca e Apri
    Data Registrazione
    Jul 2016
    Località
    roma
    Messaggi
    3
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    1

    Re: modificare le formule in una selezione

    Raffaele_53 Grazie mille per la pronta risposta.
    Sembra funzionare. Ora testo bene e ti faccio sapere.

    ----------Post unito in automatico----------

    Confermo. funziona perfettamente.
    grazie mille Raffaele_53

Discussioni Simili

  1. Invertire la selezione
    Di Tonyvox nel forum Domande su Excel in generale
    Risposte: 14
    Ultimo Messaggio: 15/03/17, 21:57
  2. [Risolto] Problema formule matriciali: risultati diversi per formule uguali
    Di matrix nel forum Domande su Excel in generale
    Risposte: 3
    Ultimo Messaggio: 21/11/16, 00:28
  3. Stampa selezione
    Di Ghibly69 nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 03/07/16, 20:08
  4. Modificare più formule
    Di filipp0 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 20/12/15, 11:01
  5. Modificare dati in una cella con formule.
    Di GioGio nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 26/06/15, 21:36

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •