problemi inserimento da userform

[tav]

Ciao a tutti,
ho il seguente file excel nel quale nel foglio maschera inserimento ho creato una userform.
Da questa userform ho due problemi:

- non riesco a far compilare le due combobox ( devo prendere nella prima la colonna C del foglio 1 e nella seconda la colonna A del foglio1)
- l'altra cosa ( che è la principale) non riesco a far scrivere nelle celle corrette i campi testo che vado a compilare ( per ora ho implementato solo il txt link). con la macro che ho creato mi inserisce il testo che metto nella txt in fondo la tabella e non nella prima cella libera del foglio PROSPETTO FATTURE 2018.
Mi date una mano?

Grazie

Qui il link al file
https://wetransfer.com/downloads/bf3cafecb817ee04a469b05b79c2fdee20180503093544/aae3fe1fa4840724ff1130e87689f71c20180503093544/bd3330

[alfrimpa]

Ciao Tav

Per il popolamento delle combo devi usare questo codice

Codice: Seleziona tutto

Private Sub UserForm_Initialize()
Dim i As Long
Dim k As Long
Dim ur As Long
Dim lr As Long
ur = Sheets("Foglio1").Cells(Rows.Count, 3).End(xlUp).Row
lr = Sheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To ur
    Me.ComboBox1.AddItem Sheets("Foglio1").Range("c" & i)
Next i
For k = 1 To lr
    Me.ComboBox3.AddItem Sheets("Foglio1").Range("a" & k)
Next k
End Sub


mentre al pulsante della form devi associare questo

Codice: Seleziona tutto

Private Sub CARICAMENTO_Click()
Dim numriga As Long

If txtlink.Text = "" Then
   MsgBox ("Inserisci il link!")
   Exit Sub
End If
numriga = Sheets("PROSPETTO FATTURE 2018").Cells(Rows.Count, 2).End(xlUp).Row

Sheets("PROSPETTO FATTURE 2018").Cells(numriga + 1, 2) = txtlink.Text
MsgBox ("Caricato")
txtlink.Text = ""

End Sub


Noto che sul foglio PROSPETTO FATTURE 2018 in colonna A vi sono delle celle unite; se queste sono da compilarsi manualmente ok ma se devono essere compilate con il VBA ti anticipo che potresti avere dei problemi.

Quando si usa il VBA (almeno questo è il mio pensiero) le celle unite vanno evitate il più possibile.

P.S. Quando si deve determinare l'ultima cella piena non va usato CurrentRegion ma Cells(Rows.Count, numero colonna).End(xlUp).Row

[tav]

Ciao e grazie,
nella combo box però non mi visualizza i nomi a tendina. come posso fare?

[alfrimpa]

Non capisco.

Con il primo codice che ti ho dato la prima combo viene popolata con i dati del foglio1 colonna C e la seconda combo con quelli della colonna A.

Che cosa non funziona?

[tav]

che non fa vedere nella combobox i dati, mi lascia tutto in bianco

[alfrimpa]

Scusa ma tu hai inserito nel tuo file ma prima macro che ti ho dato?

Devi inserire il codice all'interno dell'userform3.

Sai come muoverti nell'editor di VBA

Io sono partito dal presupposto che qualcosa sapessi fare.

[tav]

si si io inserito all'interno della userform3 la prima macro

[alfrimpa]

Allora non lo hai fatto nel modo corretto.

Ripeto il codice va inserito all'interno dell'userform (non in un modulo standard).

Sai far questo?

[Anthony47]

Scusate l'intromissione...
Per caricare i combobox, oltre al vba, si puo' anche usare la proprieta' RowSource del controllo, da impostare pari a:

Codice: Seleziona tutto

Foglio1!C1:C20          'Per ComboBox1

Foglio1!A1:A20           'Per ComboBox3


Ciao

[alfrimpa]

Nel caso che gli elenchi siano fissi sicuramente si ma se sono dinamici?

Personalmente preferisco sempre effettuare in maniera dinamica il popolamento delle combo/listbox con un ciclo For che va dalla prima cella all'ultima piena.

[Anthony47]

Ciao Al.
Hai ragione, ma molte cose sono spesso a portata di mano dell'utente anche senza bisogno di competenza vba.

Se l'elenco e' di dimensione mutevole e l'utente non vuole vedere gli spazi vuoti in coda allora si puo' definire un "intervallo dinamico" e usare il suo nome come RowSource; creare un intervallo dinamico e' una cosa che in genere l'utente impara a fare prima di imparare il vba.

Ciao!

[alfrimpa]

Ciao Al.
creare un intervallo dinamico e' una cosa che in genere l'utente impara a fare prima di imparare il vba.

Tu dici? Io non ne sarei così sicuro

[alfrimpa]

Scusate post doppio.