JESPINA
20 de Diciembre del 2003

Hola amigos,

Quisiera realizar un bucle para un rango de celdas con la función goalseek abajo indicada.

¿Alguien puede echarme un cable?

Muchas gracias......

Range("AB3").Select
Range("AB3").GoalSeek goal:=Range("AC3"), changingcell:=Range("T3")
Range("X1").Select

Jose Oscar Alonso
20 de Diciembre del 2003

asi te mueves en las celdas

Cells(Fila , Columna)

for celda= 1 to 20
Worksheets.item(1).cells(celda,1).interior,color=qbcolor(int(rnd * 14 ) +1
next

Con esto le agregas color a las celda, luego adaptalo a tus necesidades para hacer el bucle en la hija y en la celda que queres asignandole el valor que quieras

Un Saludo
Jose Oscar