Copia el valor de una celda en otra
Tengo en la columna A una serie de datos (ejemplo A1=5, A2=8, A3=hola etc)
Necesito que por medio de un botón o una combinación de teclas, al situarme en la celda que yo quiera por ejemplo F4 me copie el valor de A1=5, una vez copiado, se elimine la celda A1, subiendo solo la columna A (el resto de celda no se mueven).
Me sitúo en otra celda, por ejemplo E3 y copie el valor de A1 ahora 8
Y así sucesivamente
2 Respuestas
Presiona juntas las teclas ALT y F11 para entrar el Editor.
Selecciona con doble clic en el panel de tu izquierda el objeto HOJA donde vayas a trabajar con esto.
Allí copia el siguiente código:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'x Elsamatilde 'al seleccionar cualquier celda se coloca el valor de A1 'no se ejecuta sobre la col A If Target.Column = 1 Then Exit Sub Target.Value = [A1] 'se elimina la celda A1 subiendo el resto [A1].Delete xlUp End Sub
Adjunto enlace con tu consulta desarrollada para su revisión.
1. Debes de copiar el código en un módulo.
2. Para asociarlo a la combinación de teclas CONTROL + "q". Ir al menú programador--> Código-->Macros; y hacer clic en el botón opciones para que pueda mostrar el cuadro de dialogo Opciones de Macros; y finalmente introducir el carácter "q" en el cuadro de texto CONTROL +.
Sub CopiarValor()
Range("A1"). Copy
ActiveCell. PasteSpecial
Application.CutCopyMode = False
Range("A1").Delete Shift:=xlUp
End SubEjecutando la combinación de teclas CONTROL +"q", la macro se ejecuta.
De todas maneras adjunto el archivo con un ejemplo del desarrollo de tu consulta.
Espero te sirva de ayuda. Cualquier consulta estaré atento.