Esta macro no fue creada por mi, lo que hace básicamente es que copia un rango datos de un sin fin de pestañas a otras varias, en las pestañas sin fin tienen en comun un numero ej. 123008 y en otras 123009 que seran las los numeros de las pestañas nuevas donde se necesita acomodar el rango de datos seleccionados de cada pestaña. Pero al iniciarla esta me genero un error "run time error 9". El cual no logro comprender a que se debe, se que es algo grande pero seria de mucha ayuda si me ayudaran a identificar el problema. Quedo atento a sus comentarios. Esta es la macro, muchas gracias Sub Copiar() ' ' Copiar Macro ' Application.DisplayAlerts = False Dim n As Range Sheets("Sheet1").Select ActiveSheet.Unprotect Password:="qwerty" fecha = Format(InputBox("Ingrese fecha de proceso" & Chr(13) _ & "dia/mes/año", "FECHA REGISTRO"), "dd/mm/yy") Range("S1") = fecha escritorio = Range("Z2").Value axapta = Range("Z3").Value ChDir escritorio Workbooks.Open Filename:=Application.GetOpenFilename("Hoja Excel, *.xls*", _ , "Archivo") milibro = ActiveWorkbook.Name Name = ActiveSheet.Name Sheets(Name).Select Sheets(Name).Copy After:=Workbooks("Banco.xlsm").Sheets(1) Windows(milibro).Activate aa = Sheets.Count bb = aa - 1 ActiveSheet.Next.Select Windows("Banco.xlsm").Activate Sheets("Sheet1").Select For b = 1 To bb Windows(milibro).Activate Range("B6").Select Selection.Copy Windows("Banco.xlsm").Activate Sheets("Sheet1").Select Range("G1").Select ActiveSheet.Paste hoja = Range("G1").Value If Range("G1").Value = 1 Then Windows(milibro).Activate ultimafila = Range("A300000").End(xlUp).Row ultimafila = ultimafila - 3 Cells(ultimafila, 6).Select campo = ActiveCell.Address Range("A8").Select Range(Selection, campo).Select Selection.Copy Windows("Banco.xlsm").Activate Sheets(hoja).Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 1).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False ultimafila = Range("f300000").End(xlUp).Row Cells(ultimafila, 13).Select zzz = ActiveCell.Address Windows(milibro).Activate Application.CutCopyMode = False Range("E6").Select Selection.Copy Windows("Banco.xlsm").Activate ultimafila = Range("M300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 13).Select Range(Selection, zzz).Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Windows(milibro).Activate Application.CutCopyMode = False If b <> bb Then ActiveSheet.Next.Select End If Else Windows(milibro).Activate If b <> bb Then ActiveSheet.Next.Select End If End If Next b Windows(milibro).Activate ActiveWindow.Close False Windows("Banco.xlsm").Activate Sheets("10122020").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123001").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123002").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123004").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123005").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123007").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets("10123008").Select ultimafila = Range("F300000").End(xlUp).Row ultimafila = ultimafila + 1 Cells(ultimafila, 7).Select campo = ActiveCell.Address Range("G2:L2").Select Selection.Copy Range("G3").Select Range(Selection, campo).Select ActiveSheet.Paste Application.CutCopyMode = False Sheets(Array("Page_Resumen_1", "10122020", "10123001", "10123002", "10123004", "10123005", "10123007", _ "1012308")).Copy Sheets(Array("Page_Resumen_1", "10122020", "10123001", "10123002", "10123004", "10123005", "10123007", _ "1012308")).Select Selection.Copy Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Windows("Banco.xlsm").Activate Sheets("Sheet1").Select ActiveSheet.Protect Password:="qwerty", _ DrawingObjects:=True, Contents:=True, Scenarios:= _ True, AllowFormattingCells:=True, AllowFormattingColumns:=True, _ AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _ :=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _ AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _ AllowUsingPivotTables:=True MsgBox "Archivo Finalizado con EXITO", vbOKOnly + vbInformation, "BANCOS AXAPTA" 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.

Run Time Error 9

Autor del tema Lhernan20
Fecha de inicio 19 Jun 2017

Lhernan20

New member

19 Jun 2017

Esta macro no fue creada por mi, lo que hace básicamente es que copia un rango datos de un sin fin de pestañas a otras varias, en las pestañas sin fin tienen en comun un numero ej. 123008 y en...

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

Run-Time Error '13' Type Mismatch

Respuestas: 2

30 Sep 2021

MBUSH

Pregunta

Run-time error '3265'

Respuestas: 5

22 Jun 2021

Protostecnologia

Pregunta

String Parameter too long!! Error Run time Error "5854"

Respuestas: 6

20 Sep 2020

Sergiorvn

Pregunta

Run Time Error-'91' | Error Macro

Respuestas: 0

13 Jun 2018

victor.rojo

Pregunta

Run-time error '91':

Respuestas: 0

16 May 2018

Efr.Josh

Pregunta

Run-time error '9': Subscript out of range

Respuestas: 4

3 Abr 2018

Efr.Josh

Pregunta

Run time error ar copiar datos de otro archivo

Respuestas: 2

4 May 2017

Cacho R

Pregunta

Run time-error 1004 Application-defined or object-defined er

Respuestas: 1

9 Mar 2017

Macro Antonio

Pregunta

run-time error '-2147352571 (80020005)'

Respuestas: 3

31 Oct 2013

Overlin

Pregunta

Run-time error '1004'Can't move focus th the control because

Respuestas: 0

19 Sep 2012

jesusdaa1

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