Visual Basic para Aplicaciones - porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Life is soft - evento anual de software empresarial

Pos: 14

Val: 53

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por JUAN CAMILO (29 intervenciones) el 13/09/2019 22:40:10

Hola lo que pasa es que tengo una macro en una lista desplegable y a veces dejo el cursor sobre esa celda y digamos me voy para google una media hora y cuando vuelvo sale un error en la macro dice finalizar y depurar error 1004 y la macro deja de funcionar me salgo y vuelvo abrir el archivo y me funciona normal..
porque pasa eso y como lo solucion..

Un saludo y gracias a las personas que pueden comentar me ayudarian mucho <3

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 6

Val: 131

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por Hector Madriz (29 intervenciones) el 14/09/2019 04:29:58

Buen dia, anexa el libro o parte de el para evaluar el comportamiento del mismo.

saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Pos: 14

Val: 53

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por JUAN CAMILO (29 intervenciones) el 16/09/2019 17:01:18

Hola Hector mira lo que pasa es que tengo una macro que me pone en blanca una celda y la celda es una lista desplegable dependiente de otra entonces cuando cambio una lista se pone blanca la otra-- F8 Y L8 son 2 celdas con lista deplegables y cuando elijo una opcion en F8 ya la L8 depende de lo que se elijio en F8 y si cambio F8 por otra opcion se pone blanca L8..

Ya te explique lo que pasaba con el archivo de repente sale el error de finalizar o depurar y me di cuenta que tambien me pasa cuando hago una formula en otra celda enseguida se daña la macro que te estoy diciendo que pone la celda blanca y no funciona..

Entonces mira la hoja se llama ( F2) y las fila y columna son F8 Y L8 .. la macro es la ultima ya tu sabras..
Un saludo y Muchas Gracias por la ayuda.. <3

Libro1-83.31presta.rar(137,7 KB)

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por Antoni Masana (502 intervenciones) el 17/09/2019 08:07:25

Seria todo un detalle que cuando saliese un error indicar la línea en la que se produce y no esperar a que la adivinemos.

Por otro lado poner comentarios para saber que está haciendo la macro es todo un detallazo porque adivinar es una de las faceta que no dominamos.
Aunque sean 4 líneas de código poner una explicación ayuda muchísimo.

Bien, pues utilizando mis dotes de brujo de la tribu he descubierto done esta el error:

Este es el código de tu libro:

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim rngSuma As Range

   Set rngSuma = Range("R23:S35")

   If Union(Target, rngSuma).Address = rngSuma.Address Then

        Call ALERTARANGO

    End If

    Application.EnableEvents = False

    If Target.Column = 6 And Target.Validation.Type = 3 Then  ' <=== El error esta en esta línea

        Target.Offset(0, 1).Value = ""

    End If

    Application.EnableEvents = True

End Sub

Y cómo no se que carajo pretendes hacer y para que utilizas la condición Target.Validation.Type = 3 no se como arreglarlo.

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 14

Val: 53

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por JUAN CAMILO (29 intervenciones) el 17/09/2019 15:16:41

Hola Antoni muchas gracias por la ayuda, se me olvido decirte que cuando oprimo en depurar se resalta en amarillo esa linea Target.Validation.Type = 3, yo la copie de un foro que lo que hace la macro es poner en blanco uns celda, osea tengo dos celdas que son listas dependientes entonces cuando se cambia la primera celda se pone en blnaco la de al lado copie el codigo y me sirvio pero a veces sale ese mensajito de finalizar y depurar,
Si me pudieras hacer el favor de cambiar el codigo pero que hiciera lo mismo no habria problema..<3
Un saludo Brujo jaja

Valora esta respuesta

Comentar

Pos: 1

Val: 1.134

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por Antoni Masana (502 intervenciones) el 17/09/2019 20:22:33

No se que función tiene la condición Target.Validation.Type = 3 ni para que sirve este parámetro ni porque da error.

Se me ocurren un par de soluciones pero no son la más correctas.

Digamos que la solución es del tipo

On Error Resume Next: C = A / B

On Error Goto 0

Pero lo mas correcto es:

If B <> 0 Then C = A /B Else C=0

Solución - 1

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngSuma As Range

    Set rngSuma = Range("R23:S35")

    If Union(Target, rngSuma).Address = rngSuma.Address Then Call ALERTARANGO

    Application.EnableEvents = False: On Error Resume Next

    If Target.Column = 6 And Target.Validation.Type = 3 Then Target.Offset(0, 1).Value = ""

    Application.EnableEvents = True: On Error Goto 0

End Sub

Solución - 2

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim rngSuma As Range, Tipo As Boolean

    Set rngSuma = Range("R23:S35")

    If Union(Target, rngSuma).Address = rngSuma.Address Then Call ALERTARANGO

    On Error Resume Next: Tipo = False: Tipo = (Target.Validation.Type = 3)

    On Error Goto 0

    Application.EnableEvents = False

    If Target.Column = 6 And Tipo = True Then  Target.Offset(0, 1).Value = ""

    Application.EnableEvents = True

End Sub

Saludos.
\\//_

Valora esta respuesta

Comentar

Pos: 14

Val: 53

porque cuando dejo abierto un archivo de excel unos minutos me sale error en alguna macro

Publicado por JUAN CAMILO (29 intervenciones) el 17/09/2019 21:31:05

Hola Antoni Muchas Gracias te lo agradezco mucho crack ..<3
Me funciono bien esperemos que siga asi..
Un saludo Antoni..

Valora esta respuesta

Comentar

Activar label si listbox tiene un item

Error del metodo default de Object Range