vba userform modifica dati

Hai un problema con Excel?

Nuova discussione

vba userform modifica dati
di ab9pr data: 13/11/2017 11:00:24
Buongiorno a tutti,
chiedo se qualche esperto o più esperto di me (ho poca esperienza con il vba di excel) riesce ad aiutarmi nel mio intento.
Ho creato un foglio di lavoro, un elenco clienti di un gommista, in cui sono presenti alcune colonne (cliente, scaffale, marca gomme, misura gomme, cellulare cliente, mail cliente, ecc. ecc.).
Con difficoltà e un po di ragionamento ho inserito tra le altre cose una userform in cui ho inserito una combobox (cliente) e diverse textbox (scaffale, marca gomme, misura gomme, ecc. ecc.). Se seleziono il cliente dalla combobox riesco a visualizzare nelle textbox i relativi dati di quel cliente ma se modifico i dati nelle textbox non riesco a riportare le modifiche nel foglio di lavoro.
Il codice della userform che ho inserito è il seguente.
Spero qualcuno possa aiutarmi. Grazie! Alberto

Private Sub ComboBox1_Change()
Dim I As Integer
Dim tbl As Range
Set tbl = Sheets("Clienti").Range("b12:o4000")
For I = 1 To 13
    Me.Controls("Textbox" & I).Value = WorksheetFunction.VLookup(Me.ComboBox1.Value, tbl, I + 1, False)
Next I
End Sub

Private Sub UserForm_Click()

End Sub
Sub Find_First()
    Dim FindString As String
    Dim Rng As Range
    FindString = InputBox("Cliente")
    If Trim(FindString) <> "" Then
        With Sheets("Clienti").Range("B:B")
            Set Rng = .Find(What:=FindString, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Application.Goto Rng, True
            Else
                MsgBox "Nothing found"
            End If
        End With
    End If
End Sub

di patel data: 13/11/2017 11:36:28
allega un file di esempio da testare
file allegato
di ab9pr data: 13/11/2017 11:53:21
file allegato
di alfrimpa data: 13/11/2017 11:59:28
ab9pr puoi spiegare i motivi per i quali, avendo postato questa medesima richiesta su altro forum (dove hai ricevuto assistenza) hai sentito la necessità di postarla anche qui dove hai riportato la macro che ti avevo scritto io per il popolamento della userform e la macro per il Find che era presente sul link che ti avevo fornito.

Non mi sembra questo un bel modo di comportarsi.

Tu che cosa hai fatto per risolvere il tuo problema sulla base delle indicazioni che ti sono state date?

Alfredo
di ab9pr data: 13/11/2017 12:09:30
Grazie caro Alfredo,
molto sinceramente sono rimasto tutto il weekend sul computer cercando di documentarmi su ciò che mi avevi consigliato tu ma altrettanto sinceramente non ho "cavato un ragno dal buco".
Mi dispiace aver urtato la tua disponibilità.
Saluti
di patel data: 13/11/2017 12:22:38
cambiando forum non si ottiene niente, anzi .... Gli utenti esperti che rispondono frequentano di solito molti forum.
Inoltre avevi avuto vari suggerimenti tra cui quello ottimo di documentarti, bastava fare qualche prova, postare il codice dicendo che non funzionava, non sarai mica uno di quelli che pretende la pappa pronta ?
di alfrimpa data: 13/11/2017 12:28:30
Cit. "Mi dispiace aver urtato la tua disponibilità."

Non è una questione di urtare o meno la disponibilità ma di rispetto verso chi dedica (gratuitamente) parte del suo tempo per risolvere un "tuo" problema.

Alfredo
di ab9pr data: 13/11/2017 12:32:40
Hai perfettamente ragione alfrimpa.
Provo a studiarci ancora su.
Saluti
di ab9pr data: 13/11/2017 12:36:23
patel il foglio di lavoro che ho allegato prima ha richiesto parecchio lavoro da parte mia che non sono affatto un esperto. tralasciando l'ultima parte del pulsante Modifica di cui alfrimpa mi aveva aiutato non poco, il resto l'ho compilato cercando di documentarmi su internet ... non credo di avere costruito chissà cosa ma solitamente non cerco la "pappa pronta".

Vuoi Approfondire?