Aggiungere valori su celle in base a valore TextBox

Question

Salve, ho un foglio di excel con dei codici in vba. Ho la necessità di inserire dei valori in base a quello che viene scritto su una textbox di un altro userform aperto. Mi spiego meglio: in pratica ho un elenco di clienti con delegati. Nell'userform ho impostato che in base al cliente selezionato vengono visualizzati tutti i dati, compresi i delegati. Adesso ho creato un pulsante per inserire delegati, ma è ancora incompleto perchè in base al cliente che seleziono, il nuovo delegato, deve essere inserito nella riga del cliente. Come potrei fare?

Answer 1

Nell'userform1 viene visualizzato il cliente. Nell'userform2 deve copiare il contenuto di textbox1 dell'userform1 e incollarlo nel textbox1 dell'userform2        

CommandButton1 sulla UserForm1:

Private Sub CommandButton1_Click()

    UserForm2.TextBox1.Text = Me.TextBox1.Text

End Sub

Entrambe le UserForm aperte in modo vbModeless.

Answer 2

Nell'userform1 viene visualizzato il cliente. Nell'userform2 deve copiare il contenuto di textbox1 dell'userform1 e incollarlo nel textbox1 dell'userform2

Answer 3

Ok grazie,ma per farlo su un userform secondaria? Praticamente la combobox deve prendere i dati da un'altra userform e poi ho notato che aggiunge alla colonna sempre più uno, invece io vorrei che inserisce solo su b

La prossima volta, per favore, condividiTU un esempio spiegando BENE cosa vorresti fare. Grazie.

Comunque, modificando così il codice del CommandButton scriverai sempre in colonna B:

Private Sub CommandButton1_Click()

    Dim rngNome As Range

    Dim lRisposta As Long

    With sh

        Set rngNome = .Range("A:A").Find( _

                    What:=Me.ComboBox1.Text, _

                    LookIn:=xlValues, _

                    LookAt:=xlWhole, _

                    SearchOrder:=xlRows, _

                    SearchDirection:=xlNext, _

                    MatchCase:=True)

        If Not rngNome Is Nothing Then

            lRisposta = MsgBox("Inserire il nuovo dato?", vbYesNo + vbQuestion, "Attenzione")

            If lRisposta = vbYes Then

                .Cells(rngNome.Row, 2).Value = Me.TextBox1.Text

                Me.TextBox1.Text = ""

            Else

                MsgBox "Operazione annullata"

                Me.TextBox1.Text = ""

            End If

        End If

    End With

End Sub

Non ho capito cosa vuol dire *farlo su una UserForm secondaria*. Se lo spieghi bene, grazie.

Answer 4

Ok grazie,ma per farlo su un userform secondaria? Praticamente la combobox deve prendere i dati da un'altra userform e poi ho notato che aggiunge alla colonna sempre più uno, invece io vorrei che inserisce solo su b

Answer 5

Salve, ho un foglio di excel con dei codici in vba. Ho la necessità di inserire dei valori in base a quello che viene scritto su una textbox di un altro userform aperto. Mi spiego meglio: in pratica ho un elenco di clienti con delegati. Nell'userform ho impostato che in base al cliente selezionato vengono visualizzati tutti i dati, compresi i delegati. Adesso ho creato un pulsante per inserire delegati, ma è ancora incompleto perchè in base al cliente che seleziono, il nuovo delegato, deve essere inserito nella riga del cliente. Come potrei fare?

Qui trovi un esempio di quanto (mi sembra) tu chieda:

• http://www.maurogsc.eu/esempiforum14/inserireincolonna.zip