Macro copia/incolla valore combobox in cella vuota

[Marco75CT]

Ciao,
ho bisogno di un aiuto.
Uso excel 2010 ed ho una casella combinata con un elenco di prodotti.
Vorrei che, una volta selezionato il prodotto, su invio questo venga copiato nella prima cella vuota di una colonna specifica.
E' possibile?
Grazie

[Flash30005]

Supponendo che la colonna interessata sia la "A"
in combox change puoi inserire questo codice

Codice: Seleziona tutto

Private Sub ComboBox1_Change()
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & UR).Value = Me.ComboBox1.Value
End Sub

ciao

[Marco75CT]

Ciao Flash e grazie per la rapida risposta.
Ho fatto come hai detto, ma non funziona.
Mi da errore.

[Anthony47]

Humm...
Premesso che la soluzione non mi convince (scrivera' nelle celle il contenuto del combobox a ogni lettera che viene digitata), non riesco nemmeno a interpretare la finestra in cui viene visualizzato il codice e il relativo messaggio...
Confermi che usi XL2010?

Comunque potresti provare con

Codice: Seleziona tutto

Private Sub ComboBox1_LostFocus()
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = ComboBox1.Value
End Sub


In questo modo il dato sara' posizionato nella cella solo quando uscirai dal combobox

Ciao

[Marco75CT]

Ciao Anthony,
ti ringrazio. Funziona!
E' anche possibile far copiare il dato su invio?

[Flash30005]

L'errore forse è dovuto al non dimensionamento della variabile UR nel caso hai Option explicit
pertanto potevi mettere
Dim UR as integer all'inizio della macro
E' vero che ad ogni digitazione di qualsiasi lettera andava a scrivere sulla prima cella libera ma essendo una combox "popolata" veniva scritto solo ciò che era in elenco e non doveva essere digitato nulla.
Dai miei test funzionava bene.

ma avendo risolto con la macro di Anthony quanto detto non serve tranne che a fare esperienza.

ciao

[Marco75CT]

Ciao Flash,
ad onor del vero, la tua macro funzionava su un file nuovo, ma non su quello che ho io...non so perchè.
Proverò, per mia curiosità e conoscenza futura, quanto da te suggerito.
Sapete dirmi se c'è un modo per uscire dalla combobox con l'invio? al momento esce con l'ESC, ma mi viene più scomodo.
Grazie ad entrambi

[Anthony47]

Per terminare con enter puoi usare l' evento KeyDown invece del LostFocus; esempio

Codice: Seleziona tutto

Private Sub ComboBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
    Cells(Rows.Count, "C").End(xlUp).Offset(1, 0).Select
    Selection.Value = ComboBox1.Value
End If
End Sub

La macro sull' Enter seleziona la cella libera di colonna C e la popola col valore del combobox.

La mancata Dim di UR non avrebbe dovuto generare quell' errore; ma in realta' la pagina visualizzata nell' immagine non ha il look standard del vba (vedasi l' icona il alto a sx che non e' quella tipica del modulo di codice).
E comunque, pur essendo un combobox prepopolato, l' eventuale "scorrimento" della lista alla ricerca del valore giusto innesca piu' volte l' evento Change.

Ciao

[Marco75CT]

Grazie Anthony.
Ora è perfetto.