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.]

oscaruruguay


Hola que tal, necesito una ayuda, con un codigo que funciona en una hoja de excel pero yo lo quiero convertir en una macro.
Si alguien me puede ayudar diciendome que debo sacar del codigo y si tengo que agragar algo para transformarlo en una macro.

Les dejo el codigo y espero me puedan ayudar
Desde ya, gracias

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iLaImagen As Shape

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False

'buscamos en las imagenes de la hoja ShtImagenes y si conseguimos
'una con el nombre, la copiamos
For Each iLaImagen In shtImagenes.Shapes
If iLaImagen.Name = Target.Value Then
iLaImagen.Copy
ActiveSheet.Paste
Selection.Top = Target.Top
Selection.Left = Target.Left
'con esta parte se pudiera ajustar la imagen al alto y ancho de la celda
'la imagen debe tener desmarcada la opción "bloquear relación de aspecto" para
'que se pueda ajustar completamente a la celda
Selection.Width = Target.Width
Selection.Height = Target.Height

'limpiamos la celda y nos posicionamos en la celda siguiente
Target.Value = ""
Target.Offset(1, 0).Select
End If
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

adolfo castro


Hola buenas noches, voy a ser rápido, sincero y concreto, lo que tienes es el código de una macro, asi que ya lo tienes hecho.


saludos adolfo castro.

pd. otra cosa seria que quieres adaptar esa macro a tu archivo, asi que reflexiona bien la pregunta, y si acierto en ello, sube el archivo con lo que precisas, pues creo que estas mas que crudo

oscaruruguay


Gracias Adolfo, es correcto lo que mencionas, quiero adaptar ese codigo como una macro pero estoy haciendo algo mal y no se que es, adjunto el archivo que quiero agregarle ese codigo para que en las filas E y T, solo con poner el codigo de cada bandera, automaticamente se ponga la bandera.
Vale decir como ejemplo, poner 1P en cualquier celda E o T y que automaticamente se ponga la bandera que esta en imagenes.
Cabe resaltar que cada bandera que esta en la hoja imagenes ya tiene el nombre 1P, 2P, etc.
Lo que yo quiero hacer es hacer una macro llamada Banderas con el codigo que deje en el mensaje anterior y agregarlo al archivo y que funcione bien sin afectar lo que ya esta en la otra macro que tiene el archivo.
Gracias desde ya.
Slds. Oscar
Archivos
Eliminatorias Rusia 2018-2.xls
No tienes los permisos para descargar los archivos.
(140 KB)

adolfo castro


Hola buenas tardes, al menos por aca, te paso un enlace, creo que te servirá para lo que precisas, no te lo desarrollo por falta de tiempo y para que curres y aprendas un poquito.


https://www.youtube.com/watch?v=whowlh7SKKs



saludos adolfo castro

pd: si no te sirve lo dices, y haremos algo.

Igtelo


Hola sres.

No ví tu archivo, creo que el código no lo copiaste bien de donde lo viste, sólo hace falta una línea.

Saludos
Ignacio téllez

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.