Cuadro combinado al seleccionar oculte filas vacias ""

On 30 mayo, 16:00, CARLOS CARNERO wrote:

Hola Cacho gracias por responder. Me da pena seguir molestandote, pero
continua el error. Ahora sombrea en amarillo la siguiente
linea:   .SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Saludos,

Carlos

Será que no aplica por la condición que describe lineas arriba:

"En la columna C, en el rango (“C6:C131”) tengo esta formula
condicional: =SI(ESERROR(SI(B6="","",BUSCARV(A6,REGISTROS!$B$4:$P
$10000,2,FALSO))),"",SI(B6="","",BUSCARV(A6,REGISTROS!$B$4:$P
$10000,2,FALSO))) .
"

Saludos,

Carlos

Hola Cacho reiterando mis disculpas por tanta insistencia de mi parte.
Pero aún no puedo superar este inconveniente. He vuelto a rehacer todo
el archivo y continuo con los mismos problemas. Ahora usando la
sintaxis que detallo lineas abajo, subraya con amarillo fosforescente
a Sub Listadesplegable2_AlCambiar () y pone en color rojo la linea
ActiveSheet.Unprotect.EnireRow.Hidden False.SpecialCells(xlCellTypeBlanks).Entire Row.Hidden=True

Sub Listadesplegable2_AlCambiar()
'
' Listadesplegable2_AlCambiar Macro
'With Range("c6:c131")
ActiveSheet.Unprotect.EntireRow.Hidden False.SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
End With


'
End Sub




Gracias,

Carlos

El propósito final es que al momento de imprimir, sólo sean las filas
de la columna "C" que no esten en blanco ó vacio, por ello la formula
en la columna C6:C131:
=SI(ESERROR(SI(B6="","",BUSCARV(A6,REGISTROS!$B$4:$P
$1913,2,FALSO))),"",SI(B6="","",BUSCARV(A6,REGISTROS!$B$4:$P
$1913,2,FALSO)))

Gracias,

Carlos

Buenas a todos Por favor necesito que esta sintaxis, que se acerca a
un 95% de lo que vengo buscando, me faciliten sus conocimientos, ya
que sólo requiero estos dos detalles:
1. Como relaciono para que funcione la macro en el cuadro combinado en
el encabezado: Sub Listadesplegable1_AlCambiar()
2. Necesito que se ejecute con la hoja protegida.

Sub OcultarFilas()
Application.ScreenUpdating = False
Dim Celda As Range

ActiveSheet.Unprotect "1234"

For Each Celda In Range("c6:c131")
Celda.EntireRow.Hidden = (Celda = 0 Or Celda = "")
Next

ActiveSheet.Protect "1234"

Gracias y disculpen mi insistencia.

Carlos

Muchas veces ocurre que -quien pregunta- está convencido que su
descripción del problema es correcta y/o completa.

Cuando esto no es así, sólo se provoca una pérdida de tiempo a los
colaboradores que desean ayudar solidaria, voluntaria y gratuitamente.

La mejor forma de preguntar es subir un libro de muestra (o de prueba)
en algún servidor (Mediafire, Megaupload, Sendspace, etc). Así la
solución a proponer, se corresponderá con ese modelo y nadie perderá
su tiempo innecesariamente.

Es más: en el mismo libro se pueden poner notas orientativas y -lo más
importante- colocar una muestra de lo que -exactamente- se pretende
conseguir.

Saludos, Cacho.

On 15 jun, 17:54, CARLOS CARNERO wrote:

Buenas a todos Por favor necesito que esta sintaxis, que se acerca a
un 95% de lo que vengo buscando, me faciliten sus conocimientos, ya
que sólo requiero estos dos detalles:
1. Como relaciono para que funcione la macro en el cuadro combinado en
el encabezado: Sub Listadesplegable1_AlCambiar()
2. Necesito que se ejecute con la hoja protegida.

Sub OcultarFilas()
 Application.ScreenUpdating = False
 Dim Celda As Range

 ActiveSheet.Unprotect "1234"

 For Each Celda In Range("c6:c131")
 Celda.EntireRow.Hidden = (Celda = 0 Or Celda = "")
 Next

 ActiveSheet.Protect "1234"

Gracias y disculpen mi insistencia.

Carlos