Ejecutar un macro desde una celda

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.

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.