Problema con un formulario excel

Daca vez que ingreso un registro, a través de un formulario, tengo que cerrar y volver a abrir el formulario para poder introducir otro registro; y, así sucesivamente. Si lo intento registrar a continuación uno de otro, me sale una pantalla que dice:

"Valor de propiedad no válido"

Creo que pueda deberse a que los ComboBox del formulario, los tengo con la propiedad MatchEntry en 1-fmMatchEntryComplete, para obligar al usuario a que elija uno de los datos de la lista que se despliega del ComboBox e impedir que pueda escribir cualquier cosa.

Esta la parte del código que utilizo para registrar los datos del UserForm:

PrivateSubcmdRegistra_Click()
DimSalirAsBoolean,EstaHojaAsString
Forn =1To2:IfMe.Controls("textbox"&n)=""ThenSalir=True:GoToVerifica
Next
Forn =1To4:IfMe.Controls("combobox"&n)=""ThenSalir=True:GoToVerifica
Next
IfIsNull(DTPregistro)ThenSalir=True
IfIsNull(DTPentrega)ThenSalir=True
Verifica:
IfSalirThenMsgBox"FALTAN DATOS !!!":ExitSub
Sheets("DATOS").Select
'Con la linea siguiente de código, se cuentan todos los registros que se vayan grabando
'en la Hoja"DATOS"y los copia en la Hoja"INICIO",E2.
Sheets("INICIO").Range("E2")_
.FormulaR1C1="=COUNT(DATOS! RC:RC)"
t =Cells(Rows.Count,1).End(xlUp).Row
Cells(t +1,1)=TextBox1.Text
Cells(t +1,2)=Format(DTPregistro.Value,"yyyy/mm/dd")
Cells(t +1,3)=ComboBox1.Value
Cells(t +1,4)=ComboBox2&" "&TextBox3
Cells(t +1,5)=TextBox2.Text
Cells(t +1,6)=ComboBox3.Value
Cells(t +1,7)=ComboBox4.Value
Cells(t +1,8)=Format(DTPentrega.Value,"yyyy/mm/dd")
Cells(t +1,14)=TextBox4.Text
TextBox1.Text=""
DTPregistro.Value=""
ComboBox1.Value=""
ComboBox2.Value=""
TextBox2.Text=""
ComboBox3.Value=""
ComboBox4.Value=""
DTPentrega.Value=""
TextBox3.Text=""
TextBox4.Text=""
Application.ScreenUpdating=True
UserForm_Initialize
EndSub

Saludos

Añade tu respuesta

Haz clic para o
El autor de la pregunta ya no la sigue por lo que es posible que no reciba tu respuesta.