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