Buenas tardes, Es mi primer post y quisiera ayuda explicada de una manera muy simple ya que soy muy nobel en el tema de VBA. Recién estoy conociendo detalles del código y la mayoría de macros que he realizado las he echo con la grabadora y modificando algunas lineas dependiendo del error que aparezca. Actualmente estoy trabajando convirtiendo una pequeña BD en formato de tabla y agregando columnas a la derecha donde formulo condicionales a partir de la BD inicial. La verdad no entiendo porque me sale un error en una de las condicionales, cuando las otras que utilizo si funcionan correctamente. Les dejo el código y espero su ayuda. Gracias de antemano. (El error me aparece en el código que esta en rojo) Sub Generacion_Data() ' Sheets("Data desmedro").Select Columns("C:C").Select Selection.SpecialCells(xlCellTypeBlanks).Select Application.CutCopyMode = False Selection.EntireRow.Delete Rows("1:1").Select Selection.SpecialCells(xlCellTypeBlanks).Select Selection.EntireColumn.Delete Range("K2").Select Range(Selection, Selection.End(xlDown)).Select Selection.Replace What:=".", Replacement:="/", LookAt:=xlPart, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _ ReplaceFormat:=False Selection.End(xlUp).Select Selection.End(xlToLeft).Select ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1", Range("$k$1").End(xlDown)), , xlYes).Name = _ "Tabla4" Range("Tabla4[#All]").Select ActiveSheet.ListObjects("Tabla4").TableStyle = "TableStyleLight9" Range("L1").Select ActiveCell.FormulaR1C1 = "Año" Range("L2").Select ActiveCell.FormulaR1C1 = "año" Range("A2").Select Selection.End(xlToRight).Select Selection.ClearContents ActiveCell.FormulaR1C1 = "=+YEAR(Tabla4[[#This Row],[Fe.contab.]])" Range("M1").Select ActiveCell.FormulaR1C1 = "Depart." Range("M2").Select ActiveCell.FormulaR1C1 = _ "=+IFERROR(VLOOKUP(Tabla4[[#This Row],[Grupo art.]],Grup.Art!R1C1:R2522C4,4,0),""SIN ASIGNAR"")" Range("M3").Select Selection.End(xlUp).Select Range("N1").Select ActiveCell.FormulaR1C1 = "Mundo" Range("N2").Select ActiveCell.FormulaR1C1 = _ "=+VLOOKUP(Tabla4[[#This Row],[Depart.]],SecciónxMundo!R1C1:R26C2,2,0)" Range("O1").Select ActiveCell.FormulaR1C1 = "Ctd. Desm 2015" Range("O2").Select ActiveCell.FormulaR1C1 = _ "=+IF(Tabla4[[#This Row],[Año]]=2015,Tabla4[[#This Row],[Cantidad]],0)" Range("O3").Select Selection.End(xlUp).Select Range("P1").Select ActiveCell.FormulaR1C1 = "Ctd. Desm 2016" Range("P2").Select ActiveCell.FormulaR1C1 = _ "=+IF(Tabla4[[#This Row],[Año]]=2016,Tabla4[[#This Row],[Cantidad]],0)" Range("P3").Select Selection.End(xlUp).Select Range("Q1").Select Range("Q1").FormulaR1C1 = "Imp. Ok" Range("Q2").Select Range("Q2").FormulaR1C1 = _ "=+IF(Tabla4[[#This Row],[CMv]]=551,Tabla4[[#This Row],[Importe ML]],-Tabla4[[#This Row],[Importe ML]])" Range("Q3").Select Selection.End(xlUp).Select Range("R1").Select ActiveCell.FormulaR1C1 = "Importe 2015" Range("R2").Select ActiveCell.FormulaR1C1 = _ "=+IF(Tabla4[[#This Row],[Año]]=2015,Tabla4[[#This Row],[Imp. Ok]],0)" Range("R3").Select Selection.End(xlUp).Select Range("S1").Select ActiveCell.FormulaR1C1 = "Importe 2016" Range("S2").Select ActiveCell.FormulaR1C1 = _ "=+IF(Tabla4[[#This Row],[Año]]=2016,Tabla4[[#This Row],[Imp. Ok]],0)" Range("S3").Select End Sub

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Error en VBA novato

Autor del tema DreamLess
Fecha de inicio 10 Mar 2016

DreamLess

New member

10 Mar 2016

Buenas tardes,

Es mi primer post y quisiera ayuda explicada de una manera muy simple ya que soy muy nobel en el tema de VBA.
Recién estoy conociendo detalles del código y la mayoría de macros...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Error no me encuentra el archivo Access en la macro VBA

Respuestas: 1

21 Ago 2025

Macro Antonio

Pregunta

vba en busqueda sale error en el inicio

Respuestas: 6

11 Jun 2025

Leopoldo Blancas

Pregunta

Ayuda con VBA - Error Incapsula al obtener tipos de cambio de la SBS

Respuestas: 2

21 Feb 2025

ivan26

Pregunta

Error archivo VBA

Respuestas: 3

17 Feb 2025

Abraham.Valencia

Resuelto

Error vba

Respuestas: 11

29 Ene 2025

FGV

Pregunta

Error 13 VBA

Respuestas: 2

26 Jun 2024

williwilme

Pregunta

Error al copiar y pegar datos, de un libro a otro, usando VBA Excel

Respuestas: 6

6 Nov 2023

FGV

Resuelto

Error 1004 VBA

Respuestas: 19

27 Sep 2023

Dante Amor M

Resuelto

Contar número de celdas de error en un rango mediante VBA

Respuestas: 2

22 Sep 2023

dejun

Pregunta

Error #¿NOMBRE? después de crear función en VBA

Respuestas: 7

30 Jun 2023

Frank2021

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba