Llamar macro con valores de celda

Tengo el siguiente código que ejecuta una macro al cambiar el volor de una celda en un derterminado rango:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k5:k300")) Is Nothing Then
Exit Sub
End If '
If Target >= 0 Then
Call Busca
End If '
End Sub
Lo que necesito es que al modificar otro rango de celdas distinto llame a otra macro.

1 Respuesta

Respuesta
1
Tines que agregarle al codigo  otra sentencia IF = SI.
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k5:k300")) Is Nothing Then
Exit Sub
End If '
If Target >= 0 Then
Call Busca
End If '
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
If Target >= 0 Then
Call Buscar2 ' llamas a la macro de decees
End If '
End Sub
Hola parmijo, gracias por tu respuesta, modifiqué los rangos pero la segunda macro no funciona, directamente no se activa. No soy muy entendido en el tema, pero ¿ el error no está en los "exit sub" ?.
Modifica esta parte de la siguiente forma:

If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
else
If Target >= 0 Then
Call Buscar2 ' llamas a la macro de decees
End If '
End If
Amigo, hice la modificación que me indicaste, pero sigue sin funcionar.
Bueno ya se en donde estaba el error, prueba de la siguiente forma:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k5:k300")) Is Nothing Then
GoTo saltar:
End If '
If Target >= 0 Then
Call Busca
End If '
saltar:
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
If Target >= 0 Then
Call Buscar2 ' llamas a la macro de decees
End If '
End Sub
Ahora funciona perfectamente!!. Solamente quisiera me aclares una cosa más, como puedo hacer para la macro funcione solo con números, ya que si ingreso una letra o borro algun valor en alguna celda de los rangos que elegí, también se dispara la macro.
Verifica de la siguiente forma
If Intersect(Target, Range("k5:k300")) Is Nothing Then
GoTo saltar:
End If '
valor = Target.Value
If Target >= 0 Then
If valor >= 1 Then
'Call Busca
End If
End If '
saltar:
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
valor = Target.Value
If Target >= 1 Then
If valor >= 1 Then
'Call Buscar2 ' llamas a la macro de decees
End If
End If '
salir:
End Sub
Ahora no funciona. Con este código no llame ninguna de las macros.
Le falta el comienzo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("k5:k300")) Is Nothing Then
GoTo saltar:
End If '
valor = Target.Value
If Target >= 0 Then
If valor >= 1 Then
'Call Busca
End If
End If '
saltar:
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
valor = Target.Value
If Target >= 1 Then
If valor >= 1 Then
'Call Buscar2 ' llamas a la macro de decees
End If
End If '
salir:
End Sub
Disculpa ... parece que ando en otra:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo salir:
Dim valor As Long
If Intersect(Target, Range("k5:k300")) Is Nothing Then
GoTo saltar:
End If '
valor = Target.Value
If Target >= 0 Then
If valor >= 1 Then
'Call Busca
End If
End If '
saltar:
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
valor = Target.Value
If Target >= 1 Then
If valor >= 1 Then
'Call Buscar2 ' llamas a la macro de decees
End If
End If '
salir:
End Sub
El códigos funcionan excepto con valor "0". Si cambio el If Valor y el If target por >= 0, funciona ,  no  llama  la  macro  cuando ingreso  otro  valor  que no se número, pero se ejecuta la macro al borrar algún valor de los rangos elegidos.
Para que funcione hay que hacerle una pequeña modificacion:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo salir:
Dim valor As Long
If Intersect(Target, Range("k5:k300")) Is Nothing Then
GoTo saltar:
End If '
valor = Target.Value
If Target >= 0 Then
If valor >= 0 Then
'Call Busca
End If
End If '
saltar:
If Intersect(Target, Range("b5:b300")) Is Nothing Then 'modificas es rango
Exit Sub
End If '
valor = Target.Value
If Target >= 0 Then
If valor >= 0 Then
'Call Buscar2 ' llamas a la macro de decees
End If
End If '
salir:
End Sub
La macro funciona al ingresar un numero debido a que hay una declaracíon de la variable valor de tipo long cuyo valor solamente puede ser numerico. Si no es numerico produce un error y termina la macro.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ayuda código vba ejecuta una resta urgente

Queridos amigos tengo el siguiente problemita tengo este código Private Sub Worksheet_Change(ByVal Target As Excel.Range) 'controla col H actualizando col G If Not Intersect(Target, Range("H2:H2000")) Is Nothing Then Target.Offset(0, -1) =...
1 respuesta

Modificar macro Excel para poner mayúsculas.

He copiado un macro para excel de Todo Expertos, para poner la primera letra de una oración en mayúscula y un punto final, funciona bien pero me gustacia aplicarlo solo a una celda o conjunto de ellas y no soy capaz de modificarlo, os agradecería...
1 respuesta

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Validar "Ñ" y Caracteres Especiales

Estimado estoy realizando una Macro y Necesito ayuda para validar en un rango de celdas en excel las "Ñ" y los caracteres especiales que al momento de presionar el enter si existe dentro del parrafo escrito uno de estos caracteres me muestre un mensaje.
1 respuesta

¿Por qué me sale el error 1004 en tiempo de ejecución cuando la hoja esta protegida?

El error que me sale es el siguiente: Se ha producido el error 1004 en tiempo de ejecución: Error definido por la aplicación o el objeto Si la hoja está desprotegida no hay problema, pero cuando la protejo e interactúo con la celda que está...
1 respuesta

Macro que al seleccionar dato de una lista desplegable

Amigo en esa misma hoja de registro también tengo otra lista desplegable pero quiero lo siguiente estando en registros y seleccionando un dato de la lista desplegable en F4 me busque en proveedores desde A2 hasta fin de registro y me coloque el dato...
1 respuesta

Completar macro para sombrear celdas según el valor de otras celdas.

Tengo la siguiente macro. Funciona bien, pero necesito que haga mas cosas que no consigo. Si en el rango ("B19:AR367") se escribe una de estas iniciales: "V", "L", "S", "AP", "FJ", "VP" Pintará esa celda según los siguientes criterio: Si en rango (A,...
2 respuestas

Como hacer para mostrar mensaje de advertencia

Tengo una hoja de 5 columnas con 600 datos en cada columna, entonces lo que necesito es que si en cualquier celda de la columna 5 (E) aparece el dato de texto que contenga la palabra "rampa", siempre me muestre en mensaje de advertencia (msgbox). Los...
1 respuesta

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua

Quiero crear un macro que al introducir un dato en una celda de excel, bloque una celda contigua, es decir si yo introduzco una serie de datos en una celda, desencadenen una macro que bloquee la celda contigua sin necesidad de utilizar ningún método...
1 respuesta