Jump to content

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


Recommended Posts

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.

Link to comment
Share on other sites

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.

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 45.01 EUR
      Objetivo: 130.00 EUR
  • Files

  • Download Statistics

    • Files
      143
    • Comments
      87
    • Reviews
      25

    Latest File
    By pegones1

    3    0

  • Crear macros Excel

  • Posts

    • Estoy trabajando un archivo de biblioteca para el cual ya me han ayudado anteriormente con un ListBox y con un formulario para Mantenimiento de Listas, lo que me ha servido muchísimo y de lo cual estoy muy agradecido de los miembros Antoni y JSDJSD,  en esta oportunidad he agregado al objeto "ThisWorbook" las instrucciones "Application.Visible = False" y "FRMPanel.Show" para que al usuario le muestre solo el formulario "Panel" desde donde podrá realizar la gestión de la biblioteca, ocultando la aplicación Excel a su vista. La contraseña del proyecto es "biblio" Además he agregado al formulario un botón de comando para hacer visible Excel, el que al ejecutarlo y,  previamente a hacer visible Excel, le pedirá una contraseña (en este caso "biblio"),  para evitar que trabajen directamente en la hojas, tablas y VBA si no tienen el acceso necesario, además agregué en el mismo formulario un botón de comando para ocultar Excel y volver al modo de usuario. El problema es que después de abrir una vez el archivo,  funciona correctamente lo esperado, es decir: se abre el formulario "Panel" manteniendo oculto Excel,  pero cuando cierro el formulario y lo vuelvo a abrir, en esta oportunidad me abre Excel en la hoja lista, sin abrir el formulario y ocultar Excel. Para que vuelva a funcionar el código debo obligadamente guardar el archivo y solo la vez siguiente volverá a funcionar. La idea es que cuando el usuario cierre el formulario "Panel" y vuelva a abrirlo,  nuevamente esté oculto Excel y le muestre solo el formulario "Panel". Intenté poner la instrucción "ActiveWorkbook.Save" en el evento "BeforeClose",  primero en el objeto ThisWorbook y no me resultó,  después probé agregando lo mismo en el código del botón "Cerrar" del formulario "Panel" y tampoco me resultó,  la 2da vez que lo abro (sin haber guardado el archivo) siempre me muestra Excel,  y lo que necesito es que cada vez que el usuario abra el archivo le muestre el formulario "Panel", ocultando Excel. Les agradecería muchísimo me pudiesen ayudar con este inconveniente. Listas.xlsm
    • Hi @FGV  Podemos sumar ideas, por lo que pude comprender el formato negativo le causa conflicto a @Pirtrafilla y para no entrar en opciones avanzadas podemos modificar el formato para poder tratar con todas. Saludines         Convertir a horas.xlsx
    • Antoni no puede pensar en retiros... el es MODERADOR PERPETUO.
    • Que tal a todos, considerando la versión de Excel de la consulta, me permito aportar otra posible solución con fórmula matricial. Espero les sea útil. Ordenar correos (Ayuda Excel).xlsx
    • Hola a todos, Una solución para M365 podría ser, suponiendo que el rango a evaluar sea A1:A6 : =ORDENARPOR(A1:A6;TEXTODESPUES(A1:A6;"@")) que desplegará una matriz con los resultados deseados........ pero eso sí, por orden estrictamente alfabético de dominio; es decir: aaaa@fp.com dddd@fp.com bbbb@hg.com eeee@hg.com cccc@ml.com fffff@ml.com Saludos,                                
  • Recently Browsing

    • No registered users viewing this page.
×
×
  • Create New...

Important Information

Privacy Policy