añadr funcionalidad mediante macros e imagenes

07/03/2005 - 09:40 por .·:m·a·r·l·a:·. | Informe spam

Hola a todos:

tengo una serie de archivos a los que deseo añadirle cierta funcionalidad
para mostrar o ocultar filas mediante macros e imagenes o simbolos

el fichero (todos tiene la misma estructura mas o menos) consta de dos
arboles de clasificacion, de tal forma que, en algunas de las hojas del
primero se extiende el segundo, el primero son productos y el segundo
componentes, y estan en forma de arbol segun los grupos a los que pertenecen

ejemplo:

-material de oficina
-consumibles
tintas
cartuchos

y

-duros
-semiduros
-blandos

los archivos ya los tengo creados y mi intencion es añadir imagenes o
simbolos para abrir o cerrar un nivel

si el archivo es tal que:

-material de oficina
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
-consumibles
tintas
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
cartuchos
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar

necesitaria incluir un icono en la linea segunda que ocultara o mostrara la
siguientes 9 lineas, lo mismo para carpetas, tintas, etc.., y de forma
similar con item de otros niveles

una idea seria añadir botones, pero necesitaria añadirlos mediante una macro
y dentro (visualmente) de una celda, y a su vez, al ser ejecutado, reconocer
en que celda se encuentra para ocultar/mostrar las correspondientes

otra idea que he valoro es simbolos de wingdings, me daria en que celda
estoy directamente, pero tendria que darles el aspecto de boton para que
fuera facil de entender

el mayor problema es que necesito hacer una macro para realizar el trabajo,
son varios archivos y de multitud de lineas

alguien me podria orientar un poco ??

gracias por adelantado

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 .·:m·a·r·l·a:·.

07/03/2005 - 09:44 | Informe spam

simplemente decir que no puedo utilizar la utilidad de agrupar filas por que
no siempre son contiguas las filas que he de ocultar/mostrar y que a la
misma macro le debo añadir otras funcionalidades

".·:m·a·r·l·a:·." wrote in message
news:

Hola a todos:

tengo una serie de archivos a los que deseo añadirle cierta funcionalidad
para mostrar o ocultar filas mediante macros e imagenes o simbolos

el fichero (todos tiene la misma estructura mas o menos) consta de dos
arboles de clasificacion, de tal forma que, en algunas de las hojas del
primero se extiende el segundo, el primero son productos y el segundo
componentes, y estan en forma de arbol segun los grupos a los que

pertenecen

ejemplo:

-material de oficina
-consumibles
tintas
cartuchos

y

-duros
-semiduros
-blandos

los archivos ya los tengo creados y mi intencion es añadir imagenes o
simbolos para abrir o cerrar un nivel

si el archivo es tal que:

-material de oficina
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
-consumibles
tintas
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
cartuchos
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar

necesitaria incluir un icono en la linea segunda que ocultara o mostrara

siguientes 9 lineas, lo mismo para carpetas, tintas, etc.., y de forma
similar con item de otros niveles

una idea seria añadir botones, pero necesitaria añadirlos mediante una

macro

y dentro (visualmente) de una celda, y a su vez, al ser ejecutado,

reconocer

en que celda se encuentra para ocultar/mostrar las correspondientes

otra idea que he valoro es simbolos de wingdings, me daria en que celda
estoy directamente, pero tendria que darles el aspecto de boton para que
fuera facil de entender

el mayor problema es que necesito hacer una macro para realizar el

trabajo,

son varios archivos y de multitud de lineas

alguien me podria orientar un poco ??

gracias por adelantado

Responder a este mensaje

#2 KL

07/03/2005 - 20:12 | Informe spam

Hola .·:m·a·r·l·a:·.,

Prueba el siguiente codigo depositandolo en el modulo del libro (EsteLibro o
ThisWorkbook). No es necesario poner iconos o botones - basta con hacer
doble clic sobre la celda del nivel superior en la columna [A] para ocultar
los niveles inferiores y volver a hacerlo para mostrarlos. Este codigo
oculta/muestra los neveles inferiores para cada grupo individualmente. Si lo
q quieres es q al darle a un nivel se oculten los niveles inferiores en
todos los grupos de la misma hoja a la vez (tal como ocurre en los grupos de
subtotales al pulsar el numero del nivel en el margen izquierdo) comentalo o
adapta ya el codigo directamente.

Saludos,
KL

'-Inicio Codigo-
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim Cont As Long
Dim NivelIni As Integer
Dim NivelSig As Integer

Cont = 1
NivelIni = Len(Target) - Len(Replace(Target, "-", ""))
If NivelIni = 0 Then Exit Sub
If Intersect(Target, Sh.UsedRange, Sh.Columns(1)) Is Nothing _
Then Exit Sub

Cancel = True
With Target
NivelSig = Len(.Offset(Cont, 0)) - _
Len(Replace(.Offset(Cont, 0), "-", ""))

Do While NivelSig > NivelIni
NivelSig = Len(.Offset(Cont + 1, 0)) - _
Len(Replace(.Offset(Cont + 1, 0), "-", ""))
With .Offset(Cont, 0).EntireRow
.Hidden = (.Hidden = False)
Cont = Cont + 1
End With
Loop
End With
End Sub
'-Fin Codigo-

".·:m·a·r·l·a:·." wrote in message
news:

simplemente decir que no puedo utilizar la utilidad de agrupar filas por
que
no siempre son contiguas las filas que he de ocultar/mostrar y que a la
misma macro le debo añadir otras funcionalidades

".·:m·a·r·l·a:·." wrote in message
news:

Hola a todos:

tengo una serie de archivos a los que deseo añadirle cierta funcionalidad
para mostrar o ocultar filas mediante macros e imagenes o simbolos

el fichero (todos tiene la misma estructura mas o menos) consta de dos
arboles de clasificacion, de tal forma que, en algunas de las hojas del
primero se extiende el segundo, el primero son productos y el segundo
componentes, y estan en forma de arbol segun los grupos a los que

pertenecen

ejemplo:

-material de oficina
-consumibles
tintas
cartuchos

y

-duros
-semiduros
-blandos

los archivos ya los tengo creados y mi intencion es añadir imagenes o
simbolos para abrir o cerrar un nivel

si el archivo es tal que:

-material de oficina
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
-consumibles
tintas
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
cartuchos
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar
duros
-plasticos
-carton
semiduros
-goma
blandos
-tinta liquida
-boligrafos
-gomas de borrar

necesitaria incluir un icono en la linea segunda que ocultara o mostrara

la

siguientes 9 lineas, lo mismo para carpetas, tintas, etc.., y de forma
similar con item de otros niveles

una idea seria añadir botones, pero necesitaria añadirlos mediante una

macro

y dentro (visualmente) de una celda, y a su vez, al ser ejecutado,

reconocer

en que celda se encuentra para ocultar/mostrar las correspondientes

otra idea que he valoro es simbolos de wingdings, me daria en que celda
estoy directamente, pero tendria que darles el aspecto de boton para que
fuera facil de entender

el mayor problema es que necesito hacer una macro para realizar el

trabajo,

son varios archivos y de multitud de lineas

alguien me podria orientar un poco ??

gracias por adelantado

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida