Macros; como evaluar el resultado de una fórmula...

Hola, ojalá puedas atender mi consulta...
Tengo la siguiente macro que copia determinados datos y los pega en otra, solo cuando alguna celda de la columna QUE toma el valor "OK"--- el problema, es que el valor "OK" es el resultado de una fórmula SI, y al parecer solo funciona cuando modifico el valor manualmente se ejecuta la macro... Y funciona cuando tiene que evaluar el resultado de la fórmula...
Que instrucción debería agregar o que linea modificar para indicarle a la macro que lo que esta evaluando es el resultado de una fórmula...
Atento a tus comentarios, y desde ya muchas gracias...
Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
If Target.Row >= 11 And Target.Column = 17 And Target.Count = 1 Then
If Target.Value = "OK" Then
desocupada = Sheets("macro_giu").Range("B65536").End(xlUp).Row + 1
Target.Offset(0, -1).Copy
Sheets("macro_giu").Cells(desocupada, 15).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -2).Copy
Sheets("macro_giu").Cells(desocupada, 14).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -3).Copy
Sheets("macro_giu").Cells(desocupada, 13).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -6).Copy
Sheets("macro_giu").Cells(desocupada, 10).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -9).Copy
Sheets("macro_giu").Cells(desocupada, 7).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -10).Copy
Sheets("macro_giu").Cells(desocupada, 6).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -11).Copy
Sheets("macro_giu").Cells(desocupada, 5).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -12).Copy
Sheets("macro_giu").Cells(desocupada, 4).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -14).Copy
Sheets("macro_giu").Cells(desocupada, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Target.Offset(0, -1).Select
End If
End If
Application.ScreenUpdating = True
End Sub

1 Respuesta

Respuesta
1
If Target.Text = "Ok"
Gracias por atender mi consulta...
Pero, desgraciadamente la modificación del target no solucionó la problemática... aún tengo que situarme en el interior de la celda y pulsar tab o enter...
Me da la sensación que el cambio que evalúa la macro solo funcionara cuando el cambio se realiza manual...
Saludos,
Te sugiero que insertes el código en un Módulo, luego en el evento Change de la hoja pones:
Application.ScreenUpdating = False
If Target.Row >= 11 And Target.Column = 17 And Target.Count = 1 Then
If Target.Value = "OK" Then Tu_Modulo
Si no funciona, podrías insertar el código en un botón.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Capturar información de varias hojas en una nueva

Estoy tratando de automatizar la captura de información a partir de varias hojas de un mismo libro de excel, una vez grabada la macro esta solo me efectúa el proceso hasta la hoja 4 del libro y en total son 287 hojas. Que sentencia debo incluir al...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Borrar Fórmula sin borrar datos

Quiero que una fórmula de excel se ejecute y cuando se halle el resultado se borre la fórmula y me quede unicamente el resultado en la celda, de tal forma que la próxima vez que abra el libro no se cambie el dato anterior.
1 respuesta

Macro para copiar celdas con formato (color) a otra celda

Ya se me indicó en una ocasión la forma de trasladar (copiar) celdas de una hoja a otra con una macro. Ahora quisiera que también se transfiriesen no sólo el valor de las celdas sino también el color. Os adjunto parte del código de la macro que...
1 respuesta

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Macro para copiar datos de una hoja a otra

Bueno este es el macro que hice, me copia los datos de la "hoja factura" pero me los manda mal a la "hoja acumulador" me los pone mezclados: Sub asi() Application.ScreenUpdating = False Worksheets("FACTURA").Range("F3").Copy...
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

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

Actualizar un registro de una tabla con macros.

Soy muy asiduo a esta web, es muy interesante y útil, me incribi para preguntar por primera vez y ojala la respuesta sea pronta. Mi problema es.. Tengo una hoja (INGRESO) la cual ingresa productos a una tabla que esta en otra hoja (INV-08) y el...
1 respuesta