Hola a todos Tengo una secuencia de programacion que considera 2 variables i y F, donde i y f corresponde a columnas que se entrelazan con la filas, las mismas que al estar seleccionadas permiten copiar un archivo xls desde una carpeta a otra, adicionalmente se cambia el nombre, la misma funciona para varios valores de i y f pero para un valor en particular no permite ejecutar dicha secuencia. El gestor de errores remarca en amarillo la frase siguiente: Name (destino_copiar & "SGC-P-01-G6-F12 Ver 01.xls") As (destino_copiar & "G6F12-2011" & ".xls") Indicando que el archivo ya existe, no se puede grabar, como se indica para otros valores, p.e. i =6 and f = 11, la secuencia funciona correctamente, al revisar en al carpeta destino se observan dos archivos ("SGC-P-01-G6-F12 Ver 01.xls y G6F12.xls), solo debe quedar "G6F12-2011.xls". Lo que se busca es que para diferentes valores de i y f, p.e. I = Columna B f = Columna A se toma como referencia el valor asociado a la columna A y combina los valores de i y f si coincide con lo indicado en la secuencia ejecuta, p.e.: A B C 001 6 11 002 6 12 003 6 10 004 6 12 005 6 11 Se observa que para este caso deberian haber 5 archivo excel, pero al final con la secuencia solo debe aparecer 3 archivo, ello ocurre para 2 valores pero para el caso particular aparece un mensaje de error. Indico a continuacion la secuencia: Sub generar_archvos() dim origen_copiar, destino_copiar as string If i = 6 And f = 11 Then origen_copiar = "C:\Mis documentos\1 formatos\01 Area 1\G 6\" destino_copiar = "C:\Mis documentos\Logistica\01 Informe\G 6\" If Dir$(destino_copiar & "G6F11-2011" & ".xls") = "" Then fso.CopyFile (origen_copiar & "SGC-P-01-G6-F11 Ver 01.xls"), destino_copiar Name (destino_copiar & "SGC-P-01-G6-F11 Ver 01.xls") As (destino_copiar & "G6F11-2011" & ".xls") End If end If If i = 6 And f = 12 Then origen_copiar = "C:\Mis documentos\1 formatos\01 Area 1\G 6\" destino_copiar = "C:\Mis documentos\Logistica\01 Informe\G 6\" If Dir$(destino_copiar & "G6F12-2011" & ".xls") = "" Then fso.CopyFile (origen_copiar & "SGC-P-01-G6-F12 Ver 01.xls"), destino_copiar Name (destino_copiar & "SGC-P-01-G6-F12 Ver 01.xls") As (destino_copiar & "G6F12-2011" & ".xls") End If end If End sub Espero poder contar con vuestra ayuda

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.

Mensaje de error en secuencia

Autor del tema jcastillom
Fecha de inicio 12 Feb 2011

jcastillom

New member

12 Feb 2011

Hola a todos

Tengo una secuencia de programacion que considera 2 variables i y F, donde i y f corresponde a columnas que se entrelazan con la filas, las mismas que al estar seleccionadas...

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

Macro se cierra al ejecutarla sin arrojar ningún mensaje de error

Respuestas: 7

9 May 2023

chootye

Pregunta

Mensaje de error si texto inadecuado en TextBox (UserForm)

Respuestas: 5

8 Nov 2022

Goldfinger

Resuelto

Error mensaje en boton suma, promedio maximo y minimo

Respuestas: 4

5 Jun 2022

fdbchp

Resuelto

Actualizar Tablas Dinamicas y mensaje de error

Respuestas: 4

9 Dic 2021

edp

Pregunta

Cambiar el mensaje de error 91

Respuestas: 10

8 May 2020

telares

Pregunta

Mensaje de error al ejecutar una macro

Respuestas: 4

17 Nov 2017

JoseLinaresA

Pregunta

Mensaje de error definido por la aplicacion o el objeto

Respuestas: 3

12 Jun 2017

Cacho R

Pregunta

mensaje error 13

Respuestas: 4

18 Ago 2016

Macro Antonio

Pregunta

mensaje de error al abrir una hoja excel

Respuestas: 0

14 Jul 2016

Miguel Angel 1

Pregunta

SOLUCION POR MENSAJE DE ERROR

Respuestas: 1

19 May 2016

miguelMartin

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