Problema modifica dati tramite combobox + inserimento dati cella tramite textbox con valuta

Ciao a tutti!
Per finire il file su cui sto lavorando mi mancano due cose importanti.


1) Problema modifica dati con selezione fattura:

Tramite questo codice faccio apparire nella combobox chiamata "cboCerca" la lista delle fatture presente nel mio foglio "Fatture" della colonna B.




Il problema è che una volta inserita la prima fattura non la visualizza.



Mentre se chiudo e riapro la userform viene fuori.



Cosa devo fare per fare in modo che appaia da subito una volta inserita senza dover chiudere la Userform?

Poi attraverso il codice richiamo il numero fattura presente nella combobox per modificare quella specifica fattura:





2) Problema textbox con inserimento dati cella con valuta

Attualmente se inserisco nella textbox l'importo della fattura me la riporta senza valore valuta, almeno che non divida i centesimi con il punto senza utilizzare la virgola. C'è un modo per trascrivere i dati su una cella tramite textbox sempre e comunque con la valuta a prescindere che si utilizzi il punto o la virgola?


Attualmente se uso la virgola vengono fuori così senza il simbolo dell'euro e non vengono nemmeno calcolate nella foruma di somma:


​Grazie mille!

​Allego file di nuovo aggiornato.

ciao
non entro nel merito del programma, ma rispondo a quanto richiesto:

1) all'inizio della Private Sub btnInserisci1_Click(), inserisci:

Application.ScreenUpdating = False
e prima del msgbox inserisci:
Application.ScreenUpdating = True

2) per importi:
nella Private Sub btnInserisci2_Click():

....
Foglio3.Cells(numriga, 3) = txtImporto.Text * 1
....


saluti

Grazie mille!
Il codice funziona come desideravo.
L'unico problema è quando non viene inserito l'importo nel TextBox8..



Se lascio la casella vuota e do comferma di inserimento mi esce un errore:

Errore di run-time '13':
Tipo non corrispondete

E mi evidenzia proprio il codice inserito sopra.

Specifico che l'errore mi appare se compilo solo i dati nella ComboBox "cboTipo", lascio vuote tutte le altre caselle compreso l'importo della TextBox8 e premo il CommandButton di insertimento dati "btnInserisci2".
Se invece lascio tutte le caselle vuote non succede nulla.

Ecco il codice intero:
------------------------------------------------
Private Sub btnInserisci2_Click()
Dim numriga As Long

numriga = 2
Do Until Sheets("Fatture").Cells(numriga, 2) = ""
If Sheets("Fatture").Cells(numriga, 2) = cboCerca.Text Then Exit Do
numriga = numriga + 1
Loop

Foglio3.Cells(numriga, 1) = cboTipo.Text
Foglio3.Cells(numriga, 2) = txtNfattura.Text
Foglio3.Cells(numriga, 3) = TextBox8.Text * 1

numriga = Sheets("Totale").Range("A1").CurrentRegion.Rows.Count
numriga = numriga + 0
Foglio4.Cells(numriga, 2) = TextBox6.Text

cboCerca.Text = ""
cboTipo.Text = ""
txtNfattura.Text = ""
TextBox8.Text = ""
cboCerca.SetFocus

'--------------------------------------------------------------------
'-------------------MODIFICA--------------------------------
'--------------------------------------------------------------------
cboCerca.Clear
For h = 2 To 11
With Me.cboCerca
.AddItem Sheets("Fatture").Range("b" & h)
End With
Next h
'--------------------------------------------------------------------
MsgBox ("Inserimento eseguito con successo!")
End Sub
------------------------------------------

Grazie mille!