Copiar valor (no la fórmula) de celda A1 en B1 usando VBA

[merlyn333]

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

[Antoni]

Así de sencillo:

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

 

[merlyn333]

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.

[DiegoPC]

Hola

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

[isidrod]

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

[Luis Caballero]

Hola

 

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

 

 

[Antoni]

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

[merlyn333]

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.