Problemas en Userform, "Error 1004"
Hola jcgonzalez31, de nuevo necesitando una ayudita, te explico:
Cada vez que abro el userfrom e intento insertar datos, me sale la ventana de bv:
"Se ha producido el error "1004" en tiempo de ejecución:
Las celdas que intenta modificar están protegidas y por lo tanto son de solo lectura.
Para madificar una celda o un gráfico protegidos, quite la protección, etc, etc, etc"
Pincho en depurar y me sale lo siguiente:
Private Sub ComboBox1_Change()
Range("b14").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub ComboBox2_Change()
Range("c14").Select
ActiveCell.FormulaR1C1 = ComboBox2
End Sub
Private Sub ComboBox3_Change()
Range("d14").Select
ActiveCell.FormulaR1C1 = ComboBox3
End Sub
Private Sub ComboBox4_Change()
Range("k14").Select
ActiveCell.FormulaR1C1 = ComboBox4
End Sub
Private Sub CommandButton1_Click()
Rem inserta un renglón
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox16 = Empty
ComboBox1 = Empty
ComboBox2 = Empty
ComboBox3 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox13 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox7 = Empty
ComboBox4 = Empty
TextBox12 = Empty
Rem TextBox16.SetFocus Envía el cursor al TextBox16 para volver a capturar los datos
TextBox16.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub TextBox12_Change()
Range("l14").Select
ActiveCell.FormulaR1C1 = TextBox12
End Sub
Private Sub TextBox13_Change()
Range("g14").Select
ActiveCell.FormulaR1C1 = TextBox13
End Sub
Private Sub TextBox14_Change()
Range("h14").Select
ActiveCell.FormulaR1C1 = TextBox14
End Sub
Private Sub TextBox15_Change()
Range("i14").Select
ActiveCell.FormulaR1C1 = TextBox15
End Sub
Private Sub TextBox16_Change()
Range("a14").Select
ActiveCell.FormulaR1C1 = TextBox16
End Sub. (lo que está en negrita me aparece en amarillo)
Private Sub TextBox5_Change()
Range("e14").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Private Sub TextBox6_Change()
Range("f14").Select
ActiveCell.FormulaR1C1 = TextBox6
End Sub
Private Sub TextBox7_Change()
Range("j14").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub
Private Sub UserForm_Click()
End Sub
El archivo consta de 4 hojas, "Entrada a formulario", "Registros", "Consulta" Y "Datos", tan solo está protegida la hoja "Entrada a formulario" pero sin contraseña, pero me ocurre algo muy curioso que es lo que me trae de cabeza y es lo siguiente:
Cuando abro el fichero, se abre 1º la hoja "Entrada a formulario", una vez dentro pincho en una macro on autoforma "Entrada a formulario", y se abre el Userform, cuando empiezo a meter el primer datos se me abre la ventana que he comentado antes, le doy a depurar y se abre la ventana de BV, con el evento en amarillo que te he indicado más arriba, cierro la ventana y sale el típico aviso de "este comando detendrá...", le doy a aceptar y vuelta a lo mismo.
Pero, si desprotejo la hoja "Entrada a formulario",
Y entro en el Userform, los datos se reflejan en ésta hoja, cuando hasta ahora y lo programado es que se inserten en la hoja "Registros",
En la hoja "Datos", tengo los nombres de los residentes.
En la hoja "Consulta", tengo una lista de validación que según el nombre que elija, se inserta foto y datos referente al mismo.
He mirado pero no tengo nada protegido, Por favor ¡Ayudadme!
Gracias de nuevo a todos
Cada vez que abro el userfrom e intento insertar datos, me sale la ventana de bv:
"Se ha producido el error "1004" en tiempo de ejecución:
Las celdas que intenta modificar están protegidas y por lo tanto son de solo lectura.
Para madificar una celda o un gráfico protegidos, quite la protección, etc, etc, etc"
Pincho en depurar y me sale lo siguiente:
Private Sub ComboBox1_Change()
Range("b14").Select
ActiveCell.FormulaR1C1 = ComboBox1
End Sub
Private Sub ComboBox2_Change()
Range("c14").Select
ActiveCell.FormulaR1C1 = ComboBox2
End Sub
Private Sub ComboBox3_Change()
Range("d14").Select
ActiveCell.FormulaR1C1 = ComboBox3
End Sub
Private Sub ComboBox4_Change()
Range("k14").Select
ActiveCell.FormulaR1C1 = ComboBox4
End Sub
Private Sub CommandButton1_Click()
Rem inserta un renglón
Selection.EntireRow.Insert
Rem Empty Limpia Los Textbox
TextBox16 = Empty
ComboBox1 = Empty
ComboBox2 = Empty
ComboBox3 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox13 = Empty
TextBox14 = Empty
TextBox15 = Empty
TextBox7 = Empty
ComboBox4 = Empty
TextBox12 = Empty
Rem TextBox16.SetFocus Envía el cursor al TextBox16 para volver a capturar los datos
TextBox16.SetFocus
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub CommandButton3_Click()
ActiveWorkbook.Save
ActiveWorkbook.Close
End Sub
Private Sub TextBox12_Change()
Range("l14").Select
ActiveCell.FormulaR1C1 = TextBox12
End Sub
Private Sub TextBox13_Change()
Range("g14").Select
ActiveCell.FormulaR1C1 = TextBox13
End Sub
Private Sub TextBox14_Change()
Range("h14").Select
ActiveCell.FormulaR1C1 = TextBox14
End Sub
Private Sub TextBox15_Change()
Range("i14").Select
ActiveCell.FormulaR1C1 = TextBox15
End Sub
Private Sub TextBox16_Change()
Range("a14").Select
ActiveCell.FormulaR1C1 = TextBox16
End Sub. (lo que está en negrita me aparece en amarillo)
Private Sub TextBox5_Change()
Range("e14").Select
ActiveCell.FormulaR1C1 = TextBox5
End Sub
Private Sub TextBox6_Change()
Range("f14").Select
ActiveCell.FormulaR1C1 = TextBox6
End Sub
Private Sub TextBox7_Change()
Range("j14").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub
Private Sub UserForm_Click()
End Sub
El archivo consta de 4 hojas, "Entrada a formulario", "Registros", "Consulta" Y "Datos", tan solo está protegida la hoja "Entrada a formulario" pero sin contraseña, pero me ocurre algo muy curioso que es lo que me trae de cabeza y es lo siguiente:
Cuando abro el fichero, se abre 1º la hoja "Entrada a formulario", una vez dentro pincho en una macro on autoforma "Entrada a formulario", y se abre el Userform, cuando empiezo a meter el primer datos se me abre la ventana que he comentado antes, le doy a depurar y se abre la ventana de BV, con el evento en amarillo que te he indicado más arriba, cierro la ventana y sale el típico aviso de "este comando detendrá...", le doy a aceptar y vuelta a lo mismo.
Pero, si desprotejo la hoja "Entrada a formulario",
Y entro en el Userform, los datos se reflejan en ésta hoja, cuando hasta ahora y lo programado es que se inserten en la hoja "Registros",
En la hoja "Datos", tengo los nombres de los residentes.
En la hoja "Consulta", tengo una lista de validación que según el nombre que elija, se inserta foto y datos referente al mismo.
He mirado pero no tengo nada protegido, Por favor ¡Ayudadme!
Gracias de nuevo a todos
1 Respuesta
Respuesta de Juan Carlos González Chavarría
1