Excel no responde al ejecutar una macro.

[vendetta86]

Buenas llevo días trabajando sobre una macro la cual realiza varios calculos, obtiene datos, etc. El problema es que cuando la ejecuto excel  aparece como no responde. Tarda bastante y no veo que coja todo los recurso del pc. Dicho esto lanzo mis dudas. 

*Viendo esta programación creéis que es normal no espero que la entendáis, la idea es daros una visión del volumen . 

Private Sub CommandButton2_Click()
Dim variable As String

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
ActiveSheet.DisplayPageBreaks = False

numero_de_cables = Application.CountA(Worksheets("Cable list ").Range("a:a"))
' introducir valor de ala
For n = 1 To 2

ala = InputBox("Inicar tamaño de ala", "Título", 100)
If ala <> Empty Then
    If ala = 0 Or ala = "" Then
    MsgBox "Introducir un valor"
    n = 1
    Else
    n = 2
    End If
Else
GoTo final
End If

Next n
Cells(3, 25) = ala

'1º buscar diametro del cable, peso y precio

For ca = 11 To numero_de_cables + 7
pe = InStr(1, Cells(ca, 1), "-pe", vbTextCompare)
n = InStr(1, Cells(ca, 1), "-n", vbTextCompare)
npe = InStr(1, Cells(ca, 1), "-n-pe", vbTextCompare)

If Cells(ca, 7) > 69 Or pe > 1 Or n > 1 Or npe > 1 Then
Cells(ca, 9) = "1x" & Cells(ca, 7)
Else
    If Cells(ca, 5) = "SCREENFLEX 110 VC4V-K" Then
    Cells(ca, 9) = Cells(ca, 6) & "x" & Cells(ca, 7)
    Else
    Cells(ca, 9) = Cells(ca, 6) & "G" & Cells(ca, 7)
    End If
End If
tipocable = Cells(ca, 9)
modelo = Cells(ca, 5) & "_diam"
modelo1 = Cells(ca, 5) & "_peso"
modelo2 = Cells(ca, 5) & "_precio"

  'Hoja comercial cable

Worksheets("Hoja resumen cable").Activate

hor = WorksheetFunction.Match(modelo, ActiveSheet.Range("3:3"), 0)
hor1 = WorksheetFunction.Match(modelo1, ActiveSheet.Range("3:3"), 0)
hor2 = WorksheetFunction.Match(modelo2, ActiveSheet.Range("3:3"), 0)
ver = WorksheetFunction.Match(tipocable, ActiveSheet.Range("a:a"), 0)

diam = ActiveSheet.Cells(ver, hor) * 1
peso = ActiveSheet.Cells(ver, hor1) * 1
precio = ActiveSheet.Cells(ver, hor2) * 1
Worksheets("cable list ").Activate

Cells(ca, 19) = diam
Cells(ca, 20) = peso
Cells(ca, 19) = precio

'diam2 = diam

'2º calculo de area en ducto

If Cells(ca, 7) > 34 And Cells(ca, 7) > 69 Then
Cells(ca, 11) = ((((diam * diam) / 4) * 3.14159265358979) * 1.4) * Cells(ca, 6)
Else
    If Cells(ca, 7) > 16 Then
    Cells(ca, 11) = ((((diam * diam) / 4) * 3.14159) * 1.4)
    Else
    Cells(ca, 11) = ((((diam * diam) / 4) * 3.14159) * 1.2)
    End If
End If

'distinguir tipo de cable segun su uso

texto = "x"
posicion = InStr(1, Cells(ca, 9), texto, vbTextCompare)

If Cells(ca, 23) = "Communication" Or Cells(ca, 23) = "Instrumentation" Or Cells(ca, 23) = "PControl" Then
Cells(ca, ? = 4
Cells(ca, 16) = 1
Else
    If Cells(ca, 7) > 69 And npe = 0 And n = 0 And pe = 0 Then
    Cells(ca, ? = 1
    Else
        If pe > 1 And npe = 0 Then
        Cells(ca, ? = 2
        Else
            If n > 1 Or npe > 1 Then
            Cells(ca, ? = 3
            Else
                If Cells(ca, 7) < 69 Then
                Cells(ca, ? = 4
                Else
                               
                MsgBox " Error nombre de cable linea " & ca & "por favor corrija y vuelva a precalcular"
                End If
                
            End If
        End If
    End If
End If
If Cells(ca, 16) = "" Or Cells(ca, 16) = 0 Then
w = InputBox("Inicar potencia para cable " & Cells(ca, 1), "Título", 1)
Cells(ca, 16) = w
End If

'calculo de area bandeja

If Cells(ca, ? = 1 Then
Cells(ca, 10) = diam * ala * 4.15
Else
    If Cells(ca, ? = 2 Then
    Cells(ca, 10) = 0
    Else
        If Cells(ca, ? = 3 Then
        Cells(ca, 10) = diam * ala
        Else
            If Cells(ca, ? = 4 Then
            Cells(ca, 10) = ((((diam * diam) / 4) * 3.14159) * 1.3)
            Else
            MsgBox "Error calculo bandeja, linea " & ca & " por favor corrija y vuelva a precalcular"
            End If
        End If
    End If
End If
        
        
    

Next ca
final:

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
Application.CutCopyMode = False

End Sub

 

Por otro lado he pensado si comprara una versión de excel 64 bit podría ir mas rápido? tendría algún tipo de incompactibilidad ??

 

Un Saludo y a ver que pensáis ustedes. 

[bigpetroman]

Saludos amigo @vendetta86, unas recomendaciones para que puedas recibir ayuda mas efectivamente.

1- Pasate por el foro: https://ayudaexcel.com/foro/forum/19-utilización-funcionamiento/ y sobre todo el tema; https://ayudaexcel.com/foro/topic/30416-envolver-fórmulas-y-códigos-con-etiquetas/ ya que entender tu codigo asi es muy complicado

2- trata siempre de subir un archivo (no tiene porque ser toda la información completa o los datos reales), te aseguro que es la mejor forma de recibir ayuda

intente ayudar, pero me dio pereza tratar de entender el código así como se ve

Suerte

[vendetta86]

Hace 6 minutos , bigpetroman dijo:

Saludos amigo @vendetta86, unas recomendaciones para que puedas recibir ayuda mas efectivamente.

1- Pasate por el foro: https://ayudaexcel.com/foro/forum/19-utilización-funcionamiento/ y sobre todo el tema; https://ayudaexcel.com/foro/topic/30416-envolver-fórmulas-y-códigos-con-etiquetas/ ya que entender tu codigo asi es muy complicado

2- trata siempre de subir un archivo (no tiene porque ser toda la información completa o los datos reales), te aseguro que es la mejor forma de recibir ayuda

intente ayudar, pero me dio pereza tratar de entender el código así como se ve

Suerte

Entiendo lo que quieres decir, pero la idea no entender ese mondongo si no que en base a vuestra experiencia es normal que excel se cuelgue temporalmente viendo el numero el numero de operaciones, puedo pasaros un archivo con la programación pero todo lo que necesita para funcionar la macro completa no. Puesto que hay precio e información que no puedo compartir. 

Por otro lado esta la duda ¿por que excel no usa todos los recursos del equipo? , ¿mejora si paso a una versión 64 bits ?.

Un Saludo y espero que lo entendáis 

[bigpetroman]

amigo @vendetta86 sin archivo es complicado, el problema puede ser simplemente la forma de programar, que estés ejecutando procesos muy repetitivos, no se, pero sin el archivo y el código así es complicado, puedes cambiar información en tu archivo y que sea ficticia, por ejemplo, nombres de personas, colocas PERSONA 01, PERSONA 02, ETC., donde hayan números, cámbialos con la función aleatorio, etc.

 

[vendetta86]

Hace 20 minutos , bigpetroman dijo:

amigo @vendetta86 sin archivo es complicado, el problema puede ser simplemente la forma de programar, que estés ejecutando procesos muy repetitivos, no se, pero sin el archivo y el código así es complicado, puedes cambiar información en tu archivo y que sea ficticia, por ejemplo, nombres de personas, colocas PERSONA 01, PERSONA 02, ETC., donde hayan números, cámbialos con la función aleatorio, etc.

 

Te lo paso el archivo, perdón por la estética pero me ha costado dejar el archivo en 0,1mb. el original son 850 lineas.

Si le das al botón y después de que te pregunte el tamaño del ala de la bandeja veras que el excel se queda no responde. 

Excel no responde.xlsm

[bigpetroman]

Saludos @vendetta86, revisa el anexo, deje unos comentarios en el código,

Excel no responde.xlsm

[vendetta86]

Hace 18 horas, bigpetroman dijo:

Saludos @vendetta86, revisa el anexo, deje unos comentarios en el código,

Excel no responde.xlsm 103.21 kB · 3 descargas

Gracias, ahora no puedo depurar según tus notas pero en el momento que tenga un hueco lo hago y os cuento que tal.