LoginRegistrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #29767 Risposta

    slom
    Partecipante

      Salve, volevo sapere se era possibile automatizzare con una macro la funzione ricerca obiettivo che utilizzo per calcolare il valore della cella B2 impostando il valore della cella D5 al risultato della formula indicata nella cella D7.

      Grazie

      Allegati:
      You must be logged in to view attached files.
      #29770 Risposta
      Luca73
      Luca73
      Partecipante
        32 pts

        Ciao secondo me se vuoi implementare un sistema di ricerca obiettivo secondo me diventa complicato e sicuramente non ottimizzato. Io piuttosto preparerei una macro che faccia partire il ricerca obiettivo

        Sub Pippo
        Range("D7").GoalSeek Goal:=Range("D7").value, ChangingCell:=Range("B2")
        End Sub

        poi lo associorei ad un pulsante o al cambiamento della cella D7

        Ciao

        Luca

        #29776 Risposta

        slom
        Partecipante

          Ciao Luca, ho provato ma non ottengo alcun risultato magari sbaglio qualcosa, ad ogni modo non è quello di cui ho bisogno.

          Grazie comunque

          #29792 Risposta
          patel
          patel
          Moderatore
            42 pts

            Allora non è chiaro di cosa hai bisogno

            #29837 Risposta

            slom
            Partecipante

              Salve, avrei bisogno di una macro che attivi la funzione ricerca obiettivo per calcolare il valore della cella B2 impostando la cella D5 al valore corrispondente al risultato della moltiplicazione tra la cella C2 e il coefficiente 0,374. 

              Sperando di essermi spiegato meglio ringrazio anticipatamente.

              #29840 Risposta

              Friedrich
              Partecipante

                Ciao slom,

                prova così:

                Sub test()
                
                    Dim Totale
                    
                    Totale = Range("C2").Value * 0.374
                    
                    Range("D5").GoalSeek Goal:=Totale, ChangingCell:=Range("B2")
                    
                End Sub
                #29845 Risposta

                slom
                Partecipante

                  Buongiorno Friedrich, obiettivo centrato.

                  Grazie mille.

                LoginRegistrati
                Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
                Rispondi a: Macro ricerca obiettivo
                Gli allegati sono permessi solo ad utenti REGISTRATI
                Le tue informazioni:



                vecchio frac - 2750 risposte

                albatros54
                albatros54 - 1052 risposte

                patel
                patel - 1045 risposte

                Marius44
                Marius44 - 943 risposte

                Luca73
                Luca73 - 757 risposte