Maschera Clienti

Hai un problema con Excel?

Nuova discussione

Maschera Clienti
di Pietro (utente non iscritto) data: 08/04/2013 23:30:56
Ciao a tutti, grazie al vostro aiuto ho creato una maschera clienti.
Facendo doppio clic su una cella mi apre la relativa maschera con l'elenco dei Clienti presenti in un altro foglio.
Il foglio di lavoro che contiene i dati dei clienti, oltre a contenere il nome del cliente, contiene anche lo sconto per ogni cliente.
Nella maschera ho creato una casella di testo e vorrei che ad ogni clic sul cliente compaia il relativo sconto, come posso fare?
Grazie
di totygno71 data: 09/04/2013 08:49:06
ciao Pietro

prova in questo modo:

nell'evento "change" della combobox clienti inserisci anche questo pezzettino di codice_

immaginando che la combobox clienti sia la "combobox1"
e la textbox sconti sia la textbox1
For Each c In [C2:C6] 'range dove hai i nomi clienti If c.Value = ComboBox1.Value Then TextBox1.Text = c.Offset(0, 1).Value 'range dove hai i relativi sconti Exit For End If Next c

Maschera Clienti
di Pietro (utente non iscritto) data: 09/04/2013 20:49:41
non è una combobox ma una list box, ho provato come mi hai detto ma non mi funziona, non succede assolutamente nulla.
Ti posto il codice privo del codice che mi hai suggerito.

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim MyClient As Range
Set MyClient = Clienti.Columns(1).Find(what:=ListBox1.Value, LookAt:=xlWhole)
With Range("Cliente")
.Value = ListBox1.Value 'estrae l'indirizzo del Cliente e lo riporta sul preventivo
.Offset(2).Value = MyClient.Offset(, 1).Value 'indirizzo
.Offset(4).Value = MyClient.Offset(, 2).Value 'tel
.Offset(6).Value = MyClient.Offset(, 3).Value 'fax
.Offset(8).Value = MyClient.Offset(, 4).Value 'p.IVA
.Offset(10).Value = MyClient.Offset(, 5).Value 'Email
.Offset(12).Value = MyClient.Offset(, 6).Value 'Rif
.Offset(15).Value = MyClient.Offset(, 7).Value 'Agente
End With
End Sub

di Vecchio Frac data: 09/04/2013 21:11:31
L'esempio di totygno era corretto, perchè ti ha indicato la strada da seguire.
Nel tuo caso devi valorizzare un textbox nell'userform prelevando il valore che si trova tot celle a destra del nome del cliente cliccato.
Quindi dopo End With:

userform1.textbox1 = myclient.offset( , tot_cololonne_a_destra)

dove al posto di "tot_colonne_a_destra" devi mettere appunto il n° di colonne a destra del nome cliente dove si trova lo sconto associato al cliente (se il cliente è in A e lo sconto in D, devi scrivere 3 perchè D è la terza colonna dopo A).
Maschera Clienti
di Pietro (utente non iscritto) data: 09/04/2013 21:42:26
Mitici,grazie mille, ho risolto.
di totygno71 data: 10/04/2013 12:45:34
@ VF

Mitici era riferito ovviamente a ME! U_U

Vuoi Approfondire?