Risultati da 1 a 8 di 8

Discussione: Help su Macro



  1. #1
    L'avatar di siov2000
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    milano
    Età
    55
    Messaggi
    3
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    0

    Help su Macro

    Ciao. Ho trovato in rete alcuni tutorial che spiegano come fare a risolvere il mio problema, ma non riesco a venirne fuori.

    Ho un collegamento DDE e voglio memorizzare una colonna ad ogni cambio di cella (nel mio caso mi basterebbe la H2)

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Help su Macro

    Ciao,
    prova ad allegare un file excel come esempio.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di siov2000
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    milano
    Età
    55
    Messaggi
    3
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    0

    Re: Help su Macro

    Eccolo. E grazie per la pronta risposta.
    File Allegati File Allegati

  4. #4

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Help su Macro

    Se ho capito bene, vuoi che ad ogni modifica del Range indicato ti salvi i dati.
    Ti basterebbe solo H2 ma io l'ho impostato che te li salva tutti nel secondo foglio, se poi vuoi solo H2 basta delimitare l'evento a quella cella.

    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range)
        Dim sh1 As Worksheet, sh2 As Worksheet
            Set sh1 = Worksheets("Foglio1")
            Set sh2 = Worksheets("Foglio2")
            uRiga = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1
                Application.EnableEvents = False
                    If Not Intersect(Target, sh1.Range("A2:O2")) Is Nothing Then
                        sh1.Range("A2:O2").Copy
                        sh2.Range("A" & uRiga).PasteSpecial Paste:=xlValues
                    End If
                Application.EnableEvents = True
             Application.CutCopyMode = False
    End Sub
    File Allegati File Allegati
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  5. #5
    L'avatar di siov2000
    Clicca e Apri
    Data Registrazione
    Aug 2016
    Località
    milano
    Età
    55
    Messaggi
    3
    Versione Office
    2016
    Likes ricevuti
    0
    Likes dati
    0

    Re: Help su Macro

    Prima di tutti grazie. Ma non mi da nulla.
    Ho scaricato il file, collegato il DDE. Vado su Sviluppo > Registra macro. insrico ctrl q come taso di scelta rapida e dde come descrizione. Clicco su Macro poi esegui ma non mi visualizza nulla sul foglio 2. Ovviamente sbaglio ma non so cosa.

  6. #6

    L'avatar di scossa
    Clicca e Apri
    Data Registrazione
    Jul 2015
    Località
    Verona Provincia
    Età
    57
    Messaggi
    1017
    Versione Office
    .
    Likes ricevuti
    366
    Likes dati
    0

    Re: Help su Macro

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Se ho capito bene, vuoi che ad ogni modifica del Range indicato ti salvi i dati.Ti basterebbe solo H2 ma io l'ho impostato che te li salva tutti nel secondo foglio, se poi vuoi solo H2 basta delimitare l'evento a quella cella.
    Codice: 
    Private Sub Worksheet_Change(ByVal Target As Range).....
    Cia o Ges,i dati ricevuti via DDE non scatenino l'evento Change, come non lo scatenano le variazioni del risultato di una formula contenuta in una cella. Suggerisco la lettura dell'help relativi ai metodi SetLinkOnData e LinkSources.
    Bye!
    scossa
    scossa's web site
    ___
    Se tu hai una mela, e io ho una mela, e ce le scambiamo, allora tu ed io abbiamo sempre una mela per uno. Ma se tu hai un'idea, ed io ho un'idea, e ce le scambiamo, allora abbiamo entrambi due idee. (George Bernard Shaw)

  7. #7
    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: Help su Macro

    Ultimamente sto usando Calculate

    Codice: 
    Private Sub Worksheet_Calculate()
    If [H2] <> [H3] Then
    MsgBox "stò funzionando"
    '......H3 deve essere una cella qualsiasi (copia di H2)
    [H3] = [H2]
        Dim sh1 As Worksheet, sh2 As Worksheet
            Set sh1 = Worksheets("Foglio1")
            Set sh2 = Worksheets("Foglio2")
            uRiga = sh2.Range("A" & Rows.Count).End(xlUp).Row + 1
                'Application.EnableEvents = False
                    If Not Intersect(Target, sh1.Range("A2:O2")) Is Nothing Then
                        sh1.Range("A2:O2").Copy
                        sh2.Range("A" & uRiga).PasteSpecial Paste:=xlValues
                    End If
                'Application.EnableEvents = True
             Application.CutCopyMode = False
    End If
    End Sub

  8. #8

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7132
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2063
    Likes dati
    1299

    Re: Help su Macro

    Citazione Originariamente Scritto da scossa Visualizza Messaggio
    Ciao Ges,i dati ricevuti via DDE non scatenino l'evento Change, come non lo scatenano le variazioni del risultato di una formula contenuta in una cella. Suggerisco la lettura dell'help relativi ai metodi SetLinkOnData e LinkSources.
    Grazie Scossa, questa cosa non la sapevo.
    Sempre utili i tuoi interventi, grazie.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

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
  •