Saltar al contenido

Vínculos no actualizables


Invitado Wiru

Recommended Posts

Hola a todos.

Os estaría muy agradecido si pudierais orientarme en esta duda que tengo:

Un libro con 5 hojas que estoy construyendo llamado "Piezas", tiene en una de las hojas una macro que crea una copia de sí mismo con otro nombre (Articulos) y lo salva al disco duro. La macro que realiza esa tarea y otras macros más que se encuentran en la misma hoja "Piezas" tienen código para no transferirse a la copia. Es decir la copia que se genera cuando pulso el botón de "copiar libro" son 5 hojas que carecen de todas las macros del libro origen. Solo contienen datos.

En la hoja numero hay un boton de formulario con una macro que sí necesito que se copie al nuevo libro. Es el único que debe copiarse.

Lo he conseguido perfectamente, pero cuando ejecuto el libro copiado (Articulos), y ejecuto la macro transferida del original, Excel 2010 me avisa de que ese libro contiene vinculos a otro origen y que uno o mas vínculos no pueden actualizarse.

Puedo entonces escoger del menu que aparece "Actualizar" o "No actualizar", pero quisiera que no me preguntara nada, ya que realmente la hoja copia es autónoma y no tiene nada que buscar ni leer de la original.

¿Que solución, a nivel de código en la macro, tendría este pequeño inconveniente?.

Espero haberme explicado bien. Gracias por la respuesta.

Enlace a comentario
Compartir con otras webs

Gracias. He probado a colocarlo en distintos lugares del código y no me funciona. Cuando ejecuto la hoja replicada me sigue diciendo que tiene vínculos con la hoja original.

Enlace a comentario
Compartir con otras webs

Hola a todos.

Aquí subo un ejemplo.

El libro "Piezas" consta de dos hojas a saber "Piezas" y "Probar". Al pinchar en el botón de la primera, la macro que contiene crea un libro llamado "Articulos" que es una copia exacta de "Piezas" solo que sin la macro que crea la copia de la hoja "Piezas". La hoja "Probar" contiene una macro en un botón que al pincharlo escribe la palabra "PRUEBA" en la celda

E7.

En el libro recien creado (Articulos), si mirais, vereis que la hoja "Piezas" carece de macros, pero la hoja "Probar" contiene la que contenía en el libro "Piezas". Esta no ha sido borrada.

Borrar o renombrar el archivo "Piezas.xlsm" y ejecutar "Articulos.xlsm", nos indicará que tiene vínculos con un archivo que no encuentra y aunque poderemos ignorar el mensaje o deshacer a posteriori esos vín culos, lo que necesito es que la macro de la hoja "Probar" del libro "Articulos" funcione de forma autónoma. Que mediante algún código en la macro, no me dé ningún mensaje sobre los vinculos que tiene o tuvo con el original "Piezas".

He intentado explicarlo lo mejor posible.

Gracias por la ayuda.

Piezas.zip

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 96 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      177
    • Comentarios
      90
    • Revisiones
      27

  • Crear macros Excel

  • Mensajes

    • Hola, Mejor que subas un archivo que contenga esas fórmulas, indicando qué resultados esperas conseguir. Así ayudas a quien quiera ayudarte; no le obligas a que reproduzca ese modelo, y de paso podrá ver cuál es el objetivo buscado con esa/s fórmula/s. Saludos,
    • Buenas noches quisiera hacer esta formula auto incremental    =SI(INDIRECTO("'Casos de Prueba'!I1")="Resultados Ciclo 1"; SI(CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")=0; 0; CONTAR.SI(INDIRECTO("'Casos de Prueba'!I:I"); "OK")); 0)      para que cada vez que copiase y pegase la celda con la formula  se incrementara la letra en este caso la I pasara a J ,como el numero perteneciente a Resultados Ciclo pasando en este caso del 1 al 2.   Tengo también esta formula =CONCATENAR("CP";TEXTO(MAX((SI((ESNUMERO(HALLAR("CP";A$1:A1)))*(A$1:A1<>"");VALOR(EXTRAE(A$1:A1;3;3));0))+1);"000")&" - "&B2) quisiera que no tuviera los 3 ceros si no que fuera por ejemplo CP1 y se fuera incrementando. Gracias un saludo.
    • Con el diseño así como lo tiene en su libro, una fórmula de BUSCARV con COINCIDIR debería ser de utilidad =C5*BUSCARV($C$1,Tabla1[#Todo],COINCIDIR($D5,Tabla1[#Encabezados],0)) Es con lo que participaría en su consulta. Lo que resta es definir que hacer si no encuentra la OT porque así como esta le devolvería error en ese caso, o si tiene condiciones que haya podido omitir también le afectarían el resultado.
    • He cambiado mi macro a este: Sub repetir() Set a = Sheets(ActiveSheet.Name) uf = a.Range("C" & Rows.Count).End(xlUp).Row 'ultima fila con datos ActiveCell.Select ActiveCell.Offset(1, 0).Select   'Application.OnTime Now + TimeValue("00:00:10"), "repetir", , True End If End Sub   Lo que no se es como detenerlo al llegar a la ultima fila con datos de la columna C. Muchas gracias
    • Buenas tardes a todos. Tengo un problema que preciso de vuestra ayuda.  Tengo que controlar los gastos de la oficina que trabajo y he de repartir unos gastos a % según una OT y unos tipos de gastos. Envío un archivo adjunto. Lo que necesito es que lo que aparece en la columna en amarillo lo haga automáticamente, teniendo en cuenta los datos de la tabla a la derecha. Por ejemplo, el primer gasto tiene una cuota de 1477 euros y teniendo en cuenta que es un gasto de tipo Común y que la OT es la 12810234, le corresponde un gasto de 605,57 euros ya que según la tabla de la derecha su % a imputar es de un 41%. ¿alguien me puede ayudar con la formula? He de añadir muchas más líneas y más hojas con el resto de OT y en el futuro cambiar más datos, así que necesito automatizarlo con una formula Excel. Gracias. Control de gastos.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.