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
Moderatori: Anthony47, Flash30005
Private Sub ComboBox1_Change()
UR = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & UR).Value = Me.ComboBox1.Value
End Sub
Private Sub ComboBox1_LostFocus()
Cells(Rows.Count, "C").End(xlUp).Offset(1, 0) = ComboBox1.Value
End Sub
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
Torna a Applicazioni Office Windows
Macro per copiare testo e salvare in blocco note in formato Autore: kiuba |
Forum: Applicazioni Office Windows Risposte: 12 |
Visitano il forum: Nessuno e 41 ospiti