............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Como convertir un codigo en una macro

Ver el tema anterior Ver el tema siguiente Ir abajo

Como convertir un codigo en una macro

Mensaje por oscaruruguay el Dom Oct 11, 2015 5:35 pm

Hola que tas, 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

oscaruruguay

Masculino Cantidad de envíos : 1
Edad : 48
Ciudad - Pais : Montevideo
Version de Excel : 2010
Fecha de inscripción : 11/10/2015

Volver arriba Ir abajo

Re: Como convertir un codigo en una macro

Mensaje por rolano el Mar Oct 13, 2015 10:02 pm

Todo lo que diga target cambialo por activecell
Código:

Option Compare Text
Private Sub Listar()
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

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
[Tienes que estar registrado y conectado para ver este vínculo]
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 44
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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