MAcro que oculte fila si el valor de una cierta casilla es 0

muniategui · el 27 de octubre

hola a todos, soi nuevo espero que el tema valla aqui, tengo une exel que calcula la factura del agua, lo que hace es distribulle el agua consumida en 4 bloques, el primero que es asta 15, en elc aso de que lo consumido sea mas grande a 15 uns egundo que tambien es asta 15, si el valor es 30+ ai el 3 bloque en el cual llega asta 24, esto hace que si consumas 54 litro de agua 1,2 i 3 bloqeu se llenen, i el 4 bloque que es todo lode mas que gastes de agua, cada bloque multiplica la cantidad gastada pr su valor idenpendiente, el priemr bloque es mas varato i el 4 el ams caro.(para pasar a el sigueiente el 1 tien k llenarse). Lo que quiero es que si el primer bloque no se llena (no llega a 15) el 2 bloque 3 i 4 el agua cosnumida que figurara sera 0 quiero k si en la casilla esa es 0 que se oculte la columna, que si porejemplo lo consumido solo llega asta el 2 bloque en el 3 i 4 lo consumido sera 0 i que se oculten, i en el 4 si el 3 el 3 tiene algo pero el 4 no que el 4 se oculte. I que si luego alc anviar el agua cosnumida las filas vuelvan a aparecer. suvo el fichero por si no a quedado claro siento las faltas de ortografia :S

excel factura.rar

Antoni · el 27 de octubre

Hola:

He incluido una pequeña ,macro en la hoja Full1.

Cada vez que modifiques la celda C2, de manera automática, se mostrarán/ocultarán las filas en función de su valor.




Private Sub Worksheet_Change(ByVal Target As Range)


   If Target.Address = "$C$2" Then

      For x = 12 To 9 Step -1

         If Range("C" & x) = 0 Then

            Rows(x).Hidden = True

         Else

            Rows(x).Hidden = False

         End If

      Next

   End If


End Sub



[/CODE]

excel factura.xls

muniategui · el 27 de octubre

modifico el valor c2 pero no se ocultan solas :S

Antoni · el 28 de octubre

¿Estás probando con el adjunto que te he enviado? o ¿Has copiado la macro?, porqué no hay posibilidad de error salvo que te hayas equivocado de archivo o hayas copiado la macro en un lugar inadecuado.

muniategui · el 28 de octubre

lo que ago es abrir el excel que tu me pasaste modifico la casilla c2 por el numero 10 porejemplo peor los bloques 2 3 i 4 no se ocultan, tengo que hacer algo o teoricamente solo canviar el numero porque ya lo iciste todo tu? porque de ser asi a mi no se me oculta nada TT

Antoni · el 28 de octubre

Tienes que dar Intro o salir de la celda C2.

Insisto, es imposible que no funcione.

Me he bajado el archivo que subí por si me hubiera equivocado al subirlo y funciona perfectamente.

El archivo que subí tiene la celda C2 resaltada en amarillo, si no la tiene, te estás equivocando de archivo.

muniategui · el 28 de octubre

vale me disulpo, muchas gracias si que va el problema es que tenia k darle a habilitar maros en un mensaje ks alia muchas garcias, aora si me podria alludar en una duda k tengo, intente hacer mi macro k iciese esod e ocultar pero no va

el codigo es este:

Sub condicion()

If c2 = 0 Then

Range("A9:A12").Select