Maschera Inserimento Dati

Hai un problema con Excel?

Nuova discussione

Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 01/05/2013 08:13:29
Ciao ragazzi, buon primo maggio.
Ho creato una user form nella quale ho inserito delle combobox.
Voglio che quando clicco su OK all'interno di una determinata cella deve comparire solo il testo della combobox selezionata. Come posso fare?

Grazie.
di totygno71 data: 01/05/2013 09:13:18
Ciao
buon primo maggio anche a te...
Per quanto riguarda il uo problema:

Range("A1").value = combobox(n)
di Vecchio Frac data: 01/05/2013 18:51:33
"combobox(n)" ?

Dai anche un'occhiata alla proprietà ControlSource della combobox, nella Guida.
'imposta la cella A1 al valore attualmente selezionato nella combobox Private Sub CommandButton1_Click() [A1] = ComboBox1 End Sub

Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 01/05/2013 21:26:05
Allora, io ho tante combobox che ho chiamato con nomi diversi. Grazie ai vostri insegnamenti ho editato il codice che vi posto. Grazie mille

Private Sub CommandButton1_Click()
Dim i As Byte, FirstRow As Integer
i = 1 ' inizio dalla seconda riga perchè la prima è riservata
Do
i = i + 1
    If Preventivo.[Maggiorazioni].Resize(1, 1).Offset(i) Like "TOTALE*" Then
    Preventivo.[Maggiorazioni].Offset(i, -4).Resize(1, 11).Insert shift:=xlDown
    Preventivo.[Maggiorazioni].Offset(i, -4).Resize(1, 4).Merge
    Preventivo.[Maggiorazioni].Offset(i).Resize(1, 5).Merge
    Preventivo.[Maggiorazioni].Offset(i - 1, -4).Resize(1, 11).Copy
    Preventivo.[Maggiorazioni].Offset(i, -4).Resize(1, 11).PasteSpecial Paste:=xlPasteFormats
    Application.CutCopyMode = False
    ' Sistemo la il Totale
    Preventivo.[Maggiorazioni].Offset(i + 1, 2).FormulaR1C1 = "=Sum(R" & Preventivo.[Maggiorazioni].Row + 1 & "C:R[-1]C)"
    End If
Loop Until Preventivo.[Maggiorazioni].Resize(1, 1).Offset(i).Value = ""
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggSoglia.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpSoglia.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggTravAnta.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpTravAnta.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggTravTelaio.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpTravTelaio.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggZoccRip.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpZoccRip.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggApEsterna.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpApEsterna.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggAccessori.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpAccessori.Value
    
    Range("MAGGIORAZIONI").Offset(i, -4).Value = Maggiorazioni.Voce.Value
    Range("MAGGIORAZIONI").Offset(i).Value = Maggiorazioni.MaggFinFissi.Value
    Range("MAGGIORAZIONI").Offset(i, 2).Value = Maggiorazioni.txtImpVetriFinFissi.Value
    
    Unload Me
End Sub

Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 02/05/2013 19:43:06
Ciao ragazzi, scusatemi, nessuna risposta?
di totygno71 data: 02/05/2013 20:15:48
Io personalmente faccio fatica leggendo il codice a capire quale è il risultato atteso...
Non so gli altri... magari sono piu perspicaci ^_^
Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 03/05/2013 17:08:33
Ragazzi per favore aiutatemi, non so proprio come fare.
di totygno71 data: 03/05/2013 20:24:56
Pietro... ciao

puoi essere un po piu coinciso nel chiedere cosa vorrseti ottenere....
Ripeto il codice mi è ostico, magari posta il file di esempio cosi è piu semplice indirizzarti...
di Vecchio Frac data: 03/05/2013 21:17:35
Qual è la combo in questione nel codice?
Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 03/05/2013 22:01:42
ho allegato il file.
In pratica, esistono tante combobox ma l'inserimento nella relativa cella del foglio deve avvenire solo se viene scelta una sola combobox.

di totygno71 (utente non iscritto) data: 04/05/2013 09:43:48
Ok
ora si capisce...
tu vuoi solo che una volta compilate le comboil loro contenuto venga inserito nel foglio preventivo secondo lo schema della tabella preimpostata?
Allora potresti iniziare il codice ripulendo la tabella da eventuali residui di altri dati...

[A6:K17].ClearContents
i = 6
   
If MaggSoglia.Text <> "" Then
    Cells(i, 1).Value = txtVoceSoglia
    Cells(i, 5).Value = MaggSoglia
    Cells(i, 11).Value = txtImpSoglia
    i = i + 1
    End If

If MaggTravAnta.Text <> "" Then
    Cells(i, 1).Value = txtVoceTravAnta
    Cells(i, 5).Value = MaggTravAnta
    Cells(i, 11).Value = txtImpTravAnta
    i = i + 1
    End If

'codice per le prime 2 combo

 'ripeti per il resto di combobox
' se non fossero starte rinominate le combo e le text si potrebbe anche creare un unico cilco per tutte..
    


Unload Me

Maschera Inserimento Dati
di Pietro (utente non iscritto) data: 04/05/2013 11:32:30
Ok, grazie mille, funziona alla grande !!!!
di totygno71 data: 04/05/2013 12:29:58
Prego!

Vuoi Approfondire?