Excel - Como convertir un codigo en una macro

   
Vista:
Imágen de perfil de Oscar

Como convertir un codigo en una macro

Publicado por Oscar (1 intervención) el 11/10/2015 22:07:36
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Antoni Masana

Como convertir un codigo en una macro

Publicado por Antoni Masana (267 intervenciones) el 14/10/2015 12:26:08
Esto que pones es una Macro que se ejecuta cuando se dan determinadas circunstancias, creo que cuando se modifica una hoja o una determinada hoja

Si lo que deseas es ejecutarla manualmente has un cortar y pegar y le cambias el nombre y ya esta.

Eliminas esta macro.

Creas una nueva Macro y copias el contenido.

Tendrás que modificar el Nombre

1
Private Sub Worksheet_Change(ByVal Target As Range)

Por ejemplo

1
Private Sub Mi_Macro()

Y el valor del Target debes crear codigo para buscarlo.


Para más información busca en google:

EXCEL Worksheet_Change
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar