VB para excel
Buenos días y gracias de antemano por las molestias.
Mi pregunta es la siguiente: necesito hacer en excel algo muy simple que consiste en que cada vez que introduzco un dato en una celda (o un textbox) y pulso enter este dato se copie en otra celda.
La celda o el textbox en el que introduzco los datos tiene que ser siempre la misma y que los datos se vayan copiando en celdas sucesivas para poder hacer un sumatorio de esos datos.
Muchas gracias por todo.
Mi pregunta es la siguiente: necesito hacer en excel algo muy simple que consiste en que cada vez que introduzco un dato en una celda (o un textbox) y pulso enter este dato se copie en otra celda.
La celda o el textbox en el que introduzco los datos tiene que ser siempre la misma y que los datos se vayan copiando en celdas sucesivas para poder hacer un sumatorio de esos datos.
Muchas gracias por todo.
1 Respuesta
Respuesta
1
Amigo Copia y pega esta macro.
Esta macro te pegara hacia en la columna a los datos que tu pongas en la celda c1, cada ves que des enter..
El código lo debes de pegar en la pestaña de la hoja donde vas a trabajar...
En tu libro de excel..
1-presiona Alt+F11
2-Da click en el nombre de la hoja de tu libro que aparenec en la parte superior izquierda de el editor de vb
3-Se habré el iditor, ya pega este código.
4-Cierra el editor de vb y pon datos en la celda c1, da enter y ve el resultado.
Esta macro te pegara hacia en la columna a los datos que tu pongas en la celda c1, cada ves que des enter..
El código lo debes de pegar en la pestaña de la hoja donde vas a trabajar...
En tu libro de excel..
1-presiona Alt+F11
2-Da click en el nombre de la hoja de tu libro que aparenec en la parte superior izquierda de el editor de vb
3-Se habré el iditor, ya pega este código.
4-Cierra el editor de vb y pon datos en la celda c1, da enter y ve el resultado.
Muchas gracias pero no veo el código del que hablas.
Sorry, no pegue elñ codigo
hay te va...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Range("c1").Value > 0 Then
Range("c1").Copy
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
Range("c1").ClearContents
End If
Exit Sub
End Sub
hay te va...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Range("c1").Value > 0 Then
Range("c1").Copy
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.PasteSpecial xlPasteValues
Range("c1").ClearContents
End If
Exit Sub
End Sub