¿Como puedo aplicar una macro a una hoja determinada de un documento de Microsoft Excel?

Recién estoy aprendiendo a aplicar macros a mis hojas de excel, y tengo muchas dudas, una de ellas es, como puedo hacer para que una macro solo se ejecute para una determinada hoja, aunque la ejecute desde otra hoja, ej: en Hoja1, en determinada casilla introducir un numero y que al ejecutar la macro, ¿en la hoja2 ese numero introducido en la hoja1 cumpla una operación? Si me pueden ayudar se los agradecería muchísimo

1 Respuesta

Respuesta
1
Coloca este ejemplo en un módulo, ejecútalo y observa el resultado:
Option Explicit
Dim miHoja1, miHoja2
Sub Hoja()
    miHoja1 = "Hoja1"
    miHoja2 = "Hoja2"
    Sheets(miHoja2).Select
    MsgBox "Estoy en la " & miHoja2 & ". Observa la pestaña de Hojas"
    Sheets(miHoja1).Select
    MsgBox "Ahora estoy en la " & miHoja1 & _
    ". Observa la celda A1... está vacía."
    Sheets(miHoja2).Select
    Sheets(miHoja1).Range("A1") = 10
    MsgBox "Vuelvo a estar en la " & miHoja2 & _
    ". Y desde aquí he puesto el valor 10 en la celda A1 de la Hoja1 "
End Sub
Observa la línea que dice : Sheets(miHoja1). Range("A1") = 10
Esta linea te coloca en la Hoja1 celda A1 el valor 10 sin importar en que hoja te encuentres.
Cualquier ayuda adicional me avisas.
Hola! Gracias por tu ejemplo, está fácil de comprender, pero no es eso lo que necesito, te explico, en la hoja 1 de mi libro, tengo que introducir ciertos números, y lo que quiero es que en la hoja 2, automáticamente se ejecute la macro, cierta operación que dependan de los datos que introduzca en la hoja 1.
Sabes lo que quiero aprender es, como trabaja los códigos, linea por linea para poder comprender mejor, te agradecería mucho si me das una mano. Gracias!
OK.
Coloca este código en la ventana de código de la Hoja1(Hoja1) en el editor del Visual basic
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If Target.Value = "1" Then Rutina1 ' Ejecuta Rutina1
        If Target.Value = "2" Then Rutina2 ' Ejecuta Rutina2
        If Target.Value = "3" Then Rutina3 ' Ejecuta Rutina3
    End If
End Sub
Sub Rutina1()
    Sheets("Hoja2").Range("A1") = "Ejecutada Rutina 1"
    MsgBox "Ejecutada Rutina 1. Ver Hoja2, celda A1"
End Sub
Sub Rutina2()
    Sheets("Hoja2").Range("A1") = "Ejecutada Rutina 2"
    MsgBox "Ejecutada Rutina 2. Ver Hoja2, celda A1"
End Sub
Sub Rutina3()
    Sheets("Hoja2").Range("A1") = "Ejecutada Rutina 3"
    MsgBox "Ejecutada Rutina 3. Ver Hoja2, celda A1"
End Sub
¿Es lo que buscas?
Muchas gracias por tu ayuda, está todo bien, aunque me costó un poco, lo que pasa es que recién estoy aprendiendo hacer macros, pero me di cuenta, ahora tengo que practicar, te lo agradezco mucho de verdad, y espero que tengas paciencia conmigo para cuando tenga otras dudas, un saludo, y gracias nuevamente...

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro que se ejecute cuando cambia un valor

Tengo un archivo de excel con 2 hojas (hoja1 y hoja2) En la hoja2, hice un código para que se ejecute una macro automáticamente cada que cambien los valores de una celda la D11. Si cambian el valor de esta celda, y le ponen un 0 necesito que me...
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

Mostrar MsgBox con datos de celda

Recurro de nuevo a su valiosa ayuda. Gracias al experto "Aprendemos" pude dar con una respuesta interesante. Por medio de un Formulario capturo un nombre ubicados un rango, si el valor no existe en el rango aparece un MsgBox "Número no encontrado"....
2 respuestas

Modificar macro para que escriba en primera celda vacía

He utilizado esta macro hecha por Elsamatilde y funciona perfectamente, pero he intentado hacer que en vez de escribir en la hoja2 en la misma celda que en la hoja1 que lo haga en la primera celda vacía del rango seleccionado por la macro, siendo...
1 respuesta

Escribir de fila en fila sin sobre escribir

Espero me puedan ayudar con esto: Tengo unos datos en diferentes celdas en la Hoja1 y necesito pasarlos a la Hoja2 en forma de tabla, osea, que la macro me mande estos datos cada cada cierto tiempo a una fila a la Hoja2 sin sobre escribir si no que...
1 respuesta

! Macro para validar datos!

Tengo una inquietud necesito una macro que pueda hacer una búsqueda entre dos hojas una de las hojas es una lista con un números cosencutivos (folio)(hoja2) y en la otra un formato(hoja1), lo que quiero que haga esta macro es que me verifique el...
1 respuesta

Ejecutar "x" macro cuando cambia valor"x" columna

Soy nuevo aquí, y tengo un dilema. Todas las respuestas que he mirado hablan de ejecutar una macro cuando se cambia una celda y no me sirven. Pues bien, tengo 5 macros en una hoja, cada una asociada a una columna con sus respectivas celdas. Las...
1 respuesta

Macro de búsqueda coincidir copiar y pegar

Preciso una macro que en hoja2 se pare en la celda a1 y que el valor que tiene esta celda lo busque en la matriz de hoja1 que va de f16 a f6516, una vez encontrado preciso que en esa misma hoja se corra a la celda de la izquierda, es decir la celda...
1 respuesta