Buenas saludos con todos y feliz año Soy nuevo en este foro la verdad estoy teniendo un problema con una macro que me pasaron para poder extraer datos de unas tablas de excel, se muy poco de VBA pero al correr la macro me sale error en una instrucción AVG = Cells(n, 4) aca me sale error. Espero me puedan ayudar. Saludos Les dejo la función macro: Sub MACRO_DCN() ' ' MACRO_DCN Macro ' Workbooks.Open Filename:="F:\Macro\Exp_KPI_DCN.xls" Workbooks.Open Filename:="F:\Macro\KPI_IP_DCN.xlsx" Dim i As Integer Dim j As Integer Dim day As Date Windows("macrometro.xlsm").Activate Sheets("DATA_DCN").Select day = Cells(3, 9) Windows("KPI_IP_DCN.xlsx").Activate Sheets("Daily bandwidth data").Select For i = 1 To 255 If Cells(2, i) = day Then j = Cells(2, i).Column End If Next i Windows("Exp_KPI_DCN.xls").Activate Sheets("Exp_KPI_DCN").Select Columns("A:J").Select Selection.Copy Windows("macrometro.xlsm").Activate Sheets("DCN").Select Range("A1").Select ActiveSheet.Paste Range("K3:K3000").Select Selection.Copy Range("C3").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Dim AVG As Double Dim PEAK As Double Dim AVG_PER As Double Dim PEAK_PER As Double Dim Name As String Dim n As Integer For i = 4 To 500 Windows("KPI_IP_DCN.xlsx").Activate Sheets("Daily bandwidth data").Select Name = Cells(i, 2) Windows("macrometro.xlsm").Activate Sheets("DATA_DCN").Select For n = 3 To 500 If Cells(n, 2) = Name And Name <> "" Then AVG = Cells(n, 4) PEAK = Cells(n, 5) AVG_PER = Cells(n, 6) PEAK_PER = Cells(n, 7) Windows("KPI_IP_DCN.xlsx").Activate Sheets("Daily bandwidth data").Select Cells(i, j) = AVG Cells(i, j + 1) = PEAK Cells(i, j + 2) = AVG_PER Cells(i, j + 3) = PEAK_PER GoTo label1 End If Next n label1: Next i '-------------------------------------------------- Windows("KPI_IP_DCN.xlsx").Activate Sheets("Traffic Internal").Select For i = 1 To 255 If Cells(2, i) = day Then j = Cells(2, i).Column End If Next i For i = 4 To 50 Windows("KPI_IP_DCN.xlsx").Activate Sheets("Traffic Internal").Select Name = Cells(i, 2) Windows("macrometro.xlsm").Activate Sheets("DATA_DCN").Select For n = 3 To 500 If Cells(n, 2) = Name And Name <> "" Then AVG = Cells(n, 4) PEAK = Cells(n, 5) AVG_PER = Cells(n, 6) PEAK_PER = Cells(n, 7) Windows("KPI_IP_DCN.xlsx").Activate Sheets("Traffic Internal").Select Cells(i, j) = AVG Cells(i, j + 1) = PEAK Cells(i, j + 2) = AVG_PER Cells(i, j + 3) = PEAK_PER GoTo label2 End If Next n label2: Next i ' 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.

Ayuda Macros

Autor del tema franklin.melgarejo
Fecha de inicio 31 Dic 2014

franklin.melgarejo

New member

31 Dic 2014

Buenas saludos con todos y feliz año

Soy nuevo en este foro la verdad estoy teniendo un problema con una macro que me pasaron para poder extraer datos de unas tablas de excel, se muy poco de VBA...

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

Ayuda con Macros

Respuestas: 6

17 Jul 2026

Víctor1

Pregunta

macros ayuda

Respuestas: 5

16 Dic 2025

FGV

Pregunta

Ayuda con Macros

Respuestas: 1

25 Abr 2025

Goldfinger

Pregunta

ayuda en activar Las macros

Respuestas: 1

3 Jul 2024

JasallBcn

Pregunta

Ayuda con macros (?)

Respuestas: 3

24 May 2024

guitsu

Pregunta

AYUDA!! Documento no van las macros de repente :(

Respuestas: 3

15 Sep 2023

Bicram

Resuelto

Ayuda de Macros

Respuestas: 2

28 Ago 2023

Martha Canul

Resuelto

Seguridad contra pirateo usando macros hoja de excel ayuda!!

Respuestas: 12

9 Ago 2023

Ramon B

Resuelto

Ayuda Formulario y Macros

Respuestas: 5

14 Abr 2023

Josue Alba

Pregunta

Ayuda con macros

Respuestas: 5

13 Mar 2023

Abraham.Valencia

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