El objeto no admite esta propiedad o este método

Tengo el siguiente código, pero después al ejecutar el documento me aparece este mensaje: "El objeto no admite esta propiedad o este método", cabe mencionar que cambie de office de 32 bits a 64 bits; el código es el siguiente:

LBdia3 = Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(2, 6).Value, 5))
'Buscar Materias
LBM1 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(2, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM2 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(3, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM3 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(4, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM4 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(5, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM5 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(6, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM6 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(7, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM7 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(8, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM8 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(9, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM9 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(10, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM10 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(11, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM11 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(12, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")
LBM12 = Application.IfError(Application.VLookup(Application.Concat(Weekday(Date, vbMonday), Left(Worksheets("Inicio").Cells(13, 6).Value, 5)), Sheets("Parametros").Range("O2:R22"), 4, 0), "")

1 Respuesta

Respuesta
1

[Hola

Debes indicar en que línea te marca el error (más aún si dicha línea no está en las que envías) y de preferencia envía también una captura de pantalla de error.

Los detalles que has dado hasta el momento no son suficientes para saber que está ocurriendo.

Abraham Valencia

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Es estrictamente necesario que una aplicación para android e ios se vea diferente

Si una empresa lanza su aplicación en las tiendas para Android y App Store ¿Esta tendría que verse diferente? Ya que he visto aplicaciones de empresas famosas que se ven un poco mejor diseñadas en Iphone ¿Es estrictamente necesario ofrecer una...
2 respuestas

Tengo una duda access 2010 Reporte vba

Tengo la siguiente sintaxis para filtrar un reporte pero no se filtra no se que tenga mal. DoCmd.OpenReport "ALLM2CONTEDOR", acViewPreview, "FECHA = #" & Format(Me.FECHAOK, "mm-dd-yyyy") & " # AND CONTENEDOR= " & Me.NUMEROCONTENEDOR.Column(1) & ""...
2 respuestas

No encuentro como usar bien la función sumar.si

He probado con el sumar. Si, y no encuentro la fórmula para que, en D1, me de la suma de B7:B18, sumada a la D7:D18, mientras que el mes de las celdas A7:A18 sea igual a Marzo. Y que en D2 hiciera lo mismo, pero para el mes de abril. Muchas gracias
1 respuesta

Boot para firmar pdf con firma digital

Tengo que firmar numerosos pdf's con firma digital, ¿Habría alguna manera de automatizar la tarea con un boot? La firma se realizaría siempre en la misma hoja dependiendo del documento, tengo dos tipos de documentos. Ejm: Documento 1 simpre la firma...
4 respuestas

Conocer en VBA donde se encuentran las bases de Datos

Necesito a través de VBA conocer el emplazamiento de las Bases de Datos.
3 respuestas

Buscar un valor que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que proviene de una tabla dinámica que se va actualizando por mes y tiene dos características y buscar el valor en diferentes tablas.
Sin respuestas

Buscar un valor en un rango que coincida con dos nombres y en diferentes tablas

Necesito buscar un valor que viene de una tabla dinámica con dos características y hay que buscarlo dentro de un rango en diferentes tablas que coincidan con el nombre.
Sin respuestas

Buscar valor dentro de un rango inicio y fin Excel

Tengo que obtener el valor en función al nombre y rango. Tengo que buscar primero por nombre, si coincide, ahora tengo que validar si el importe esta dentro de uno de esos rangos, y si lo encuentra me debe traer el VALOR.
2 respuestas

Sumar días laborables a una fecha en excel

Si en la columna B tengo fechas con formato dd/mm/aaa y quiero que en la columna F me salga el resultado de sumar a la fecha de la columna B, 12 días laborables, ¿Qué fórmula debo utilizar? (si es que la hay). Ejemplo: Columna B = 05/02/2024 en la...
2 respuestas

Forma de ampliar datos en excel

En un excel, tengo una columna con varios rangos de años, pero quiero ver de qué forma la puedo "ampliar", lo pongo entre comillas porque ahora lo quiero explicar: En mi columna 1, tengo un rango de años, lo que quiero es que en lugar de que aparezca...
2 respuestas