Saltar al contenido

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

publicado

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:

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

Featured Replies

publicado

Así de sencillo:

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

 

publicado
  • Autor
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.

publicado

Hola

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

image.thumb.png.b123fd84979696f37a38b4801b723dfb.png

publicado

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

publicado

Hola

 

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

 

 

publicado
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

publicado
  • Autor

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.

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.