Macro o Modulo que oculte las filas si el numero en la celda es mayor

[zeusangel1534]

Saludos a todos, Macro o Modulo que oculte las filas si el numero en la celda es mayor , pero por fila

por ejemplo:

la fila 1 tiene la celda B1 pero si es mayor que 700 que se escondala fila 1,

si es menor que 700 que no se esconda la fila 1 (IF B1 >700 esconder fila1 then IF < 700 no esconder fila1)

la fila 2 tiene la celda B2 pero si es mayor que 900 entonces que se esconda la fila 2

si es menor que 900 que no se esconda la fila 2 (IF B2 >900 esconder fila2 then IF < 900 no esconder fila2)

la fila 3 tiene la celda B3 pero si es mayor que 2000 entonces que se esconda la fila 3

si es menor que 2000 que no se esconda la fila 3 esto es = (IF B3>2000 esconder fila3 then IF < 2000 no esconder fila3 )

la fila 4 tiene la celda B4 pero si es mayor que 100 entonces que se esconda la fila 4

si es menor que 100 que no se esconda la fila 4 esto es = (IF B4>100 esconder fila4 then IF < 100 no esconder fila4 )

asi seria si alguien por ahi tiene idea como se podra hacer selos agradecer mucho, graciaspor la atencion

[joshua]

Saludos.

Sub Seguir_Normas_Foro()

If Archivo_Adjunto = True Then

MsgBox "Posible Solución"

Else

MsgBox "Quien Sabe"

End If

End Sub

Atte.

joshua

[zeusangel1534]

jejeje,Gracias joshua crei que me iban a entender, pero creo que no. ok se los envio como archivo adjunto

[zeusangel1534]

te lo envio por este metodo o por este servidor no tengo winrar para comprimirlo y esque tengo una maquina que no me ayuda en nada gracias por tu comprencion espero que esto se entienda gracias de nuevo se los agradecere.

http://www.mediafire.com/file/6somekappjrh3pw/ejemplo 1.xlsx

[joshua]

Saludos.

Por favor se más claro y especifico en lo que quieres lo que mensionas en tu primer post es totalmente diferente de lo que pides en el adjunto.

Atte.

joshua

[zeusangel1534]

si, ok bueno creo que omite lo que enverdar queria verdad solo les puse mas o menos un seudocodigo, pero si eso seria esto es lo que quiero que en la celda total supongamos tengao 10,000 de un medicamento y con forme su venta se va disminuyendo esta cantidad

hasta llegar al rango o tope por ejemplo 700, si llego a 700 que no se esconda la fila si no que se esconda los que no se han vendido.

lo que interesa es cuando los medicamentos ya estan por acabarse que se mantengan a la vista para pedir mas y los que no que se escondan ya que esto facilitaria la busqueda d cada uno y como veras son mas de 1000 medicamentos. gracias mil disculpas pero es que aveces creo saber esplicarme, pero es todo lo contrario. mil gracias. Y yano les puse comprimido porque tuve que conseguir otra maquina para poder comprimir

[zeusangel1534]

Sub Ocultar_Filas_()

Total = Range("A2")

If Total = 50 Then

Total.EntireRow.Hidden = True

Else

Total > 50 then (aqui me sale error no se la sintaxis )

Total.EntireRow.Hidden = False

End If

End Sub

algo asi seria el codigo que quiero en un modulo para ponerlo en un boton y luego llamarlo desde una macro

me podria hechar la mano en esto se los agradesco

[joshua]

Saludos.

Es asi:

Sub Ocultar_Filas_()
Total = Range("A2")
If Total = 50 Then
Total.EntireRow.Hidden = True
Else
If Total > 50 then 
Total.EntireRow.Hidden = False
End If
End Sub[/HTML]

Atte.

joshua