For... Next

OJO, hablas/mencionas FOR-NEXT, pero envias un ¿ejemplo? con FOR-EACH

Sobre un "articulo" respecto a FOR-NEXT, intentaste al menos ver en la
ayuda del VBA? Usaste google para buscar algo al respecto? Te diste
una "vueltita" por el MSDN "en linea" de microsoft?

Abraham

Que tal..

Si lei algunos ejemplos ("solo ejemplos"), tambien use la ayuda de VBA pero
no encontre algo que fuera claro para personas principiantes (o para personas
que le podamos entender).

Sobre el ejemplo. Es por eso que quiero aprender mas, para ver las
diferencias y sus aplicaciones.

Muchas gracias

"Abraham" wrote:

OJO, hablas/mencionas FOR-NEXT, pero envias un ¿ejemplo? con FOR-EACH

Sobre un "articulo" respecto a FOR-NEXT, intentaste al menos ver en la
ayuda del VBA? Usaste google para buscar algo al respecto? Te diste
una "vueltita" por el MSDN "en linea" de microsoft?

Abraham

Pues mas facil (para principiantes) que lo de la ayuda del VBA, pues,
no entiendo que es lo que buscas :(

En la ayuda tambien viene una explicacion de FOR-EACH, cuestion de
leer ambos para encontrar las diferencias.

En todo caso, yo recomiendo leer mas atento, y quizas bajarte este
manual:

http://www.geocities.com/excelmx/ManualMacros.pdf

Abraham

Hola,

Revisa las modificaciones que he realizado,
Una definir las variables que empleas cone los tipos adecuados,
Dos cuando asignes algo a una celda dentro del bucle asegurate de hacerlo a
esa celda no a la celda activa, que podría ser cualquiera.
Tres cuando empleas comillas en una fórmula hay que escribirlas duplicadas.
Comprueba que es inevitable hacerlo por medio de un bucle,

prueba a escribir algo parecido a esto
trango.formula="=IF(D2=0,"""",INDEX(E:E,SUMPRODUCT(MAX(ROW(D$2:D2)*(D$2:D2Ò-1)))))""

escribirá la fórmula en todo el rango.

Y un detalle más hay fórmulas de las de 'arrastrar' que en el estilo fila
columna (FC, o RC) son iguales en todas las filas, como es el caso de la
tuya, y podría resultar más 'sencillo' referirla a este estilo.

Un saludo,
Juan


Sub dos()
Dim Celda As Range
Dim trango As Range

Range("d65536").End(xlUp).Offset(0, -1).Value = "fin"
Range("c2").Select
Set trango = Range(ActiveCell, ActiveCell.End(xlDown))
For Each Celda In trango
Celda.Formula = _
"=IF(D2=0,"""",INDEX(E:E,SUMPRODUCT(MAX(ROW(D$2:D2)*(D$2:D2Ò-1)))))"
Next
End Sub

"Manny_90" escribió

Que tal.

Me gustaria aprender mas sobre como crear bucles con For.. Next. Si saben
de
algun buen articulo eso me serviria muchisimo.

Hice un ejercisio pero no funciona, en la linea de "ActiveCell.Formula" me
sale un error '1004' Aplication defined or object defined error.


La formula esta bien, sin el macro la arrastro a todas las celdas y no
tiene
ningun problema.





sub uno()
Range("d65536").End(xlUp).Offset(0, -1).Value = "fin"
Range("c2").Select
Set trango = Range(ActiveCell, ActiveCell.End(xlDown))
For Each Cell In trango
ActiveCell.Formula > "=IF(D2=0,"",INDEX(E:E,SUMPRODUCT(MAX(ROW(D$2:D2)*(D$2:D2Ò-1)))))"

Next
End Sub


mUCHAS GRACIAS