Login Registrati
Stai vedendo 5 articoli - dal 1 a 5 (di 5 totali)
  • Autore
    Articoli
  • #28659 Score: 0 | Risposta

    marco_budin
    Partecipante
      2 pts

      buongiorno a tutti,

      ho creato un foglio Excel con varie Casella di controllo da "flaggare". Mi piacerebbe che le caselle sulla sinistra "validazione personale" se vengono flaggate/deflaggate, automaticamente si flaggano/deflaggare anche quelle nella riga centrale "validazione referente".  Devono essere indipendenti uno dall'altro al contrario. Se flaggo quella della "validazione referente", non si deve flaggare/deflaggare quella della "validazione personale".

      ho provato a scrivere questo, ma non funziona:

      Sub Caselladicontrollo40_Click()
      If Range("r19") = 1 Then Shapes("Casella di controllo 68") = True
      End If
      End Sub

      spero di ottenere una vostra gentile risposta,

      saluti

      Marco

       

      Allegati:
      You must be logged in to view attached files.
      #28661 Score: 0 | Risposta

      patel
      Moderatore
        51 pts

        scrivila così:

        Sub Caselladicontrollo40_Click()
        With ActiveSheet
          If .Range("r19") = 1 Then .Shapes("Casella di controllo 68") = True
        End With
        End Sub
        #28662 Score: 0 | Risposta

        marco_budin
        Partecipante
          2 pts

          ciao Patel,

          grazie mille per la tua celere risposta. Ho provato ad inserire il tuo codice, ma mi da errore e la casella non si flagga.

          ti allego nuovamente il file.

          saluti e grazie

          Marco

          Allegati:
          You must be logged in to view attached files.
          #28664 Score: 0 | Risposta

          albatros54
          Moderatore
            89 pts

            Prova cosi

            Sub Caselladicontrollo40_Click()
                With ActiveSheet
                    If .Range("r19") = 1 Then
                        .Shapes("casella di controllo 68").OLEFormat.Object.Value = 1
                    Else
                        .Shapes("casella di controllo 68").OLEFormat.Object.Value = 0
                    End If
                End With
            End Sub

             

            Qual è il punto di avere gusti diversi, se non mostrare che i cervelli lavorano diversamente, che pensiamo diversamente? ( Alan Turing)
            Sempre il mare, uomo libero, amerai!
            ( Charles Baudelaire )
            #28671 Score: 0 | Risposta

            marco_budin
            Partecipante
              2 pts

              Ciao Albatros54! volevo ringraziarti del tuo aiuto. ho potuto provare a applicare quanto da te scritto e funziona.

              ringrazio come sempre tutti della vostra disponibilità e aiuto

              alla prossima

              Marco

            Login Registrati
            Stai vedendo 5 articoli - dal 1 a 5 (di 5 totali)
            Rispondi a: macro checkbox
            Gli allegati sono permessi solo ad utenti REGISTRATI
            Le tue informazioni: