Como activar macro al cambiar el valor de celda

Tengo una macro que abajo detallo, quiero que se active al cambiar los valores de la celda"a4" de mi hoja1, ¿qué instrucción debo agregar?,, gracias...
Sub Printer_Comanda()
'
'
Application.ScreenUpdating = False
ActiveWorkbook.Unprotect
Sheets("HOJA2").Visible = True
Sheets("HOJA1").Select
Range("A4").Select
Selection.Copy
Sheets("HOJA2").Select
Range("B3").Select
Selection.Insert Shift:=xlDown
Sheets("HOJA2").Select
Range("A3").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.FormulaR1C1 = "=NOW()"
Rows("3:3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A5").Select
Application.CutCopyMode = False
Sheets("HOJA2").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWorkbook.Protect Structure:=True, Windows:=False
Range("A4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Range("A4").Select
ActiveCell.FormulaR1C1 = "CIERRE"
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

1 Respuesta

Respuesta
1
Solo es posible si el cambio será manual, no como resultado de fórmula.
Aclarado esto, entrá al Editor, seleccioná con doble clic el objeto HOJA donde estarás haciendo cambios en la celda A4 y allí escribí esto:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(False, False) = "A4" Then Call Printer_Comanda
End Sub
Pruébala y si esto responde a tu consulta no olvides finalizarla.
Ya la probé pero hay un detalle. Parece que hace una instrucción circular, pues al cambiar manualmente el campo de la celda A4, si ejecuta la macro pero la ejecuta repetidamente si parar, ¿tendré hice algo incorrecto?
Si, estoy viendo que la rutina envía un texto a esta celda y por lo tanto se ejecuta nuevamente.
Ajustá la linea de la rutina que empieza con Private Sub dejándola así:
If Target.Address(False, False) = "A4" And Target.Value <> "CIERRE" Then Call Printer_Comanda

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Cómo modificar macro?

Esta macro lo que hace es básicamente copiar datos de una hoja a las otras dos hojas en un libro excel, pero cuando hay una formula copia la formula, ¿Cómo puedo hacer para que en lugar de copiar la formula, sólo copie los datos?. Gracias por su...
1 respuesta

Activar / Desactivar Botón en Excel con condición

Estoy trabajando con un Botón dentro de la "Hoja1" que al oprimirse ejecuta una macro y que sólo deberá estar activado cuando el contenido de una celda concreta (B2:C2) no esté en blanco o con valor 0. ¿Cómo puedo hacerlo?
1 respuesta

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Activar la hoja con la macro sin indicar el nombre

Estoy haciendo un libro con 3 hojas iguales. En cada hoja tengo 6 autoformas, cada una de ellas con una macro asignada diferente entre las de la misma hoja pero iguales de una hoja a otra. La cuestión es que la macro copia un rango, va a una cuarta...
1 respuesta

Copiar datos de una columna a otra hoja

Primero que todo felicidades por la pagina muy bonita. La pregunta es esta en mi hoja 1 capturo como 20 datos en la columna b1 hasta b20 y con un botón mandarlos a la hoja 2 que es mi base de datos solamente que en la fila 1 tengo los títulos y deseo...
2 respuestas

Copiar celdas cuando cumpla condición

Taqrdes mi pregunta es la siguiente hay una macro queme ayude a los siguiente en una hoja tengo los sgiuientes datos de la columna a a la e carlos amado 1000.00 500.00 500.00 1000. Oo pedro hdz 0 500.00 500.00 0 necesito que busque en la columna e...
1 respuesta

Macro copiar formato

Querría saber si me podéis ayudar en la siguiente cuestión. Tengo el excel 2007, y querría saber si se podría hacer una macro donde se copiara el formato de una hoja y se aplicara en la otra, es decir sería lo mismo como si lo haces con el pincel...
1 respuesta

Macro para pasar de renglón

Tengo un archivo de excel con más de 200 registros en la primer hoja, sin embargo, de cada registro, tengo que sacar en una hoja nueva 265 subregistros de un solo registro. Dicha macro ya la realice, el caso que lo que quiero es de que al apretarle...
1 respuesta