Se pueden enlistar solo las palabras que yo marque en excel

[fray]

Buen dia espero me puedan ayudar
tengo un lista en la columna A del 1 al 5 en las celdas dice , limones, tomates, leche, pan, lechuga

al lado de cada palabra hice un boton al cual le asigne un macro que al darle clic selecciona la celda a su lado (palabra) y le da copiar pero quiero que me pegue la palabra en diferentes partes, por ejemplo si doy copiar a2 (Tomates) quiero que lo pegue en la celda c1, si doy copiar a4 (pan) quiero que lo pegue en la celda c2, es decir que excel busque la celda bacia que este en la columna C para que ponga al palabra que yo quiera,
1.se podra hacer esto?
2. nececitare estudiar visual basic u otro programa para hacer esto
3. Se podra hacer esto en PC como en MAC
4.existe en este foro algun apartado para excel o me podrian recomendar alguno especificamente de excel?

estimados expertos de excel agradeceria su ayuda
saludos

[judoka]

hola, en respuesta a tus preguntas:
1.- si se puede
2.- no creo que necesites estudiar visual con un poco de manejo en macros es suficiente
3.- en pc se puede , me imagino que en mac tambien
4.- yo creo que estas en el foro adecuado
ahora si explicas un poco mejor lo que quieres tal vez te podemos ayudar mejor.
lo que yo entiendo es que al darle al boton busque en la columna c la primeracelda vacia y se pegue el valor ahi. es eso???

[fray]

en serio que batalle para explicarlo yo creo que podria ser mas explicativo con una ilustracion pero no se como publicarla en mi mensaje (igual haver si me pasan el tip) pero esa es exactamente la idea pero la verdad con macros no me imagino como pudria hacerlo ojala y me puedan dar una pista,

gracias espero respuesta

[judoka]

mira esto se me ocurrio para tu ejemplo.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
columna = ActiveCell.Column()
fila = ActiveCell.Row()
If columna = 1 Then
Cells(fila, columna).Select
Selection.Copy
Range("C2").Select

Set r2 = ActiveCell
Do While Not IsEmpty(ActiveCell)
Set r2 = r2.Offset(1, 0)

ActiveCell.Offset(1, 0).Select
Loop



ActiveSheet.Paste


Else
MsgBox "función no disponible para esta celda"
SendKeys "{ESC}" '
End If
Application.CutCopyMode = False
End Sub


tienes que ir a la opcion de editor de visual basic y copiar este codigo
en thisworkbook

[judoka]

se me olvido decirte que basta con que hagas doble click sobre el articulo de la columna A para wque lo pegue el la primera celda vacia que encuentre en la columna C