ocultar filas en una hoja segun condicion ingresada en otra hoja

On 24 mar, 11:12, wrote:

On 23 mar, 22:51, "Héctor Miguel"
wrote:



> hola, !

> 1) prueba con este codigo en el modulo de la "hoja1":

> Private Sub Worksheet_Change(ByVal Target As Range)
>   If Intersect(Target, Range("ai277")) Is Nothing Then Exit Sub
>   Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range("ai277")) = "no"
> End Sub

> 2) esta parte no es lo suficiente clara (p.e.)

>     a) en cual hoja esta la celda "J299" ???

>     b) no te saldria mas barato usar una formula directamente en esa celda en lugar del codigo ?
>         (p.e.) =si(hoja1!ai277="no";100;redondear(100-(((f297/(f294*1000))*link!i127)*100);2))

>     c) ademas, si quieres depositar una formula por codigo...
>         lo "normal" es la propiedad: <rango>.Formula = "=aqui la formula EN INGLES y coma como separador"
>         o si conoces (exactamente) la configuracion regional del equipo donde se correra tu codigo...
>         puedes usar la propiedad: -> <rango>.FormulaLocal = "=aqui la formula el idioma instalado y ""su"" separador"

> si cualquier duda (o informacion adicional)... comentas ?
> saludos,
> hector.

> __ 1 __

> > las filas a ocultar de la hoja2 son en este caso de la a278 a la a313... si en la hoja1 se pone "No" en la casilla ai277

> __ 2 __

> > y tengo esta otra situacion: en caso de ser "No" el valor de la condicion ai277 el valor de la celda j299 debe ser 100
> > y en caso contrario debe ser "=REDONDEAR(100-(((F297/(F294*1000))*hoja1!I127)*100);2)" y para esto uso el siguiente codigo:

> > Sub cambia_valor_perdidas()
> > Dim celda_condicion As Range
> > Dim celda_destino As Range
> > Set celda_destino = Range("j299")
> > Set celda_condicion = Range("ai277")
> > If celda_condicion.Value = "No" Then
> >    celda_destino.Value = "100" Else_
> >    celda_destino.Value = "=REDONDEAR(100-(((F297/(F294*1000))*Link!I127)*100);2)"
> > End If
> > End Sub

Impecable!!!

muchas gracias, sobre todo por hacerme ver que era mucho mas facil
poner la formula en la celda, ya tenia la mente cerrada buscando
solucionar el otro tema.

me surge otra pregunta:

como puedo hacerlo para ocultar dos grupos de filas segun dos
condiciones distintas, con esto codigo lo hace pero el cambio del
segundo caso ocurre solo cuanse actualiza la primera condicion (lo que
es obvio) pero como lo hago para que las dos acciones sean
independientes

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k42")) Is Nothing Then Exit Sub
Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range
("k42")) = "no"
Worksheets("hoja1").Range("a314:a323").EntireRow.Hidden = LCase(Range
("k42")) = "si"

Worksheets("hoja1").Range("a324:a364").EntireRow.Hidden = LCase(Range
("p42")) = "no"

End Sub

hola, !

como puedo hacerlo para ocultar dos grupos de filas segun dos condiciones distintas
con esto codigo lo hace pero el cambio del segundo caso ocurre solo cuanse actualiza la primera condicion
(lo que es obvio) pero como lo hago para que las dos acciones sean independientes

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k42")) Is Nothing Then Exit Sub
Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range("k42")) = "no"
Worksheets("hoja1").Range("a314:a323").EntireRow.Hidden = LCase(Range("k42")) = "si"
Worksheets("hoja1").Range("a324:a364").EntireRow.Hidden = LCase(Range("p42")) = "no"
End Sub

(para los dos casos que expones prueba con algo +/- como lo siguiente (hay otras variantes, pero... ???)

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k42")) Is Nothing Then Goto CheckP42
Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range("k42")) = "no"
Worksheets("hoja1").Range("a314:a323").EntireRow.Hidden = LCase(Range("k42")) = "si"
CheckP42:
If Intersect(Target, Range("p42")) Is Nothing Then Exit Sub
Worksheets("hoja1").Range("a324:a364").EntireRow.Hidden = LCase(Range("p42")) = "no"
End Sub

saludos,
hector.

On 24 mar, 21:16, "Héctor Miguel"
wrote:

hola, !

> como puedo hacerlo para ocultar dos grupos de filas segun dos condiciones distintas
> con esto codigo lo hace pero el cambio del segundo caso ocurre solo cuanse actualiza la primera condicion
> (lo que es obvio) pero como lo hago para que las dos acciones sean independientes

> Private Sub Worksheet_Change(ByVal Target As Range)
>   If Intersect(Target, Range("k42")) Is Nothing Then Exit Sub
>   Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range("k42")) = "no"
>   Worksheets("hoja1").Range("a314:a323").EntireRow.Hidden = LCase(Range("k42")) = "si"
>   Worksheets("hoja1").Range("a324:a364").EntireRow.Hidden = LCase(Range("p42")) = "no"
> End Sub

(para los dos casos que expones prueba con algo +/- como lo siguiente (hay otras variantes, pero... ???)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Range("k42")) Is Nothing Then Goto CheckP42
  Worksheets("hoja1").Range("a278:a313").EntireRow.Hidden = LCase(Range("k42")) = "no"
  Worksheets("hoja1").Range("a314:a323").EntireRow.Hidden = LCase(Range("k42")) = "si"
CheckP42:
  If Intersect(Target, Range("p42")) Is Nothing Then Exit Sub
  Worksheets("hoja1").Range("a324:a364").EntireRow.Hidden = LCase(Range("p42")) = "no"
End Sub

saludos,
hector.

Gracias Maestro, funciona perfecto.
saludos