Buenas tardes para todos:

Tengo una hoja de Excel donde la celda A1 tiene la fórmula "=1+1", que tiene como resultado el número 2.

A través de VBA, sin usar barra de herramientas, quiero copiar ese valor 2 en la celda B1, pero no la fórmula.

Actualmente, el sistema sí copió lo que hay en la celda A1, pero copió la fórmula, yo necesito que copie el valor.

Ya he leído muchas páginas en Internet, entre ellas, las siguientes:

• Copy value not formula excel vba
• Copiar el resultado de una formula y pegarlo como valor automaticamente

He probado con los siguientes métodos, que no me han funcionado como lo necesito:

• .PasteSpecial Paste:=xlPasteFormats
• .Paste
• .PasteSpecial xlPasteFormats

Ya he olvidado todo lo que he probado, pero les muestro lo último que he probado:

Sheets("Hoja1").Range("A1").Select
Selection.Copy
Sheets("Hoja1").Range("B1").Select
ActiveSheet.Paste
Application.CutCopyMode = False: SendKeys "{esc}"

Gracias por su atención.

Libro1.xlsm

Así de sencillo:

    Sheets("Hoja1").Range("B1") = Sheets("Hoja1").Range("A1")
    Application.CutCopyMode = False: SendKeys "{esc}"

 

Editado el el 21 de octubre4 años por Antoni

Hace 3 horas, Antoni dijo:

Así de sencillo:

    Sheets("Hoja1").Range("B1") = Sheets("Hoja1").Range("A1")
    Application.CutCopyMode = False: SendKeys "{esc}"

 

Hola Antony:

Gracias por tu oportuna respuesta.

Eso también lo probé, pero me sigue copiando la fórmula, no el valor.

Hola

El código está bien, tiene que funcionar. me parece que tienes activada la opción Mostrar Fórmulas, solo tienes que desactivarla.

yo lo aria así de esta forma  merlyn333  espero que te funcione

Sub copiar()
  With Sheets("Hoja1").Range("A1").Copy
    '0.Copy
   With Sheets("Hoja1").Range("B1").Select
    'ActiveSheet.Paste
    'ActiveSheet.PasteSpecial xlPasteValues
    'Application.CutCopyMode = False: SendKeys "{esc}"
Range("B1").PasteSpecial xlPasteValues

 Application.CutCopyMode = False

End With
End With
End Sub

saludos

Hola

 

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False

 

 

Hace 5 horas, merlyn333 dijo:

Hola Antony:

Gracias por tu oportuna respuesta.

Eso también lo probé, pero me sigue copiando la fórmula, no el valor.

Lo que te he pasado, funciona, si o si.

Prueba el adjunto, te dejo 2 opciones distintas.

Nota: Por cierto mi nombre es Antoni, no Antony. ?

Libro1 (13).xlsm

Editado el el 21 de octubre4 años por Antoni

Buenos días para todos:

Agradezco sus rápidas respuestas.

También me disculpo con Antoni por cambiar su nombre.

Confirmo que me ha funcionado la solución de Antoni.

Yo había probado algo similar antes, no sé porqué no me funcionaba.

¡Muchas gracias!

Seguiré recomendando éste lugar.

Pueden marcar este tema como solucionado.