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.

Siga el debate

17 respuestas

Tengo una respuesta

Preguntas similare

seleccionar nombre de cuadro combinado en BVA

Leer las respuestas

#6 CARLOS CARNERO

26/05/2011 - 18:26 | Informe spam

Acabo de desproteger la hoja como en el VBAProjecto donde se
encuentran las sintaxis, pero igual continua con en el error.

Saludos,

Carlos

Responder a este mensaje

#7 Cacho R

27/05/2011 - 12:42 | Informe spam

¡Tienes razón!... ¡No advertí que habías comentado en la presentación
de tu problema que la hoja debía estar protegida!

De modo que tu código deberá: desproteger, ocultar y proteger de
vuelta. O sea:

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

Saludos, Cacho.

On 26 mayo, 13:26, CARLOS CARNERO wrote:

Acabo de desproteger la hoja como en el VBAProjecto donde se
encuentran las sintaxis, pero igual continua con en el error.

Saludos,

Carlos

Responder a este mensaje

#8 CARLOS CARNERO

27/05/2011 - 16:50 | Informe spam

Hola Cacho, agradeciendo siempre por la generosidad de tu tiempo.

He copiado la sintaxis de esta forma:

Sub Listadesplegable1_AlCambiar()
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

Pero me sale una ventana de error de compilación, error de sintaxis,
sombreado la siguiente linea:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,

y con una flecha amarilla en lado izquierdo superior en la linea: Sub
Listadesplegable1_AlCambiar()

Creo que la sintaxis no esta asociando al cuadro combinado.

Reiterando mi agradecimiento.

Carlos

Responder a este mensaje

#9 Cacho R

28/05/2011 - 17:09 | Informe spam

Eso es porque la expresión
Scenarios:=True

debe ir inmediatamente después de la coma en la línea anterior:
Contents:=True, Scenarios:=True

pero el editor del Foro lo ha mandado "en penitencia" hacia la línea
de abajo.

Saludos, Cacho.

On 27 mayo, 11:50, CARLOS CARNERO wrote:

Hola Cacho, agradeciendo siempre por la generosidad de tu tiempo.

He copiado la sintaxis de esta forma:

Sub Listadesplegable1_AlCambiar()
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

Pero me sale una ventana de error de compilación, error de sintaxis,
sombreado la siguiente linea:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,

y con una flecha amarilla en lado izquierdo superior en la linea: Sub
Listadesplegable1_AlCambiar()

Creo que la sintaxis no esta asociando al cuadro combinado.

Reiterando mi agradecimiento.

Carlos

Responder a este mensaje

#10 CARLOS CARNERO

30/05/2011 - 23:00 | Informe spam

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

Responder a este mensaje

Ads by Google

Hacer una preguntaSiguiente

Tengo una respuesta

1 2 3 4

Busqueda sugerida