UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

txingui


Hola a todos, a ver si me podéis dar una ayuda con un tema que no consigo resolver por más que leo posible opciones...
Estoy intentando armar un editor de roadbook, dicho editor no tiene un número fijo de filas, es variable según necesidad, en la fila "D" (desde la celda "D41") quisiera añadir una imagen de entre las 360 que dispongo (son brújulas), teniendo en cuenta que la imagen a añadir está relacionada con el valor que contenga la celda "T42" (grados de rumbo).
Las imágenes están alojadas en otra hoja del libro (brujula) ordenadas junto a la casilla que identifica el rumbo.
La intención de poder hacerlo desde una macro es que de esta forma se puede omitir este volcado de imágenes si no fuera necesario


saludos y gracias de antemano por vuestra atención

PD, como no puedo subir el archivo con todas las imágenes lo dejo con las correspondientes a las 4 primeras filas
Archivos
RB EDITOR2.zip
No tienes los permisos para descargar los archivos.
(211 KB)

Igtelo


Hola Txingui.

Para que no cargues muchas imágenes sólo con girarla, te dejo ejemplo, ve el módulo 2; ya nada más lo adaptas a tu hoja.

Saludos
Ignacio Téllez
Archivos
Txingui-RotarImagen.zip
No tienes los permisos para descargar los archivos.
(195 KB)

txingui


Hola Igtelo, gracias por tu ayuda pero mi necesidad va encaminada a poder "pegar de forma automática" las imágenes en la casilla "D.."  acorde al dato dispuesto en la casilla "T.." que como habrás observado en el libro, está relacionado con los datos volcados en otra de las hojas, crees que es posible??
La intención es armar el roadbook con todas las casillas previamente (info dist, notas, etc) y posteriormente adjuntar dichas imágenes en bloque


gracias nuevamente por tu tiempo

Igtelo


Txingui.

Está muy fácil es cuestión de que le pienses un poquito. Si en la macro puse la celda D3, pues pon T42. Intenta y verás que es muy sencillo.
Te repito búscale y verás que no necesitas 360 imágenes...

Saludos
Ignacio Téllez

txingui


jeje, lo intentaré aunque me queda dar solución entonces a la imagen para que no me varíe el norte porque siempre debe de estar arriba

saludos

Igtelo


Hola otra vez Txingui.

Te dejo otro ejemplo, sólo necesitas una flecha. No te compliques la existencia...
La macro va explicada línea por línea.

Saludos
Ignacio Téllez
Archivos
Txingui-RotarImagen2.xlsm
No tienes los permisos para descargar los archivos.
(22 KB)

txingui


Hola Igtelo, por algún motivo la hoja que me facilitas no consigo que funcione, yo utilizo excel 2010, puede ser ese el problema??, me salta error en esta línea de la macro
Selection.ShapeRange.IncrementRotation Range("D" & w + 4)  'Rota la flecha según grados en columna D 

De todos modos mi "necesidad" está encaminada a relacionar esas flechas según un dato importado, de ahí que tenga preferencia por un "copia-pega" puesto que algunos roadbook pueden contener mas de 200 "viñetas" y mediante tu planteamiento, al ser yo "torpe" en excel no llego a ver como sacarle rendimiento, te adjunto la solución que me han facilitado por otro lado y que si me es más fácil para mis posibilidades

Gracias por tu tiempo y por mi parte podemos dar por solucionada la consulta

Saludos

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
'--
If Target.Rows.Count = Rows.Count Or _
   Target.Columns.Count = Columns.Count Then Exit Sub
'--
If Target.Cells.Count > 1 Or _
   Target.Row < 41 Or _
   Not Target.Address Like "$T$*" Or _
   Not Target.Row Mod 5 = 2 Then Exit Sub
'--
Application.ScreenUpdating = False
fila = Target + 1
ActiveSheet.Shapes("Foto" & Target.Row - 1).Delete
If Target = "" Then Exit Sub
For Each foto In Sheets("Brújula").Shapes
   If foto.TopLeftCell.Row = fila Then
      foto.Copy
      Range("D" & Target.Row - 1).Select
      ActiveSheet.Paste
      With Selection
         .Name = "Foto" & Target.Row - 1
         .Left = Selection.Left + 2
         .Top = Selection.Top + 3
      End With
      Target.Select
      Exit For
   End If
Next
'--
End Sub

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.