1. Esta comunidad utiliza cookies. Si continuas utilizando nuestra comunidad estás aceptando la utilización de nuestras cookies. Más información.
  2. ¡Bienvenid@ a AyudaExcel! El foro más visitado sobre Excel en habla hispana.

    Si esta es tu primera visita, asegúrate de revisar los temas de la sección Utilización y Funcionamiento para familiarizarte con las funciones del foro. Si deseas publicar mensajes, será necesario que te Registres para que puedas dejar respuestas y crear tus propios mensajes, recuerda que es gratuito.

[SOLUCIONADO]Se ha producido el error 1004 en tiempo de ejecucion

Tema publicado en 'Macros y programación VBA' iniciado por savichmex, 2 Jul 2010.

Estado del tema:
Cerrado para nuevas respuestas
  1. savichmex

    savichmex Usuario

    Reg:
    23 Jun 2010
    Mensajes:
    41
    Me Gusta recibidos:
    0
    Hola,
    tengo un problema con un codigo que me hizo favor de proporcioname un miembro del foro (gracias logroastur!).
    tuve que hacerle algunos ajustes para que se adaptara mejor a lo que pretendia y creo que lo logre. Sin embargo algo fallo ya que me sale el mensaje..."Se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto"

    este es el codigo que tengo en la hoja:

    Private Sub CommandButton1_Click()
    Dim iResponse As String
    iResponse = MsgBox("¿Aplicar el pago?", vbYesNoCancel + vbQuestion + vbApplicationModal + vbDefaultButton2, "KAI multiservicios")
    Select Case iResponse
    Case vbYes:
    Sheets("Pagos").Range("F" & Rows.Count).End(xlUp)(2) = Sheets("Pagos").Range("E8").Value
    Sheets("Pagos").Range("H" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = Sheets("Pagos").Range("E14").Value
    Sheets("Pagos").Range("G" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = Sheets("Pagos").Range("E12").Value
    Sheets("Pagos").Range("I" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = Sheets("Pagos").Range("E16").Value
    Sheets("Pagos").Range("J" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = Sheets("Pagos").Range("E18").Value
    Sheets("Pagos").Range("K" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = "=IF(RC[-9]=0,0,=K23-RC[-4])"
    Sheets("Pagos").Range("E8,E10,E12,E16,E18").ClearContents
    iResponse = MsgBox("Pago aplicado", vbOKOnly + vbInformation + vbApplicationModal + vbDefaultButton1, "KAI multiservicios")
    Case vbNo:
    iResponse = MsgBox("Revisar los datos a incluirse nuevamente", vbOKOnly + vbExclamation + vbApplicationModal + vbDefaultButton1, "KAI multiservicios")
    Case vbCancel:
    Range("E8,E10,E12,E16,E18").ClearContents
    iResponse = MsgBox("Pago cancelado", vbOKOnly + vbCritical + vbApplicationModal + vbDefaultButton1, "KAI multiservicios")
    End Select
    End Sub


    En esta linea es donde me marca el error:
    Sheets("Pagos").Range("K" & Sheets("Pagos").Range("F" & Rows.Count).End(xlUp).Row) = "=IF(RC[-9]=0,0,=K23-RC[-4])"

    Desde ya agradezco la atencion y orientacion que me puedan dar.
     

    Adjuntos:

    • Prueba.zip
      Tamaño de archivo:
      35,7 KB
      Visitas:
      67
  2. savichmex

    savichmex Usuario

    Reg:
    23 Jun 2010
    Mensajes:
    41
    Me Gusta recibidos:
    0
    asunto resuelto. simplemente quite la linea del codigo donde me marcaba el problema y ahora todo esta bien. gracias de todos modos.
     
Estado del tema:
Cerrado para nuevas respuestas

Compartir esta página