Login Registrati
Stai vedendo 7 articoli - dal 1 a 7 (di 7 totali)
  • Autore
    Articoli
  • #28267 Score: 0 | 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 Score: 0 | Risposta

      PMC77
      Partecipante
        18 pts

        Ciao @ammon!

        Io faei così:

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

        #28270 Score: 0 | Risposta

        AmmoN
        Partecipante

          come lo dovrei settare?

          #28273 Score: 0 | Risposta

          PMC77
          Partecipante
            18 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 Score: 0 | 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 Score: 0 | Risposta

              Oscar
              Partecipante
                32 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 Score: 0 | 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...

                Login Registrati
                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: