Risultati da 1 a 4 di 4

Discussione: macro copia-incolla in Ricerca Obiettivo



  1. #1
    L'avatar di fbjaspar
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cosenza
    Età
    43
    Messaggi
    5
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0

    macro copia-incolla in Ricerca Obiettivo

    Buongiorno a tutti
    Ho un problema con Ricerca Obiettivo:
    volendolo "automatizzare" ho pensato di registrare una macro che prelevasse il "Valore" automaticamente da un altra cella ed eseguendo un copia-incolla nella maschera di R.O., delegando l'operazione ad un pulsante generale per l'esecuzione di più R. O. messi in colonna. Il risultato che ho ottenuto col registratore di macro è che una volta che copio i valori da inserire nella maschera di R.O. tali rimangono fissi :256: e non posso far rieseguire un nuovo calcolo al variare di altro parametro.
    Allego un foglio di esempio per chiarire meglio: al valore di f(k)=325 il parametro K1=8.594, la macro per R.O. è impostata nella cella I5 per K*1 che dovrà essere uguale a K1 variando il valore di y/z1 nella cella K5.
    Al variare di f(k) (ad es. 450) variano i parametri K e pertanto i valori di K* devono essere calcolati uguali a questi variando il parametro y/z. La colonna G del foglio l'ho inserita per copiarvi (incolla valore) in adiacenza al calcolo di K (altrimenti il copia-incolla agisce sulla formula e non sul valore ottenuto).
    Questa è la macro che ho registrato:
    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
    Range("F5").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("G5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "8.594"
    Range("I5").Select
    Range("I5").GoalSeek Goal:=8.594, ChangingCell:=Range("K5")
    End Sub

    Grazie a chi mi aiuta a risolvere.

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7106
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2059
    Likes dati
    1296
    Provo a dara una mia interpretazione ... più per mio esercizio che per altro.

    Secondo i valori rimangono fissi perché la macro ha copiato il valore "8.594" anziché il suo riferimento.
    Potrebbe essere sufficiente cambiare così:
    Codice: 
    Sub Macro1()
    '
    ' Macro1 Macro
    '
    
    '
    Range("F5").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("G5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = range("G5").value
    Range("I5").Select
    Range("I5").GoalSeek Goal:=range("G5").value, ChangingCell:=Range("K5")
    End Sub
    In alternativa per esemplificare il codice si potrebbe fare così:
    Codice: 
    Sub Macro1()
       
        Range("G5").Value = Range("f5").Value
                      Application.CutCopyMode = False
                      Range("I5").Select
    Range("I5").GoalSeek Goal:=Range("g5"), ChangingCell:=Range("K5")
    End Sub
    Prendi questo mio intervento con le pinze e aspetta persone più brave di me.

  3. #3
    L'avatar di Baloon_50
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Milano - Italy
    Età
    67
    Messaggi
    3332
    Versione Office
    2013 PC
    Likes ricevuti
    481
    Likes dati
    49
    Citazione Originariamente Scritto da fbjaspar Visualizza Messaggio
    Buongiorno a tutti
    Ho un problema con Ricerca Obiettivo:
    volendolo "automatizzare" ho pensato di registrare una macro che prelevasse il "Valore" automaticamente da un altra cella ed eseguendo un copia-incolla nella maschera di R.O., delegando l'operazione ad un pulsante generale per l'esecuzione di più R. O. messi in colonna. Il risultato che ho ottenuto col registratore di macro è che una volta che copio i valori da inserire nella maschera di R.O. tali rimangono fissi :256: e non posso far rieseguire un nuovo calcolo al variare di altro parametro.
    Allego un foglio di esempio per chiarire meglio: al valore di f(k)=325 il parametro K1=8.594, la macro per R.O. è impostata nella cella I5 per K*1 che dovrà essere uguale a K1 variando il valore di y/z1 nella cella K5.
    Al variare di f(k) (ad es. 450) variano i parametri K e pertanto i valori di K* devono essere calcolati uguali a questi variando il parametro y/z. La colonna G del foglio l'ho inserita per copiarvi (incolla valore) in adiacenza al calcolo di K (altrimenti il copia-incolla agisce sulla formula e non sul valore ottenuto).
    Questa è la macro che ho registrato:
    Sub Macro1()
    '
    ' Macro1 Macro
    '

    '
    Range("F5").Select
    Selection.Copy
    Range("G5").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("G5").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "8.594"
    Range("I5").Select
    Range("I5").GoalSeek Goal:=8.594, ChangingCell:=Range("K5")
    End Sub

    Grazie a chi mi aiuta a risolvere.
    scusa Jasper ma forse sono io un po' rinco e non riesco a capire il tuo ragionamento. Potresti mettere dei commenti sul foglio di esempio per quello che vuoi ottenere?

    grazie

    A volte basta usare parole inutili come “grazie” e “per favore” per rendere la vita più bella.
    (ELKonigsburg)
    Dice il saggio : "se vuoi essere aiutato devi metter l'allegato"
    (Nick Carter - Ten)

  4. #4
    L'avatar di fbjaspar
    Clicca e Apri
    Data Registrazione
    Nov 2015
    Località
    Cosenza
    Età
    43
    Messaggi
    5
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    0
    Grazie Mille GES
    ho verificato la tua correzione edè proprio quello che cercavo :97: GRAZIE!
    Mi scuso per la tardiva risposta... impegni collaterali mi hanno tenuto lontano ..
    Ringrazio anche Baloo_50 per il suo interessamento.
    A presto e buona giornata

Discussioni Simili

  1. copia incolla colonne con macro
    Di bifuz nel forum Domande su Excel VBA e MACRO
    Risposte: 10
    Ultimo Messaggio: 19/01/17, 01:24
  2. Macro copia/incolla valori di una lista
    Di Lebron5 nel forum Domande su Excel VBA e MACRO
    Risposte: 4
    Ultimo Messaggio: 18/01/17, 00:39
  3. Macro cerca righe con data e ora e copia e incolla
    Di streber nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 17/01/17, 14:50
  4. Risposte: 0
    Ultimo Messaggio: 24/08/16, 20:49
  5. Macro copia cerca incolla
    Di binfrancos83 nel forum Domande su Excel VBA e MACRO
    Risposte: 11
    Ultimo Messaggio: 08/03/16, 19:54

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
  •