Saltar al contenido

Solucionar el Error 91 en tiempo de ej.....


pinoji

Recommended Posts

Buenas tardes colegas. Espero se encuentren bien de salud.

En un Proyecto que terminé hace un par de meses me está dando el Error 91 en Tiempo de ejecución...

Este Error lo está dando en el FrmRetenciones (cuando se va a Cargar). Dicho Formulario prácticamente lo hizo el profesor Antoni a solicitud de una ayuda de mi parte. Trabajaba perfecto hasta hoy, que traté de hacerle una modificación al Sistema, porque necesito que las cuentas que Agregue al Clasificador General (FrmACuenta) en el Rango de las 460 001 a la 460 007 me las imprima en la HojaBase (E28) y en la Hoja Comprobante1  (A16).

Estuve revisando y no me doy cuenta de dónde está el error.

Por favor, si alguien puede ayudarme se lo agradeceré.

Saludos

Pino

Comprobante de Nóminas v3.0.5.xlsm

Enlace a comentario
Compartir con otras webs

Prueba así a ver si te vale:

Private Sub CargarLista()
Dim x As Long, Nombre As Range
CmbID.Clear
For x = 28 To Hoja4.Range("E28").End(xlDown).Row
   CmbID.AddItem Hoja4.Range("E" & x)
   Set Nombre = Hoja2.Columns("A").Find(Hoja4.Range("E" & x), , , xlWhole)
   If Not Nombre Is Nothing Then CmbID.List(CmbID.ListCount - 1, 1) = UCase(Nombre.Offset(, 1)) '<------
   CmbID.List(CmbID.ListCount - 1, 2) = Hoja4.Range("F" & x).Text
Next
TxtTotalR.Text = FormatNumber(Hoja4.Range("F26"), 2)
For x = 0 To CmbID.ListCount - 1
   If CmbID.List(x, 2) = "" Then
      CmbID.ListIndex = x
      Exit For
   End If
Next
End Sub

 

Enlace a comentario
Compartir con otras webs

Buenos días colegas, espero su salud sea excelente.

Buenos días profesor JSD, cómo va de salud. Usted tenía razón, pero con el código adaptado del profesor Antoni ya resuelvo el problema.

Gracias profesor Antoni.

Gracias a los dos y mis más puros agradecimientos a ambos.

Mis saludos y respetos.

Pino

Enlace a comentario
Compartir con otras webs

Hace 1 hora, pinoji dijo:

Buenos días profesor JSD, cómo va de salud. Usted tenía razón, pero con el código adaptado del profesor Antoni ya resuelvo el problema.

Lo sé, yo solo te mande el aviso para que intentaras tú mismo solucionarlo, pero el Maestro Antoni te dio la solución un saludo a ambos.

Enlace a comentario
Compartir con otras webs

Hace 1 hora, JSDJSD dijo:

Lo sé, yo solo te mande el aviso para que intentaras tú mismo solucionarlo, pero el Maestro Antoni te dio la solución un saludo a ambos.

Gracias profesor JSD, pero si te soy sincero, que es lo que acostumbro además, no creo haberlo podido solucionar por mí solo, no al menos con ese código, quizás me hubiera aventurado a hacerlo de otra manera, pero lo que si puede estar seguro es que lo hubiera intentado. Son ustedes unos verdaderos maestros.

Tengan un excelente fin de semana, con salud junto a su familia y amigos.

Mis saludos y respetos.

Pino

Enlace a comentario
Compartir con otras webs

Archivado

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

  • 93 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Gracias tomarse el tiempo de leer por responder Maestro @Antoni Adjunto el archivo con la idea a la que deseo llegar, sigo atento. Mil gracias por el tiempo y la ayuda brindada   Media Attention Formula 1.2.xlsb
    • He analizado la UDF y entiendo perfectamente lo que hace, lo que no entiendo es lo que pretendes hacer. Mejor sube un ejemplo resuelto de  como debería funcionar la UDF con los nuevos parámetros solicitados. 
    • Gracias, ya lo conseguí solucionar
    • Hola a todos Primero que nada deseo agradecer el tiempo en leer este post, Muchas Gracias. Me acerco a ustedes para pedir su ayuda para lo siguiente: Tengo una UDF, la cual tiene dos escenarios: 1.- Si Tiempo Promedio y Duración del Video son diferentes de 0, hacer el calculo 2.- Si lo anterior es igual a 0, se realiza el otro calculo por cuartiles. El detalle es que son muchas celdas a seleccionar, lo cual creo puede ser engorroso, entonces, pensando en simplificar la función, me pregunte si fuera posible: a.- Colocar 1 al principio de la función y después solo seleccionar 2 celdas correspondientes (Rango continuo o discontinuo) b.- Colocar 2 al principio de la función y después seleccionar las 5 celdas correspondientes (Rango continuo o discontinuo) Espero me puedan ayudar y/o orientar al respecto, quedo atento para cualquier duda, de antemano les agradezco cualquier ayuda brindada. Mil Gracias!! Media Attention Formula 1.1.xlsb  
    • si dentro de un tiempo "razonable" no consigues alguna propuesta, considera la posibilidad de que tu consulta no sea lo claro necesaria (?) la forma de preguntar en foros (como este) "debiera" ser como sigue: en tu siguiente mensaje, agrega comentarios que contengan (como minimo) lo siguiente: > claridad... detalle... procedimiento... resultado esperado - - (opcional: formulas y funciones intentadas, rangos, ejemplos resueltos a mano, etc.) > de la "claridad" en el "detalle"... se obtiene la claridad del "procedimiento" > de la claridad en el procedimiento... se obtiene el "resultado esperado" si te resulta dificil explicar con palabras, adjunta (una copia muy RE-DU-CI-DA de) TU modelo por "re-du-ci-da" me refiero a un adjunto de no mas de 10 a 30 Kb (SIN "formatitis") considerando que: "la parte mas importante de una instruccion... es el resultado que se debe obtener"
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.