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

Respuesta
1
Como no dejaste referencias, tendrás que armar tu macro con la grabadora.
Desde menú Herramientas, macros, optá por grabar.
Seleccioná tu celda con fórmula y clic en copiar
Sin quitar la selección, andá a menú Edición, Pegado especial, valores
Ahora detené la grabadora y en un módulo del Editor, encontrarás la instrucción o macro para esto.
Si tenés dificultades para adaptarla a una macro general como puede ser en la apertura del libro enviame lo que encontraste en el módulo.
OK, ven te explico que quiero hacer exactamente, ya logre que me borre las fórmulas y me deje los resultados con esto:
Sub BorrarFormulas()
Application.ScreenUpdating = False
Sheets("registro").Select
Range("F:F").Select
Selection.Copy
Sheets("registro").Select
Range("F:F").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("registro").Select
Range("F4").Select
Application.ScreenUpdating = True
End Sub
Pero esto me borra todos las formulas de la columna f, esa columna tiene esta formula
=si(H4>0;HOY();"") -->> esto para F4
Entonces lo que quiero es que me borre las fórmulas unicamente cuando se cumpla esta fórmula, de tal forma que me queden habilitadas las otras celdas para el momento en que se digite algún dato, para eso trate de meter un if así:
Sub BorrarFormulas()
If Range("H:H") > 0 Then
Application.ScreenUpdating = False
Sheets("registro").Select
Range("F:F").Select
Selection.Copy
Sheets("registro").Select
Range("F:F").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("registro").Select
Range("F4").Select
Application.ScreenUpdating = True
End If
End Sub
Pero no me sirvió, te agradecería que me colaboraras, y disculpa tanta molestia
Bien, en ese caso necesitás recorrer el rango, ya sea H o F y evaluar 1 x 1 con un bucle.
Esta rutina evalúa si aún tiene fórmula y en col H el valor es > 0:
Sub PegaValores()
'x Elsamatilde
'busco la última fila con datos en col que SIEMPRE TENDRÁ DATOS hasta el final
'Final = ActiveSheet.Range("A65536").End(xlUp).Row
'o coloco un nro total de filas a revisar
Final = 30
'recorro col F. Si aún tiene fórmula y el valor de H es > 0 copio valor en lugar de fórmula
Range("F2").Select
While ActiveCell.Row <= Final
If ActiveCell.HasFormula And ActiveCell.Offset(0, 2) > 0 Then
    ActiveCell.Copy
    ActiveCell.PasteSpecial xlPasteValues
End If
'paso a la fila sgte para continuar con el bucle
ActiveCell.Offset(1, 0).Select
Wend
Application.CutCopyMode = False
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

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

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
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

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

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

Ir a hoja al haber ejecutado una macros previamente

Tengo esta macro en un botón el cual guarda información: If estado <> 1 Then MsgBox "NO SE HA IMPRESO LA NOTA", vbOKOnly + vbExclamation, "NO SE PUEDE PROCEDER" Exit Sub End If 'vuelvo a colocar en 0 la variable para futuras ejecucuiones estado = 0...
2 respuestas

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
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