para Héctor Miguel

05/01/2004 - 00:54 por alejandro | Informe spam
Hola Héctor, qué tal?.

Disculpa que te haga una pregunta. (Dirás que estoy muy
pesado... perdona, lo siento).

¿Te acuerdas el código que me has pasado para poner en un
sitio determinado, la foto del alumno/a que se selecciona?

Pues resulta que en la misma hoja tengo una planilla de
asistencia y más abajo hay otra planilla del mismo curso
pero con otras calificaciones.
¿Será posible que la foto aparezca en dos sitios
diferentes de la misma hoja?

Si quieres, dime donde te puedo enviar el archivo y te lo
envío, porque quizás no me haya explicado bien.

Un abrazo y perdona por la paliza.
alejandro

Preguntas similare

Leer las respuestas

#1 Héctor Miguel
05/01/2004 - 04:59 | Informe spam
hola, alejandro !

==> espero que NO 'lo tomes a mal' :) [en el 'inter' ta hago algunos comentarios] :(

... una pregunta. (Diras que estoy muy pesado...).
¿... codigo ... para poner en un sitio determinado, la foto del alumno/a que se selecciona?



=> 'diras' que el pesado... soy yo :( 'pero...' [creo que] hubiera sido mejor 'continuar' en el hilo [consulta] 'original' ;)
['a menos que' hubieran transcurrido mas de 30 dias]

... en la misma hoja ... planilla de asistencia y ... otra planilla del mismo curso pero con otras calificaciones.
¿... que la foto aparezca en dos sitios diferentes de la misma hoja?
Si quieres, dime donde te puedo enviar el archivo ... porque quizas no me haya explicado bien.



=> para enviarme un correo, solo quita de la direccion que aparece el 'NO...SPAM...PLS'
__ o... [si lo prefieres] podrias 'exponer' las siguientes 'condiciones' [con relacion a las dos fotos]:
1.- ¿en que lugar 'va' cada una de las fotos?
2.- ¿cuales son las filas-rangos de cada una de las listas? [y cual la columna de las 'direcciones' a las fotos]
3.- ¿se trata de 'la misma' foto en dos lugares? [condicionadas a la misma 'lista' de seleccion]
- si es este el caso... ¿de cual lista 'se toman'? [o de cualquiera de las dos]
4.- ¿son dos fotos 'independientes'? [cada una con su 'cada cual']

... perdona por la paliza.



=> ... si disculpas los comentarios... :))

saludos,
hector.

P.D. 'aprovechando' :)) 'tengo que sugerirte' lo siguiente... :(
[creo que] no es 'buena idea' pedir 'que responda' [solamente] algun grupo o persona 'en particular' :((
[con seguridad] 'alguien mas' podria tener la respuesta ANTES que 'el interpelado'... 'pero'... ¿responderia???
[inclusive, 'el interpelado' pudiera no 'estar disponible' en ese momento y A TI pudiera 'urgirte' una solucion] :\\
Respuesta Responder a este mensaje
#2 alejandro
05/01/2004 - 06:04 | Informe spam
Hola Héctor:
Si, entiendo lo que me dices. Pero había pensado que si
hacía la consulta a todo el mundo, quizás hubiera tenido
que explicar todo otra vez, y como tú ya sabías lo que yo
andaba buscando, pensé que sería más directo.

Bueno, de todas formas te comento las condiciones:

1- Rango c13:e42 (columna de alumnos, planilla asistencia)
Rango c57:e86 (columna de alumnos, planilla práctica)

2- Ambas planillas corresponden a los mismos alumnos,
solo que están una debajo de la otra (me desplazo con la
barra de desplazamiento vertical para verlas).

3- La columna donde indico la dirección de las fotos es
la AM, pero puede ser cualquier otra siempre que no sea
ninguna anterior a ésta (creo que no es importante esto).

4- En el rango aj2:ak8 aparecen las fotos de la primera
planilla y en el rango aj46:ak52 las fotos de la segunda
planilla.

Lo que quiero evitar es que cuando esté trabajando sobre
la segunda planilla, y esté evaluando a algún alumno,
tenga que desplazarme hacia arriba para ver su foto. Por
eso se me ha ocurrido que al seleccionarle en la segunda
planilla pueda ver su foto allí mismo sin tener que
desplazarme.

5- Se trata de la misma foto en dos lugares.

Bueno, creo que con esto es suficiente.
Iba a prometerte que después de ésta no te jorobo más...
pero no sé si voy a necesitar otra respuesta. :-))

Un abrazo y muchas gracias de antemano.
alejandro



=> para enviarme un correo, solo quita de la direccion


que aparece el 'NO...SPAM...PLS'
__ o... [si lo prefieres] podrias 'exponer' las


siguientes 'condiciones' [con relacion a las dos fotos]:
1.- ¿en que lugar 'va' cada una de las fotos?
2.- ¿cuales son las filas-rangos de cada una de las


listas? [y cual la columna de las 'direcciones' a las
fotos]
3.- ¿se trata de 'la misma' foto en dos lugares?


[condicionadas a la misma 'lista' de seleccion]
- si es este el caso... ¿de cual lista 'se toman'?


[o de cualquiera de las dos]
4.- ¿son dos fotos 'independientes'? [cada una con


su 'cada cual']

... perdona por la paliza.



=> ... si disculpas los comentarios... :))

saludos,
hector.

P.D. 'aprovechando' :)) 'tengo que sugerirte' lo


siguiente... :(
[creo que] no es 'buena idea' pedir 'que


responda' [solamente] algun grupo o persona 'en
particular' :((
[con seguridad] 'alguien mas' podria tener la


respuesta ANTES que 'el interpelado'... 'pero'...
¿responderia???
[inclusive, 'el interpelado' pudiera no 'estar


disponible' en ese momento y A TI pudiera 'urgirte' una
solucion] :\\


.

Respuesta Responder a este mensaje
#3 Héctor Miguel
05/01/2004 - 08:14 | Informe spam
hola, alejandro !

... c13:e42 (...alumnos...asistencia) ... c57:e86 (...alumnos...practica)
... columna...direccion...fotos es...AM
... aj2:ak8...fotos de la primera planilla...aj46:ak52...segunda planilla.
... misma foto en dos lugares.
... Iba a prometerte que despues de esta no te jorobo mas
... pero no se si voy a necesitar otra respuesta. :-))



['vamos a ver' si entendi 'completo'] :))
en el modulo de codigo de 'la hoja' ==Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Foto1 As Object, Foto2 As Object, _
Arriba As Double, Izquierda As Double, _
Ancho As Double, Alto As Double
Static Fila As Integer: On Error Resume Next
If Target.Row = Fila Then Exit Sub
Application.ScreenUpdating = False
Me.Shapes.Range(Array("Foto1", "Foto2")).Delete
Select Case Target.Row
Case 13 To 42, 57 To 86
If Dir(Range("am" & Target.Row)) = "" Then Exit Sub
Set Foto1 = Me.Pictures.Insert(Range("am" & Target.Row))
With Range("aj2:ak8")
Arriba = .Top: Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto1
.Name = "Foto1": .Top = Arriba: .Left = Izquierda: .Width = Ancho: .Height = Alto
End With: Set Foto1 = Nothing
Set Foto2 = Me.Pictures.Insert(Range("am" & Target.Row))
With Range("aj46:ak52")
Arriba = .Top: Izquierda = .Left
Ancho = .Offset(0, .Columns.Count).Left - .Left
Alto = .Offset(.Rows.Count, 0).Top - .Top
End With
With Foto2
.Name = "Foto2": .Top = Arriba: .Left = Izquierda: .Width = Ancho: .Height = Alto
End With: Set Foto2 = Nothing
End Select: Fila = Target.Row
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
#4 alejandro
05/01/2004 - 13:51 | Informe spam
Hola Héctor:

Un pequeño problema tengo con el código que me has pasado.
Resulta que selecciono al alumno en cuestión y me aparece
correctamente su foto en ambas planillas, pero si voy
bajando seleccionando otros alumnos, me siguen
apareciendo las mismas fotos, he probado de cambiar a
cualquier seleccion y no hay cambios. En teoria no
debería aparecer nada, ya que en la columna AM solo he
puesto la dirección de la foto en el primer alumno (como
prueba).

La hoja tiene protección. Creo que influye verdad?
¿Tengo que desproteger al principio y proteger al final,
como hago con todas las macros?. En ese caso, ¿en qué
parte del código desprotejo, y en qué parte vuelvo a
proteger?.

Antes con una foto funcionaba bien, pero ahora con las
dos ya no funciona.

Un abrazo.
alejandro
Respuesta Responder a este mensaje
#5 Héctor Miguel
05/01/2004 - 18:28 | Informe spam
hola, alejandro !

... problema ... selecciono al alumno ... y me aparece ... su foto en ambas planillas
... voy ... seleccionando otros alumnos, me siguen apareciendo las mismas fotos
... no deberia aparecer nada, ya que ... solo he puesto ... foto en el primer alumno (como prueba).
La hoja tiene proteccion. Creo que influye verdad?
¿Tengo que desproteger al principio y proteger al final, como hago con todas las macros?.
... ¿en que parte del codigo desprotejo, y en que parte vuelvo a proteger?.



efectivamente... las fotos insertadas NO se estan 'eliminando' [por 'efectos' de la proteccion de la hoja] :(
para NO tener que 'estar desprotegiendo/protegiendo' para 'poder usar' macros...
puedes poner en el evento '_Open' [del libro] la siguiente instruccion :
==>Worksheets("Nombre de la hoja").Protect UserInterfaceOnly:=True<[practicamente] TODO lo que 'hagas por codigo' estara 'permitido' [salvo algunas excepciones] :))
'pero...' [ademas] es necesario desproteger los objetos de dibujo ['shapes' = las fotos]
entonces... la instruccion debera ser 'completa' [+/- como la siguiente]
Private Sub Workbook_Open()
Worksheets("Nombre de la hoja").Protect _
PassWord:="MISMA_CONTRASEÑA", _
DrawingObjects:=False, _
UserInterfaceOnly:=True
End Sub

saludos,
hector.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida