You are here:Home-Domande su Excel VBA e MACRO-Aggiungere un comando uguale nello stesso foglio
Aggiungere un comando uguale nello stesso foglio2020-02-12T11:13:38+01:00

Home Forum Domande su Excel VBA e MACRO Aggiungere un comando uguale nello stesso foglio

Taggato: 

Visualizzazione 8 filoni di risposte
  • Autore
    Post
    • Avatarprinx
      Partecipante
        Post totali: 14

        Buongiorno e grazie a tutti di esserci per i Vs. preziosissimi consigli

        vi chiedo se è possibile aggiungere lo stesso comando, che posto sotto, sullo stesso foglio ma per le cella B che deve copiare in D.

        Private Sub Worksheet_Change(ByVal Target As Range)
        CheckArea = “I2:I5000”
        If Application.Intersect(Target, Range(CheckArea)) Is Nothing Then Exit Sub
        Application.EnableEvents = False
        Target.Offset(0, 2).Value = Target.Value     ‘Offset(0,2) per puntare dalla I alla K
        Application.EnableEvents = True
        End Sub

         

      • BySalvBySalv
        Amministratore del forum
          Post totali: 692

          Ciao questa la Modifica

          Private Sub Worksheet_Change(ByVal Target As Range)
          If Application.Intersect(Target, [i2:i5000]) Is Nothing Then Exit Sub
          Application.EnableEvents = False
          Target.Offset(0, -7).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
          Application.EnableEvents = True
          End Sub

          questa riporta il valore di “I” in “B”

          scusa ho letto meglio

          Private Sub Worksheet_Change(ByVal Target As Range)
          If not Intersect(Target, [i2:i5000]) Is Nothing Then 
          Application.EnableEvents = False
          Target.Offset(0, 2).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
          Application.EnableEvents = True
          endif
          If not Intersect(Target, [B2:B5000]) Is Nothing Then 
          Application.EnableEvents = False
          Target.Offset(0, 2).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
          Application.EnableEvents = True
          endif
          End Sub

          bye bye (8-D

          Ciao By Sal (8-)
          se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

        • Avatarprinx
          Partecipante
            Post totali: 14

            Grazie per la risposta

            ma il mio problema è che oltre alla formula indicata che và benissimo

            vorrei che la stessa formula sia applicata anche alla cella B (dove inserisco il dato) e si inserisce automaticamente anche alla cella D (lo stesso dato)

             

          • BySalvBySalv
            Amministratore del forum
              Post totali: 692

              Ciao i secondo codice fa quello che dici, vale sia per la colonna “I->K” che la colonna “B->D”

              non avevo taggato il secondo codice

              Ciao (8-D

              Ciao By Sal (8-)
              se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

            • Avatarprinx
              Partecipante
                Post totali: 14

                Buongiorno e scusami il ritardo di risposta ma sono riuscito solo ora a provare

                quanto da te suggerito e funziona alla perfezione

                grazie per l’ottimo contributo

                e grazie di esserci

              • BySalvBySalv
                Amministratore del forum
                  Post totali: 692

                  Ciao, visto che lo spostamento di cella è identico potresti anche usare questo codice

                  Private Sub Worksheet_Change(ByVal Target As Range)
                  If Application.Intersect(Target, [i2:i5000, B2:B5000]) Is Nothing Then Exit Sub
                  Application.EnableEvents = False
                  Target.Offset(0, -7).Value = Target.Value     'Offset(0,2) per puntare dalla I alla K
                  Application.EnableEvents = True
                  End Sub

                  Ciao (8-D

                  Ciao By Sal (8-)
                  se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                • Avatarprinx
                  Partecipante
                    Post totali: 14

                    Scusami BySalv

                    ho bisogno ancora del tuo prezioso aiuto

                    <br />

                    “>http://<br />

                    ti allego il link dove vedere la scheda che stò rrealizzando

                    il problema è con la formattazione condizionale sul primo rigo delle 40 schede create come inserisco nome e data rimane sempre evidenziato in rosso mentre dovrebbe evidenziarsi solo quando creo un doppione. come mai dove ho commesso l’errore?

                    ti ringrazio anticipatamente per il tempo prezioso che ti faccio perdere ed in attesa

                    saluti

                  • BySalvBySalv
                    Amministratore del forum
                      Post totali: 692

                      Ciao Apri un altro post per la Formattazione Condizionale. però non ho capito doppione di cosa?.

                      Ricorda che le celle unite danno problemi.

                      fai un esempio pratico anche manuale.

                      Ciao By Sal (8-D

                      Ciao By Sal (8-)
                      se ti piace la soluzione aiuta a sostenere il Forum con una DONAZIONE a piacere, Grazie

                    • Avatarprinx
                      Partecipante
                        Post totali: 14

                        ok grazie

                        trasferisco la questione sull’altro forum

                        il doppione intendevo inserire sul primo rigo nome cognome e data

                        aaa 13.02.20

                        e sul secondo rigo il doppione

                        aaa 13.02.20

                        in questo caso per evitare di inserire per errore lo stesso nominativo due volte si evidenzia in rosso

                        grazie BySalv

                    Visualizzazione 8 filoni di risposte
                    • Devi essere connesso per rispondere a questo topic.