Este código va en un botón el cual inserta datos pero al presionarlo me sale:
Se ha producido el error '-2147417848(80010108)' en tiempo de ejecúcion:
Error en el método 'Insert' de objeto 'Range'
A continuación les dejo el código en cuestión:
Private Sub CommandButton1_Click()
Range("Alumnos!A2").EntireRow.Insert
Este código va en un botón el cual inserta datos pero al presionarlo me sale:
Se ha producido el error '-2147417848(80010108)' en tiempo de ejecúcion:
Error en el método 'Insert' de objeto 'Range'
A continuación les dejo el código en cuestión:
Private Sub CommandButton1_Click()
Range("Alumnos!A2").EntireRow.Insert
Range("Alumnos!B2") = TextBox1.Value
Range("Alumnos!C2") = TextBox2.Value
Range("Alumnos!A2") = TextBox3.Value
Range("Alumnos!D2") = ComboBox1.Value
Range("Alumnos!E2") = ComboBox2.Value
MsgBox "Registro completo"
LimpiarCampos
End Sub
Si alguien me puede ayudar se lo agradecería mucho, saludos.