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

EL error que te da es porque tanto la cuenta 4600030018 como la 4600050018 no las tienes en la hoja auxiliar por lo que no es posible asignarle  su nombre, añade dichas cuentas y prueba.

Editado el el 23 de septiembre2 años por JSDJSD

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

 

Editado el el 23 de septiembre2 años por Antoni

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

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.

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