MACROS BUSCAR OBJETIVO AUTOMÁTICAMENTE

Se adjunta datos de la Macro.



Sub Macro1()

Dim I As Integer
For I = 14 To 30

Range("BD" & I).Select
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("BD" & I).GoalSeek Goal:=0, ChangingCell:=Range("AO" & I)
Next



End Sub


COMENTARIOS:

EN ESTE CASO 14 SERÍA EN EL NÚMERO DE FILA QUE COMIENZO Y 30 SERÍA HASTA DONDE QUIERO LLEGAR. NOTA PARA QUE NO SALGA DEPURAR DEBERÍA INVOLUCRAR EL NÚMERO DE CELDAS (RECUENTO-1)
BD SERÍA LA COLUMNA DE LA VERIFICACIÓN (FACTOR DE FRICCIÓN TEST )
I SERÍA UN CONTADOR
AO SERÍA LA CELDA QUE QUIERO CAMBIAR (FACTOR DE FRICCIÓN)
A VECES SE REPITE END SUB ELIMINAR