Hola Rosa: Nuevamente Usuario
05 de Diciembre del 2005

rosi he leido y probado los codigos de copyar y pegar pero: unicamente hace el pegado en la Celda A1 de la Hoja2 y quisiera que se fuera creando un listado en la Hoja2 segun las pulsasiones que se hagan con el boton creado en la Hoja1 celda A1 mil gracias estoy iniciando en esto; OSEA LO QUE HAYA EN LA CELDAA1 DE LA HOJA1- AL PULSAR EL BOTON LO QUE HAY EN ESTACELDA LO PEGUE A LA CELDA A1 DE LA HOJA2 Y SI SE VUELBE A PULSAR EL BOTON EL CONTENIDO DE LA CELDA A1 DE LA hOJA1. YA NO PASARA A LA CELDA A1 DE LA HOJA2 SI NO A LA CELDA A2 DE LA HOJA2 Y ASI SUCECIVAMENTE CREANDO UN LISTADO EN LA HOJA2 A PARTIR DE LA CELDA A1,A2,

Rosa
05 de Diciembre del 2005

Creo que esto es lo que necesitas:

Dim Contador As Long

Private Sub CommandButton1_Click()

If Contador < 65000 Then
Hoja2.Cells(Contador + 1, 1) = Hoja1.Cells(1, 1)
Contador = Contador + 1
Else
MsgBox "No puede ingresar más elementos a la columna", vbExclamation
End If

End Sub

Recuerda que el excel no te permite más de 65000 filas. Espero que te ayude.