Macros De Excel

Este es el macro con el que trabaja todos los dias:
Sub VariaciónFogafín()
'
' VariaciónFogafín Macro
' Sirve para hacer el cuadro de V.Fogafín que se envía a los centros.
'
'
Windows("PRUEBA2530.XLS").Activate
Range("B2:F603").Select
Selection.ClearContents
Range("B2").Select
Windows("2530EXT.21MAR.XLS").Activate
Range("A2:E581").Select
Selection.Copy
Windows("PRUEBA2530.XLS").Activate
ActiveSheet.Paste
Range("B2").Select
Windows("buscador.xls").Activate
Sheets("Donde").Select
Range("A2:B536").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A2").Select
Windows("PRUEBA2530.XLS").Activate
Range("A2:A603").Select
Selection.Copy
Windows("buscador.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B2").Select
Windows("PRUEBA2530.XLS").Activate
Application.CutCopyMode = False
Range("E2:E603").Select
Selection.Copy
Windows("buscador.xls").Activate
ActiveSheet.Paste
Range("B2").Select
Sheets("Que Busca").Select
ActiveWindow.LargeScroll Down:=-1
Range("C910").Select
ActiveWindow.LargeScroll Down:=-1
Range("C887").Select
ActiveWindow.LargeScroll Down:=-1
Range("C864").Select
ActiveWindow.LargeScroll Down:=-1
Range("C841").Select
ActiveWindow.LargeScroll Down:=-1
Range("C818").Select
ActiveWindow.LargeScroll Down:=-1
Range("C795").Select
ActiveWindow.LargeScroll Down:=-1
Range("C772").Select
ActiveWindow.LargeScroll Down:=-1
Range("C749").Select
ActiveWindow.LargeScroll Down:=-1
Range("C726").Select
ActiveWindow.LargeScroll Down:=-1
Range("C703").Select
ActiveWindow.LargeScroll Down:=-1
Range("C680").Select
ActiveWindow.LargeScroll Down:=-1
Range("C657").Select
ActiveWindow.LargeScroll Down:=-1
Range("C634").Select
ActiveWindow.LargeScroll Down:=-1
Range("C611").Select
ActiveWindow.LargeScroll Down:=-1
Range("C588").Select
ActiveWindow.LargeScroll Down:=-1
Range("C565").Select
ActiveWindow.LargeScroll Down:=-1
Range("C542").Select
ActiveWindow.LargeScroll Down:=-1
Range("C519").Select
ActiveWindow.LargeScroll Down:=-1
Range("C496").Select
ActiveWindow.LargeScroll Down:=-1
Range("C473").Select
ActiveWindow.LargeScroll Down:=-1
Range("C450").Select
ActiveWindow.LargeScroll Down:=-1
Range("C427").Select
ActiveWindow.LargeScroll Down:=-1
Range("C404").Select
ActiveWindow.LargeScroll Down:=-1
Range("C381").Select
ActiveWindow.LargeScroll Down:=-1
Range("C358").Select
ActiveWindow.LargeScroll Down:=-1
Range("C335").Select
ActiveWindow.LargeScroll Down:=-1
Range("C312").Select
ActiveWindow.LargeScroll Down:=-1
Range("C289").Select
ActiveWindow.LargeScroll Down:=-1
Range("C266").Select
ActiveWindow.LargeScroll Down:=-1
Range("C243").Select
ActiveWindow.LargeScroll Down:=-1
Range("C220").Select
ActiveWindow.LargeScroll Down:=-1
Range("C197").Select
ActiveWindow.LargeScroll Down:=-1
Range("C174").Select
ActiveWindow.LargeScroll Down:=-1
Range("C151").Select
ActiveWindow.LargeScroll Down:=-1
Range("C128").Select
ActiveWindow.LargeScroll Down:=-1
Range("C105").Select
ActiveWindow.LargeScroll Down:=-1
Range("C82").Select
ActiveWindow.LargeScroll Down:=-1
Range("C59").Select
ActiveWindow.LargeScroll Down:=-1
Range("C36").Select
ActiveWindow.LargeScroll Down:=-1
Range("C13").Select
ActiveWindow.LargeScroll Down:=-1
Range("C2:C955").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C2").Select
Application.Run "buscador.xls!Buscar1"
Range("C2").Select
Sheets("Variación").Select
Range("E6").Select
ActiveCell.FormulaR1C1 = " Ext."
Range("E7:E960").Select
Selection.ClearContents
Range("D7:D960").Select
Selection.ClearContents
Range("E7").Select
Sheets("Que Busca").Select
Range("C2:C955").Select
Selection.Copy
Sheets("Variación").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("E7").Select
Windows("PRUEBA2530.XLS").Activate
Range("B2:F603").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B2").Select
Windows("2530PROV.28MAR..XLS").Activate
Range("A2:E570").Select
Selection.Copy
Windows("PRUEBA2530.XLS").Activate
ActiveSheet.Paste
Range("B2").Select
Windows("buscador.xls").Activate
Sheets("Donde").Select
Range("A2:B603").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A2").Select
Windows("PRUEBA2530.XLS").Activate
Range("A2:A603").Select
Selection.Copy
Windows("buscador.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B2").Select
Windows("PRUEBA2530.XLS").Activate
Application.CutCopyMode = False
Range("D2:D603").Select
Selection.Copy
Windows("buscador.xls").Activate
ActiveSheet.Paste
Range("B2").Select
Sheets("Que Busca").Select
Range("C2:C955").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("C2").Select
Application.Run "buscador.xls!Buscar1"
Range("C2").Select
Sheets("Variación").Select
Range("D7").Select
Sheets("Que Busca").Select
Range("C2:C955").Select
Selection.Copy
Sheets("Variación").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A7:I960").Select
Application.CutCopyMode...

1 respuesta

Respuesta
1
Para que la macro funcione preguntando los nombres de los archivos tienes que suibstituir los nombres de los archivos por una variable, la cual preguntará su valor al principio. Vamos a la practica:
Primero hay que declarar las variables para los nombres de los archivos y a continuacion tienes que preguntar los nombres de estos archivos. Por ejemplo, la macro podria comenzar así:
Sub VariaciónFogafín()
'
' VariaciónFogafín Macro
' Sirve para hacer el cuadro de V.Fogafín que se envía a los centros.
'
'
Dim Archivo1 as String
Dim Archivo2 as String
Archivo1 = InputBox("Escribe el nombre del archivo 1")
Archivo2 = InputBox("Escribe el nombre del archivo 2")
Finalmente solo tienes que susbstituir los nombres de los archivos por sus variables correspondientes, por ejemplo cambiar siempre que aparezca:
"2530EXT.21MAR.XLS"
Por:
Archivo1

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Error 1004 en tiempo de ejecución al importar datos de un fichero excel a otro mediante una macro

Estoy intentando importar datos de un fichero excel a otro mediante una macro. El problema lo tengo al pegar, ya que necesito pegar tanto el formato como los datos, así que lo hago con 2 "paste's", uno para el estilo y otro para los valores. Al hacer...
2 respuestas

Introducir datos desde libro abierto ha cerrado...

Quiro saber el código que necesitaría para poder mediante un botón por ejemplo, pasar los datos de ciertas celdas a ciertas celdas de otro libro excel que estará cerrado. Y cada vez que pulse en el botón para copiar un nuevo dato que me lo copie en...
1 respuesta

Ejecutar macro en varios archivos

Tengo que ejecutar la siguiente macro en varios archivos de diferente directorio, como la modifico para que lo realice sin tener que ejecutarla archivo por archivo. Aclaro que voy a copiar em mismo rango de datos de los diferentes archivos en uno...
1 respuesta