Jump to content

Cuando una macro no encuentra un nombre como hacer para que siga ejecutando


Recommended Posts

Tengo un problema a la hora de ejecutar mi macro en ocasiones no existe un nombre en mi reporte, y en ese momento la macro se detiene, como hacer para que no se detenga se que tengo que agregar unas lineas con la palabra "Falce" pero no se se donde adicionarla 

Este es el inicio de mi macro, que debo hacer para que en caso de que no encuentre "ACTIVO A CORTO PLAZO" siga en ejecución la macro ya que si no tengo en mi reporte la frase "ACTIVO A CORTO PLAZO" se detiene y me manda un error

 

        Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Selection.Font.Bold = True
 

O puede ser esta otra Macro

 

        Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
    Selection.Font.Bold = True
 

 

 

 

Gracias 

Link to post
Share on other sites
set celda = Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
if not celda is nothing then celda.Font.Bold = True

 

Link to post
Share on other sites
Hace 6 horas, Antoni dijo:

set celda = Cells.Find(What:="ACTIVO A CORTO PLAZO", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False)
if not celda is nothing then celda.Font.Bold = True

 

Gracias Antoni, Ahora me da un error 13 en Tiempo de ejecución

No coinciden los tipos  

Link to post
Share on other sites

Al ejecutar la Macro me da un error 91

Se ha producido un Error “91 en tiempo de Ejecución:

Variable de Objeto o Bloque With no Establecido

 

El Error se Genera porque en el Reporte no encuentra la palabra "ACTIVO A LARGO PLAZO"

La pregunta es que instrucción le tengo que dar para que al querer ejecutar esta parte de la macro cuando no encuentre el nombre no genere el error  y siga ejecutando el resto de la macro

Cells.Find(What:="ACTIVO A LARGO PLAZO", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Selection.Font.Bold = True


Se anexa un archivo con el reporte en dos situaciones una cuando lo ejecuta correctamente y el segundo donde se genera el error 

hice unas macros para copiar el archivo origina que es al que se le da formato con unas instrucciones en la primer pestaña 


Agradezco de Antemano el Apoyo 

Saludos

Gildardo Luna 

Estado de Cambios.xlsm

Link to post
Share on other sites

Hola.

Antes de "Cells.Find..."  escribe:  "On Error Resume Next" para evitar que se detenga por el error.

Prueba el siguiente código. Lo he retocado un poco porque con el original, supongo que lo obtendrías de la grabadora de macros, me estaba perdiendo.

 

Private Sub NuevoCambioEstado()
Dim rTotal As Range
Dim sCab1(1 To 11) As String
Dim iCab As Integer
Dim lFila As Long

    With Range("B1:B5")
        .Copy
        With .Offset(, 1)
            .PasteSpecial xlPasteAll
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            With .Font
                .Size = 12
                .Bold = True
            End With
            For lFila = 1 To .Rows.Count
                .Cells(lFila, 1) = Trim(.Cells(lFila, 1))
            Next
            .Resize(, 5).Merge True
        End With
    End With
    Columns("B:B").Clear
    
    With Columns("C:C")
        .ColumnWidth = 60
        .IndentLevel = 1
    End With
    
    With Columns("D:G")
        .ColumnWidth = 15
        .NumberFormat = "#,##0"
    End With
    
    With Range("C8:G8")
        .BorderAround LineStyle:=xlDouble, Weight:=xlThick
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        .VerticalAlignment = xlCenter
        .HorizontalAlignment = xlCenter
        .WrapText = True
        With .Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0.799981688894314
            .PatternTintAndShade = 0
        End With
        .Font.Bold = True
    End With
    
    With Range([C10], Cells(Rows.Count, 3).End(xlUp)).Resize(, 5)
        .BorderAround LineStyle:=xlDouble, Weight:=xlThick
        .Borders(xlInsideHorizontal).LineStyle = xlContinuous
        .Borders(xlInsideVertical).LineStyle = xlContinuous
        For lFila = 1 To .Rows.Count
            .Cells(lFila, 1) = Trim(.Cells(lFila, 1))
        Next
    
        sCab1(1) = "ACTIVO A CORTO PLAZO"
        sCab1(2) = "ACTIVO A LARGO PLAZO"
        sCab1(3) = "PASIVO A CORTO PLAZO"
        sCab1(4) = "CAPITAL"
        
        sCab1(5) = "TOTAL ACTIVO A CORTO PLAZO :"
        sCab1(6) = "TOTAL ACTIVO A LARGO PLAZO :"
        sCab1(7) = "TOTAL PASIVO A CORTO PLAZO :"
        
        sCab1(8) = "TOTAL ACTIVO :"
        sCab1(9) = "TOTAL PASIVO :"
        sCab1(10) = "TOTAL CAPITAL :"
        sCab1(11) = "TOTAL PASIVO + CAPITAL :"
        
        For iCab = 1 To UBound(sCab1)
            Set rTotal = Nothing
            On Error Resume Next
            Set rTotal = .Cells.Find(What:=sCab1(iCab), LookAt:=xlWhole)
            On Error GoTo 0
            If Not rTotal Is Nothing Then
                With rTotal.Resize(, 5)
                    .Font.Bold = True
                    If iCab > 4 Then
                        .BorderAround LineStyle:=xlDouble, Weight:=xlThick
                        With .Interior
                            .Pattern = xlSolid
                            .PatternColorIndex = xlAutomatic
                            .ThemeColor = xlThemeColorAccent1
                            .TintAndShade = 0.799981688894314
                            .PatternTintAndShade = 0
                        End With
                        .IndentLevel = 2 - (iCab > 7)
                    End If
                End With
            End If
        Next
    End With

    MsgBox "Estado de Cambios Generado", vbInformation, "TERMINADO"

End Sub

Un saludo.

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


  • Crear macros Excel

  • Posts

    • Si habia buscado pero tengo que calcular la distancia entre 1 cliente y 39 mil mas. Despues calcular cual es el de menos distancia..... A  lo que veo es un tema dificil. Muchas gracias
    • MUCHAS GRACIAS SR. ANTONI.  como siempre dando en el punto. sr. antoni disculpe la molestia todo esta ok.  me olvide preguntar tambien por  la ayuda por periodo mensual filtrando. para que me jale el inventario inicial del periodo anterior dejo como quedaria al filtrar por mes. para tener dos opciones de reporte por fecha en la hoja donde iran los 2 esultados. muchas gracias por su gentil ayuda maestro.   REPORTE F_1 M_.xlsm
    • Hola Grupo un gusto saludarlos a todos,  Estoy realizando planificaciones semanales , donde tengo una base con los horarios de los agentes y sus libres, y luego en base a eso realizo una planificacion semanal , Pero me resta resultando muy manual, mi idea es poderla automatizarla un poco, o lo mas que se pueda ya que entiendo que es dificil,  La idea que tengo y que intente hacer de muchas formas pero por el momento no logro concretar es la siguiente:  Si el agente ese dia tiene su horario normal y esta capactiado en la tarea ejemplo 3 tipos de Tarea (administracion, ventas, logistica ) y conincide con su hora que se autocomplete en base al dia y al dia que el agente trabaje, Me resulta muy dificil debido a que son varios parametros, las planificaciones se manandan de forma semanal,  Me parece super interesante podes desarrollar una idea de este tipo y mas excel, entiendo que es posible pero me resulta difícil, muy difícil, Me podrían brindar ayuda a concretar este problema ? intente de muchas formas pero no logre realizarlo,  Estaria encantando con la ayuda que pueden brindar, Saludos desde Uruguay!    Planificacion Dinamica x agentes Semanales .xlsx
    • Busca por la red "calcular distancia entre dos puntos de geolocalización en Excel" Ya con ese calculo, lo que sigue es sencillo de hacer, y si no puedes hacer esta parte, pues nos avisas por aquí    Saludos
    • Hola a tod@s, Tengo un fichero de Excel para realizar un registro de entradas y salidas y me esta funcionando en cuanto a la parte de cumplimentar en la hoja de Excel directamente. Intentare explicarme lo mejor posible. Pero lo mejor es probarlo.Se trata de una tabla en las que estarían las entradas y salidas de productos de las distintas obras que tenemos (que se llama "Registros" en la hoja REGISTRO) y en la que añadimos y quitamos artículos que pueden entrar o salir según necesidades para llevar un control.Hay otra tabla donde tenemos todos los productos (que se llama "Productos" en la hoja PRODUCTOS).Y una tercera hoja donde tenemos pequeñas tablas para los desplegables que queramos disponer.Todas las hojas están relacionadas mediante formulas y validación de datos.Si comprueban a meter datos o a sacar datos en la hoja de Registro directamente comprobaran que funciona de forma correcta. Suma los productos cuando el valor es positivo y resta cuando el valor es negativo pero si el valor de existencias de ese producto es inferior a cero dará un error porque no hay existencias. Hasta aquí funciona todo correcto.Pero me he creado un formulario para introducir la fecha, que lo hace de forma automática y un código que lo introduce de forma automática a partir de un Listbox que me he creado. Si colocamos un valor y luego lo borramos en el Textbox de búsqueda sacara el listado de todos los artículos. Después solamente con seleccionar el articulo que deseamos lo colocara en el Textbox de código.Pero el problema que no he conseguido resolver es en la parte del Textbox de Cantidad. Porque ahí si coloco un numero negativo aunque el stock sea cero o inferior a cero pues me lo coloca igualmente y no soy capaz de solucionarlo. Me han intentado ayudar en otro foro pero me acabo dando problemas que hacia la suma mal.Espero que lo puedan entender y que me pueden ayudar o darme alguna solución.Yo lo que pretendo después, es poder bloquear las hojas para que nadie pueda modificarlas salvo en algunos campos porque este archivo es para compartir a varios usuarios y unos podrán entrar material y otros solamente sacar material . Pero eso ya será otra historia. Primero quería resolver esto.Disculpen por tanto embrollo, pero cualquier duda se la podre aclarar sin problema. En resumen, seria validar la cantidad introducida para evitar que el stock del producto sea menor que 0. Muchas gracias a todos.   Entradas y salidas de material_5.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy