UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1 ERROR 13 DE EJECUCION el 02/11/13, 11:23 pm

SERGIOhergal


BUENO SUCEDE QUE DE UN MOMENTO A OTRO LA USERFORM DEJO DE FUNCIONAR EL CODIGO ES MUY GRANDE PERO ESPERO PUEDAN AYUDARME A VER DONDE ESTA EL ERROR, EL POR QUE LA USERFORM NO CORRE 

Private Sub CommandButton1_Click()
UserForm1.Hide
Hoja1.Range("P1").Value = 1
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
        False
End Sub

Private Sub ListBox1_Click()
Hoja3.Range("i1").Value = ListBox1.ListIndex + 1
Dim celda As Integer
celda = Hoja3.Range("i1").Value + 1
Hoja3.Range("j1").Value = Hoja2.Range("a" & celda)
End Sub

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Hoja3.Range("L1").Value = 0 Then
MsgBox "NO HAY EFECTIVO SUFICIENTE PARA ADQUIRIR EL TITULO"
Else
Hoja1.Range("A4").QueryTable.Refresh BackgroundQuery:=False
    If Err.Number = 1004 Then
    MsgBox "NECESARIO CONECTIVIDAD"
    End If
    dato
UserForm2.Show
End If

End Sub
Private Sub ListBox4_Click()
Hoja3.Range("i2").Value = ListBox4.ListIndex + 1
Dim celda2 As Integer
celda2 = Hoja3.Range("i2").Value + 3
Hoja3.Range("j2").Value = Hoja3.Range("a" & celda2)
Hoja3.Range("l2").Value = Hoja3.Range("b" & celda2)

End Sub

Private Sub ListBox4_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
If Hoja3.Range("a" & ListBox4.ListIndex + 3) = Empty Then
MsgBox " NO HAY TITULO"
Else
Hoja1.Range("A4").QueryTable.Refresh BackgroundQuery:=False
    If Err.Number = 1004 Then
    MsgBox "NECESARIO CONECTIVIDAD"
    End If
    dato
    UserForm3.Show
       If Err.Number = 13 Then
        MsgBox "NO HAY TITULO"
       End If
End If


End Sub

Private Sub ToggleButton1_Click()

    If ToggleButton1.Value = True Then
Hoja1.Range("p1").Value = 0
     Dim tiempo As Integer
Dim numero As Single
Dim segundo As Single
   tiempo = 3
   Do While Hoja1.Range("p1") < 1
   numero = Timer
   segundo = numero + tiempo
    Do While segundo > Timer
     DoEvents
        If TChecq1 <> TChecq2 Then
             TChecq2 = TChecq1
             End If
         If numero > Timer Then
          segundo = segundo - 24 * 60 * 60
           End If
             Loop
            On Error GoTo noconeccion
            Hoja1.Range("A4").QueryTable.Refresh BackgroundQuery:=False
noconeccion:
            dato
            actualizar
             Loop
         
    Else
Hoja1.Range("p1").Value = 1
Dim tiem As Integer
Dim nume As Single
Dim segu As Single
   tiem = 3
   Do While Hoja1.Range("p1") < 1
   nume = Timer
   segu = nume + tiem
    Do While segu > Timer
     DoEvents
        If TChecq1 <> TChecq2 Then
             TChecq2 = TChecq1
             End If
         If nume > Timer Then
          segu = segu - 24 * 60 * 60
           End If
             Loop
         
           On Error GoTo DOTO
            Hoja1.Range("A4").QueryTable.Refresh BackgroundQuery:=False
DOTO:
            
            dato
            actualizar
             Loop
    End If

End Sub

Private Sub UserForm_Initialize()
actualizar
Hoja1.Range("p1").Value = 1
End Sub

Sub actualizar()
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
ListBox1.RowSource = "Tabla1"
Dim rango As Integer
rango = Hoja4.Range("g2").Value + 1
ListBox2.ColumnCount = 2
ListBox2.ColumnHeads = True
ListBox2.RowSource = "a2:d" & rango
Dim rango2 As Integer
rango2 = Hoja4.Range("l2").Value + 1
ListBox3.ColumnCount = 2
ListBox3.ColumnHeads = True
ListBox3.RowSource = "h2:i" & rango2
ListBox4.ColumnCount = 6
ListBox4.ColumnHeads = True
ListBox4.RowSource = "tabla2"
UserForm1.Label1.Caption = "$" & Hoja3.Range("o2").Value
UserForm1.Label2.Caption = "$" & Hoja3.Range("p2").Value
End Sub
Archivos
Libro1.xlsm
No tienes los permisos para descargar los archivos.
(21 KB)

2 Re: ERROR 13 DE EJECUCION el 03/11/13, 11:51 am

tyno


Hola Sergio.
Ese tipo de error es cuando no coinciden los tipos datos, por ejemplo si se esperaba un número en una variable o una celda y  en su lugar hay texto entonces al intentar hacer una operación matemática  con ésta se produce el error.
El error por lo que dices que el formulario dejó de funcionar parece estar en el evento Private Sub UserForm_Initialize(). 
Como en el archivo que has pasado no se pueden ver como son los tipos de datos que estas utilizando tendrías que revisar algunas de estas instrucciones: 
Dim rango As Integer

rango = Hoja4.Range("g2").Value + 1
Dim rango2 As Integer
rango2 = Hoja4.Range("l2").Value + 1



Posiblemente en las celdas G2 o L2 hay dato como texto, sino tendrías que subir el archivo más completo con la Hoja que esta relacionada el formulario y con los datos que actualmente te dan error para verlo más en detalle. Saludos

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.