Código:

Sub Ocultar_Filas()
Application.ScreenUpdating = False
With Sheets("prog.")
fin = .Range("b65536").End(xlUp).Row
For i = 8 To fin
Total = .Cells(i, 2)
If Total = 0 Then
.Cells(i, 2).EntireRow.Hidden = True
End If
Next
End With
Application.ScreenUpdating = True
End Sub


hola gente del foro(disculpen que pongo esto al final y no al principio)como estan?adjunto archivo ejemplo de lo que preciso;espero se entienda;gracias

Hola rubito1.

No necesitas modificar nada, borra tu fórmula e ingresa tus datos directamente.
Mientras sigas copiando y pegando códigos, jamás avanzarás.

Saludos
Ignacio Téllez

hola igtelo,no entiendo tu planteo;no estoy copiando y pegando solamente;hablo de que ,ya que aun "no se programar"y trato de "analizar" las cosas que uds me proporcionan (que realmente son geniales y las agradezco)para asi ir aprendiendo y tratando de entender esos codigos;aca interpreto que debo reemplazar en donde dice total=...por un comando que indique el lugar de la celda o algo asi,pero lo desconozco,asi que por eso solicito vuestra colaboracion;si te parece que no corresponde darmela ,bueno,tratare de entendertelo y aceptarlo asi,sin dejar de agradecer igual tu ayuda

Bien rubito1.

Si realmente lo estás desarrollando tú y quieres saber como trabaja, abre 2 ventanas y lo ejecutas por pasos con tecla F8 dentro de VB y pones el cursor sobre las "variables" fin y total y te irá saliendo los valores que va tomando después de cada ciclo, i es un ciclo.

Sino sabes como abrir las 2 ventanas ve el aporte que hice de ordenar en celda y baja el archivo que dice pasos.

Con ello te aclarará como trabaja la macro, hazlo las veces que sea necesario y te aseguro que lo comprenderás y lo mejor nos podrás regalar la explicación línea por línea de la macro.

Por otro lado revisa el archivo que subiste y ve que tu explicación está mal.

Ojalá mañana nos des la explicación.

Saludos
Ignacio Téllez

tenes razon;1)esta mal expresada la consulta ya que hace todo ok.2)excelente,puse el cursor y fui viendo como actua paso x paso,encontrando el valor de cada fila en cada paso i=fila,total=valor que habia en cada fila y en caso de ser cero la elimina)sos un capo forzando a uno a "razonar"(jejeje)gracias !!cierro el tema

Hola rubito

Bien, esto lo celebro mucho!!! Me da gusto que lo hayas hecho y sobre todo que ya viste que es solo cuestión de dedicarle un rato.
Efectivamente tenemos que pensarle un rato, pero vale la pena.

Una felicitación sincera.
Ignacio Téllez