Buona sera, Chiara.
@Chiara-ExcelForum, scrive:
... 2) ora il dato che scelgo dalla combobox viene copiato nella cella A1 del foglio 1 Sarebbe possibile ottenere che il dato scelto venga copiato nella cella selezionata?. ...
Serve togliere il riferimento A1 dalla Proprietà "LinkedCell" e un Codice VBA legato ad un "Evento"; esempio:
Option Explicit
Private Sub ComboBox1_Change()
ActiveCell.Value = ComboBox1.Value
End Sub
L'evento "Change" riporta nella cella selezionata il valore presete in ComboBox
Per creare l'evento devi:
- selezionare ComboBox con la procedura indicata in Risposta #4 di questa Discussione
- doppio "click" sul Form selezionato
a questo punto sei entrata in VBA.
Vedrai che hai la possibilità di scegliere un "evento", nello specifico ho utilizzati "Change" ma ce ne sono molti altri:
- BeforeDragOver
- BeforeDropOrPaste
- Click
- DblClick
- GotFocus
e molti altri.
Una volta deciso l'evento che più soddisfa la tua esigenza, puoi scrivere il Codice VBA che vuoi venga eseguito ogni volta che si determina l'evento.
@Chiara-ExcelForum, scrive:
... 3) non riesco a modificare il numero di righe visualizzabili nell'elenco del combobox Sono andata su Proprietà della combobox e ho scelto 20 nella casella "list Rows" ma mi visaulizza solamente le prime 6 righe del foglio 2 ...
Il numero di Record visualizzati dipende dal Range impostato nella Proprietà "ListFillRange"
Attualmente ho indicato come Range Campi che corrisponde alla Zona $A$2:$E$7 del Foglio2.
Al posto della Zona Campi indicato nella Proprietà "ListFillRange" puoi inserire Foglio2!$A$2:$E$70; in questo modo saranno disponibili tutti i Record compresi nel Range A2:E70 del Foglio2.
Altro discorso è definire il numero di Record che desideri visualizzare in una schermata; nel tuo caso, avendo scelto 20, verranno visualizzati 20 dei Record compresi nel Range A2:E70 del Foglio2.
Per visualizzare i rimanenti Record dovrai utilizzare la barra di scorrimento laterale presente sia in ComboBox che in ListBox.
Non sei una frana, sono io che alla veneranda età di 69 anni, a forza di prova e riprova, ho imparato qualche cosina in più.
A disposizione.
Buona serata.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013