You are here:--Aggiungere un comando uguale nello stesso foglio
Aggiungere un comando uguale nello stesso foglio2020-02-12T11:13:38+02:00

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

Tag: 

  • Autore
    Articoli
  • Avatarprinx
    Partecipante
      Post totali: 13

      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: 630

        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

      • Avatarprinx
        Partecipante
          Post totali: 13

          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: 630

            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

          • Avatarprinx
            Partecipante
              Post totali: 13

              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: 630

                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

              • Avatarprinx
                Partecipante
                  Post totali: 13

                  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: 630

                    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

                  • Avatarprinx
                    Partecipante
                      Post totali: 13

                      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

                    Devi essere loggato per rispondere a questa discussione.

                    Utilizzando il sito, accetti l'utilizzo dei cookie da parte nostra. maggiori informazioni

                    Questo sito utilizza i cookie per fornire la migliore esperienza di navigazione possibile. Continuando a utilizzare questo sito senza modificare le impostazioni dei cookie o cliccando su "Accetta" permetti il loro utilizzo.

                    Chiudi