Ejecutar un macro desde una celda

22/07/2005 - 00:21 por Savrinor | Informe spam
Quisiera ejecutar 2 macros desde 2 celdas, se como hacerlo con un solo
macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Address(False, False) = "B1" Then
Run ("nombre del macro")
End If
End Sub

resumiendo quiero activar una macro en B1 y otra en D1, alguna sugerencia.

Saludos. Si queréis usar mi dirección privada suprimir no.al.spam.gracias o
sea
savrinor arroba hotmail punto com. Gracias.

Preguntas similare

Leer las respuestas

#1 KL
22/07/2005 - 00:34 | Informe spam
Hola Savrinor,

Prueba esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Address(False, False) = "B1" Then
Macro1
Elseif .Address(False, False) = "D1" Then
Macro2
End If
End With
End Sub

o esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "B1"
Macro1
Case "D1"
Macro2
End Select
End Sub

Saludos,
KL



"Savrinor" <savrinor no al wrote in message
news:
Quisiera ejecutar 2 macros desde 2 celdas, se como hacerlo con un solo
macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Address(False, False) = "B1" Then
Run ("nombre del macro")
End If
End Sub

resumiendo quiero activar una macro en B1 y otra en D1, alguna
sugerencia.

Saludos. Si queréis usar mi dirección privada suprimir no.al.spam.gracias
o sea
savrinor arroba hotmail punto com. Gracias.


Respuesta Responder a este mensaje
#2 Savrinor
22/07/2005 - 00:35 | Informe spam
Gracias. KL

Saludos. Pau
Si queréis usar mi dirección privada suprimir no.al.spam.gracias o sea
savrinor arroba hotmail punto com. Gracias.

"KL" escribió en el mensaje
news:
Hola Savrinor,

Prueba esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Address(False, False) = "B1" Then
Macro1
Elseif .Address(False, False) = "D1" Then
Macro2
End If
End With
End Sub

o esto:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "B1"
Macro1
Case "D1"
Macro2
End Select
End Sub

Saludos,
KL



"Savrinor" <savrinor no al wrote in message
news:
Quisiera ejecutar 2 macros desde 2 celdas, se como hacerlo con un solo
macro:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Address(False, False) = "B1" Then
Run ("nombre del macro")
End If
End Sub

resumiendo quiero activar una macro en B1 y otra en D1, alguna
sugerencia.

Saludos. Si queréis usar mi dirección privada suprimir no.al.spam.gracias
o sea
savrinor arroba hotmail punto com. Gracias.






email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida