Boton insetar datos en celdas

[horrido]

Hola, estoy necesitando poner una Macro a un boton, que al tildarlo, tire tres datos distintos a 3 celdas.
EJ: tengo Celda A1 A2 y A3, y al tildar el boton, en celda A1 diga "Pato", en Celda A2...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Toldeman]

Hola.

Asigna al boton esta macro:

Sub animales()
[A1] = "Pato"
[A2] = "Perro"
[A3] = "Gato"
End Sub

Un saludo.

 

[horrido]

Hola, muy bueno tu aporte, pero al adaptarlo, me sale error depurar. esta es la adaptacion:

Spoiler

Sub Macro555()
[G5] = "=SI($T$5="";"";BUSCARV($T$5;PERSONAL!$A$2:$B$6000;2;0))"
[L5] =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

Hola, lo paortado por Toldeman va perfecto.
Sub Animales()
[G5] = "Pato"
[L5] = "Perro"
[R5] = "Gato"
End Sub

pudes probar con:
Sub Animales2()
Range("G5") = "Pato"
Range("L5") = "Perro"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[horrido]

si, esta muy bien. pero los testee and dont work
pero tengo 2 dramas.
el primero es que quiero pegar formulas, capaz es por eso.
el segundo es que , por ejemplo, G esta unido hasta J, L esta...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Adrian]

No entiendo, pero van ejemplos:

Sub Ejemplos()
Range("G5").FormulaLocal = "=A2+B2"
Range("L5").FormulaLocal = "=PROMEDIO(A2:B2)"
End Sub

 

[horrido]

gracias Adrian. Ese ".formulalocal" me funciono! :D SOLUCIONADO