LoginRegistrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #28267 Risposta

    AmmoN
    Partecipante

      Buongiorno ho creato una userform con checkbox che mi restituisce VERO o FALSO.

      se volessi trasformare quel vero in una Parola come "AUT" e il FALSO in vuoto, come posso fare?

      Ho risoloto con la formula del =se(.....), ma volevo direttamente in VBA.

      Grazie come sempre

      Allegati:
      You must be logged in to view attached files.
      #28269 Risposta
      PMC77
      PMC77
      Partecipante
        9 pts

        Ciao @ammon!

        Io faei così:

        If UserForm1.CheckBox1.Value = True Then
            'Settaggio con vlaore desiderato
        Else
            'Settaggio con vlaore desiderato
        End If

        #28270 Risposta

        AmmoN
        Partecipante

          come lo dovrei settare?

          #28273 Risposta
          PMC77
          PMC77
          Partecipante
            9 pts

            Ciao @ammon!

            Non ti offendere, ma se hai difficoltà ad attribuire un valore ad una cella, andiamo male!

            Ad ogni modo per esempio potrebbe essere così:

            ThisWorkbook.Worksheets("NOMEFOGLIO").Range("A", Riga).Value = "VALORE"

            #28274 Risposta

            AmmoN
            Partecipante

              si è così..sto cercando di capire..

              in ogni caso dovrebbe implementarsi in qst codice

              Private Sub CommandButton1_Click()
              Application.ScreenUpdating = False
              Sheets("A").Select  'si seleziona un'altro foglio
              Dim iRow As Integer
              iRow = 2
              While Cells(iRow, 1).Value <> ""
              iRow = iRow + 1
              Wend
              
              Cells(iRow, 1) = Cells(iRow, 1).Offset(-1, 0) + 1
              Cells(iRow, 2) = Textnome.Text
              Cells(iRow, 3) = Textdata.Text
              Cells(iRow, 4) = Textdestinazione.Text
              Cells(iRow, 5) = Textpartenza.Text
              Cells(iRow, 6) = CheckBox1
              Unload Me
               Sheets(1).Select
              End Sub
              #28279 Risposta
              Oscar
              Oscar
              Partecipante
                6 pts

                Prova così

                `Private Sub CheckBox1_Click()
                If CheckBox1.Value = True Then
                Cells(1, 1) = "AUT"
                Else
                Cells(1, 1) = ""
                End If
                End Sub`
                Allegati:
                You must be logged in to view attached files.
                #28287 Risposta

                AmmoN
                Partecipante

                  risolto così

                  Private Sub CheckBox1_Click()
                  
                  
                  Sheets("A").Select  'si seleziona un'altro foglio
                  Dim iRow As Integer
                  iRow = 2
                  While Cells(iRow, 1).Value <> ""
                  iRow = iRow + 1
                  Wend
                  If CheckBox1.Value = True Then
                  Cells(iRow, 6) = "AUT"
                  Else
                  Cells(iRow, 6) = ""
                  End If
                  End Sub

                   

                  GRAZIE A TUTTI...

                LoginRegistrati
                Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
                Rispondi a: USERFORM CON CHECKBOX
                Gli allegati sono permessi solo ad utenti REGISTRATI
                Le tue informazioni:



                vecchio frac - 2750 risposte

                albatros54
                albatros54 - 1022 risposte

                patel
                patel - 1000 risposte

                Marius44
                Marius44 - 877 risposte

                Luca73
                Luca73 - 734 risposte