Formularios

Copia el siguiente procedimiento o macro y pégalo en un módulo VBA. Después
asocia el botón a este macro.
Lógicamente debes sustituir la celda A1 por la que debe de contener el
texto. Asimismo si el texto a poner es variable y lo toma de otra celda,
debes sustituir "Texto que se desea poner" por Range("Z1"), siendo Z1 la
celda donde se ubica el texto que se debe poner.

Sub Poner_Borrar_Texto ()
If activesheet.range("A1")="" then
activesheet.range("A1")="Texto que se desea poner"
else
activesheet.range("A1")=""
end if
End sub

Esperando haberte sido de ayuda, te saluda

Juan Carlos Pérez
Asturias-España


"Daniel Sánchez López" escribió en el mensaje
news:e#

Hola buenas a todos los del grupo

Mi pregunta es la siguiente de que forma mediante un botón de opción del

formulario con el simple

hecho de que le de un click me ponga un texto y al darle de nuevo click

borre el texto y

asi...serian tan amable de ayudarme por favor

Un saludo,
Daniel.

Gracias Catarelo63 !!!!

Funciona mas que bien muchas gracias.

Un saludo
Daniel.

Cotarelo63 escribió en el mensaje de noticias

Copia el siguiente procedimiento o macro y pégalo en un módulo VBA. Después
asocia el botón a este macro.
Lógicamente debes sustituir la celda A1 por la que debe de contener el
texto. Asimismo si el texto a poner es variable y lo toma de otra celda,
debes sustituir "Texto que se desea poner" por Range("Z1"), siendo Z1 la
celda donde se ubica el texto que se debe poner.

Sub Poner_Borrar_Texto ()
If activesheet.range("A1")="" then
activesheet.range("A1")="Texto que se desea poner"
else
activesheet.range("A1")=""
end if
End sub

Esperando haberte sido de ayuda, te saluda

Juan Carlos Pérez
Asturias-España


"Daniel Sánchez López" escribió en el mensaje
news:e#
> Hola buenas a todos los del grupo
>
> Mi pregunta es la siguiente de que forma mediante un botón de opción del
formulario con el simple
> hecho de que le de un click me ponga un texto y al darle de nuevo click
borre el texto y
> asi...serian tan amable de ayudarme por favor
>
> Un saludo,
> Daniel.
>
>