08/Ene/09 17:30
Repetir Macro en una seleccion
Hola buenas tardes he estado trabajando en en algunos calculos sobre impuestos y bueno tengo una base de datos demasiado grande, porfin he podido hacer un calculo inverso de nomina utilizando la funcion 'Buscar Objetivo' de Excel, sin embargo quiero hacer una macro en la que me aplique dicha funcion a un rango seleccionado. En este memonto me atore y no se hacer mas para que la macro se siga ejecutando en los demas renglones de la seleccion.
Asi es como la tengo actualmente:
' BuscarCeros Macro
'
'
Range(Selection, Selection.End(xlDown)).Select
Range('AZ7').GoalSeek Goal:=0, ChangingCell:=Range('AW7')
Range('AZ7:AZ223').Select
Range('AZ8').Activate
Range('AZ8').GoalSeek Goal:=0, ChangingCell:=Range('AW8')
Range('AZ7:AZ223').Select
Range('AZ9').Activate
Range('AZ9').GoalSeek Goal:=0, ChangingCell:=Range('AW9')
Range('AZ7:AZ223').Select
Range('AZ10').Activate
Range('AZ10').GoalSeek Goal:=0, ChangingCell:=Range('AW10')
Range('AZ7:AZ223').Select
Range('AZ12').Activate
Range('AZ12').GoalSeek Goal:=0, ChangingCell:=Range('AW12')
End Sub
En donde lo que rquiero es que me cambie el nombre/numero de renglo y la vuelva a ejecutar mi celdas estan de la siguiente forma:
AV7 = Salario Neto pagado
AW7 = Valor Buscado (es decir el salario base)
AX7 = Calculo de IMSS
AY = Calculo de ISR
AZ = Valor buscado (AW7) - IMSS (AX7) - ISR (AY7) - AV7, de esta manera estoy buscando un valor de Cero, que es lo que ocupo en mi operacion de 'Buscar Objetivo'.
Mi problema es que no puedo hacer la macro en la cual 'Busque Objetivo', pase al siguiente renglo y 'Busque Objetivo', y asi sucesibamente hasta llegar al final de mi seleccion (renglon AZ223 para este caso).
Lo quiero hacer con macros porque necesito hacerlo con 14 archivos de 200 registros cada uno :-S
Gracias por la ayuda.
El Imperio no tiene ningun interes en Venezuela, Darth Vader.