Anónimo
Macro a todos los libros a hoja especifica
Oie diculpa la molestia, jejeje, lo que pasa es que me gustaria saber como aplicar una macro sencilla pero a todos los libros de excel que tenga abiertos en LA HOJA DE "TOTALES", que viene siendo la segunda hoja, esta es la rutina:
Sub incremento_de_metal_y_1_de_operatin()
If Range("L69").Value = "" Then
Cells(71, 7).Value = "=(SUMIF(Bom!F:F,""metal"",Bom!M:M))*(1+L69)"
Cells(69, 11).Value = "Metal increase:"
With Cells(69, 12)
.Value = 0.35
.NumberFormat = "0%"
End With
If Cells(43, 4).Value < 0.49 Then
Cells(43, 4).Value = Cells(43, 4).Value + 0.01
End If
Columns("K:K").EntireColumn.AutoFit
End If
Calculate
End Sub
Es practicamente reemplazar formulas y valores...
Sub incremento_de_metal_y_1_de_operatin()
If Range("L69").Value = "" Then
Cells(71, 7).Value = "=(SUMIF(Bom!F:F,""metal"",Bom!M:M))*(1+L69)"
Cells(69, 11).Value = "Metal increase:"
With Cells(69, 12)
.Value = 0.35
.NumberFormat = "0%"
End With
If Cells(43, 4).Value < 0.49 Then
Cells(43, 4).Value = Cells(43, 4).Value + 0.01
End If
Columns("K:K").EntireColumn.AutoFit
End If
Calculate
End Sub
Es practicamente reemplazar formulas y valores...
1 Respuesta
Respuesta de newmodel
1
Con un blucle solucionas tu problema:
Necesitas Escribir en una lista el nombre de los libros que quieres actualizar... Ejemplo:
En el rango x1
Parte1.xls
En el rango x2
Parte2.xls
Y así sucesivamente...
Ahora Escribes este código:
Sub Actualiza ()
on error resume next
For i = 1 to range("X1").END(XlDown).row
libro = cells(i,24)
windows(libro).activate
sheets("TOTALES").select
'ahora llamas a tu macro:
incremento_de_metal_y_1_de_operatin
next
end sub
Te recomiendo que corras la macro paso a paso, es decir presionando F8 para que veas como se va ejecutando, cualquier duda no dudes en consultarme...
Necesitas Escribir en una lista el nombre de los libros que quieres actualizar... Ejemplo:
En el rango x1
Parte1.xls
En el rango x2
Parte2.xls
Y así sucesivamente...
Ahora Escribes este código:
Sub Actualiza ()
on error resume next
For i = 1 to range("X1").END(XlDown).row
libro = cells(i,24)
windows(libro).activate
sheets("TOTALES").select
'ahora llamas a tu macro:
incremento_de_metal_y_1_de_operatin
next
end sub
Te recomiendo que corras la macro paso a paso, es decir presionando F8 para que veas como se va ejecutando, cualquier duda no dudes en consultarme...