Cuadro combinado al seleccionar oculte filas vacias ""

23/05/2011 - 17:45 por CARLOS CARNERO | Informe spam
Muy buenas a todos:Tengo este código de un cuadro combinado (controles
de formulario) y lo que pretendo conseguir es, que mediante una
sentencia en el Range (“C6:C131”) condicione, si en estas filas se
encuentra “” (vacio), las oculte, además de ello esta hoja tiene que
estar protegida. Intente hacerlo manualmente, pero el obstáculo esta
en el Range("C28:C131").Select .
Sub Listadesplegable1_AlCambiar()
'
' Listadesplegable1_AlCambiar Macro
'

'
Range("C6").Select
Range(Selection, Selection.End(xlDown)).Select
Range("C28:C131").Select
Selection.EntireRow.Hidden = True
ActiveWindow.SmallScroll Down:=-15
End Sub


Se agradece por anticipado su colaboración.

Preguntas similare

Leer las respuestas

#1 CARLOS CARNERO
24/05/2011 - 16:36 | Informe spam
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))) .


Por favor y gracias,

Carlos
Respuesta Responder a este mensaje
#2 Cacho R
24/05/2011 - 19:52 | Informe spam
Intenta con:

[c132] = "nada"
[c6:c132].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
[c132] = Empty

Saludos, Cacho.

On 24 mayo, 11:36, CARLOS CARNERO wrote:
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))) .

Por favor y gracias,

Carlos
Respuesta Responder a este mensaje
#3 CARLOS CARNERO
24/05/2011 - 21:37 | Informe spam
Hola Cacho gracias por la respuesta. Sin embargo me sale una ventana:
"Se ha producido el error '1004 en tiempo de ejecución: No se
encontraron celdas."

El código lo he copiado de la siguiente manera, por favor corrigeme
cual es la correcta:

Sub Listadesplegable1_AlCambiar()
'
Range("c6:c131").Select
Range(Selection, Selection.End(xlDown)).Select
[c131] = "nada"
[c6:c131].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
[c131] = Empty
End Sub


Saludos,

Carlos
Respuesta Responder a este mensaje
#4 Cacho R
26/05/2011 - 11:55 | Informe spam
Es un problema responderte pues se te olvidó mencionar cual es la
línea que te arroja ese error.

Como para "tirar" una posibilidad te consulto: ¿no tendrás la hoja
protegida? ¿Verdad?...


On 24 mayo, 16:37, CARLOS CARNERO wrote:
Hola Cacho gracias por la respuesta. Sin embargo me sale  una ventana:
"Se ha producido el error '1004 en tiempo de ejecución: No se
encontraron celdas."

El código lo he copiado de la siguiente manera, por favor corrigeme
cual es la correcta:

Sub Listadesplegable1_AlCambiar()
'
    Range("c6:c131").Select
    Range(Selection, Selection.End(xlDown)).Select
    [c131] = "nada"
    [c6:c131].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
    [c131] = Empty
End Sub

Saludos,

Carlos
Respuesta Responder a este mensaje
#5 CARLOS CARNERO
26/05/2011 - 18:21 | Informe spam
Gracias Cacho por el seguimiento. La línea en mención es:
[c6:c131].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

Claro la hoja esta protegida y es lo que necesito.

Gracias,

Carlos
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida