Saltar al contenido

Buenas, alguien me podría ayudar con mi código?

publicado

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.

Featured Replies

publicado

He probado tu código y funciona, habría que ver el archivo.

publicado
Hace 26 minutos , JasallBcn dijo:

Buenas , que version tienes de excel ?

image.thumb.jpeg.7efb71ca9e079f4e987b04bf584b7d96.jpeg

publicado

Usando la bola de cristal....

Presiona CTRL + Fin, podría apostar (parezco apostador compulsivo) que al presionar esa compbinación de teclas, te va a enviar a la última fila.

Si eso es cierto, Excel asume que has usado la totalidad de filas y, por lo tanto, ya no puedes adicionar más.

 

publicado
Hace 18 horas, JSDJSD dijo:

image.thumb.jpeg.7efb71ca9e079f4e987b04bf584b7d96.jpeg

Creo que @JasallBcn preguntaba por la versión del solicitante (quien abrió este hilo) y no de @Antoni casi me caigo como el popular Condorito, jajajaja

publicado

Uffff  me despisté tienes toda la razón del mundo, pido disculpas....?

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.