Como automatizar una macro

15/02/2018 - 19:37 por cpjavierchg | Informe spam
¡ Hola !
Quisiera saber si alguien pudiera orientarme en como hacer que la macro un archivo, se repita aumaticamente.

Sub BuacarObjetivo()

Dim objetivon As Double

objetivo = InputBox("Importe:")
Range("H4").GoalSeek Goal:=objetivo, ChangingCell:=Range("B4")
objetivo = InputBox("Importe:")
Range("H5").GoalSeek Goal:=objetivo, ChangingCell:=Range("B5")
objetivo = InputBox("Importe:")
Range("H6").GoalSeek Goal:=objetivo, ChangingCell:=Range("B6")
objetivo = InputBox("Importe:")
Range("H7").GoalSeek Goal:=objetivo, ChangingCell:=Range("B7")
objetivo = InputBox("Importe:")
Range("H8").GoalSeek Goal:=objetivo, ChangingCell:=Range("B8")
objetivo = InputBox("Importe:")
Range("H9").GoalSeek Goal:=objetivo, ChangingCell:=Range("B9")
objetivo = InputBox("Importe:")
Range("H10").GoalSeek Goal:=objetivo, ChangingCell:=Range("B10")
objetivo = InputBox("Importe:")
Range("H11").GoalSeek Goal:=objetivo, ChangingCell:=Range("B11")
objetivo = InputBox("Importe:")
Range("H12").GoalSeek Goal:=objetivo, ChangingCell:=Range("B12")
objetivo = InputBox("Importe:")
Range("H13").GoalSeek Goal:=objetivo, ChangingCell:=Range("B13")
objetivo = InputBox("Importe:")
Range("H14").GoalSeek Goal:=objetivo, ChangingCell:=Range("B14")
objetivo = InputBox("Importe:")
Range("H15").GoalSeek Goal:=objetivo, ChangingCell:=Range("B15")
objetivo = InputBox("Importe:")

End Sub

Se trata de buscar el objetivo de la columna J, en base a modificar el importe de la columna B. La macro despliega un inbox que pide el importe objetivo.
Entonces necesito que haga dos cosas:
1.- Que por un lado se repita las veces necesarias de acuerdo al numero de filas, que puede variar mucho, y
2.- Que no necesite desplegar el inbox para teclear el importe objetivo, sino que busque en automatico el importe de la columna J, y que realize la busqueda de los valores de dicha columna hasta igualar los valores de la columna H con los valores objetivo de la columna J, con solo puchar el boton una vez.
Como no supe como decirle a la macro como ir pasando de renglon en renglon, copie el mismo codigo las veces necesarias para cubrir todo el rango, pero si se necesitaran muchas mas filas, entonces seria un problema.

Gracias por su atencion
 

Preguntas similares