Marcro que introduzca texto pestaña inicio y al finalizar el trabajo lo borre.

3 envíos / 0 nuevos
Último envío
jignaciomartine...
Imagen de jignaciomartinezc@hotmail.com
Offline
última acción: Hace 2 meses 4 semanas
alta: 03/02/2022 - 12:32
Puntos: 60
Marcro que introduzca texto pestaña inicio y al finalizar el trabajo lo borre.

Buenas tardes.

Despues de la consulta anterior estoy comenzando a ver (estudiar algo sobre VBA).

La verdad es que me gusta.... Aunque me esta siendo complicado.

Quisiera a ver si podeis ayudarme ya que no me sale el ejercicio.

Quiero crear una macro que de los "buenos dias" al abrir el archivo en un rango cualquiera de cualquier pestaña y que al finalizar la sesion antes de cerrar me borre el mensaje y en otro rango cualquiera me ponga el mensaje de "Adios".

Lo primero, lo de "buenos días" no hay problema, pero no consigo borrarlo al finalizar y poner el mensaje de "adios".

Cierro el archivo y aunque este desabilitadas la macro, continua con el "buenos días"

Se que para vosotros es algo banal, pero para mí ....... me esta trayendo por la calle de la amargura.

Si podeis ayudarme lo agradezco.

 

saludos!!

Javier Llamas
Imagen de Javier Llamas
Offline
última acción: Hace 3 meses 21 horas
alta: 19/03/2022 - 09:38
Puntos: 30
Marcro que introduzca texto pestaña inicio,al finalizar lo borre

Buenos días, te paso como hacerlo, el codigo en nivel : Workbook

<Codigo>

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 MsgBox "Adiós, hasta la próxima"

 Range("A1").Value = ""

 ActiveWorkbook.save

End Sub

Private Sub Workbook_Open()

 Hoja1.Range("A1").Value = "Buenos días"

 MsgBox Range("A1").Value

End Sub

</Codigo>

Suerte, Javier

AdjuntoTamaño
File buenos_dias.xlsm14.11 KB

Suerte, Javier

jignaciomartine...
Imagen de jignaciomartinezc@hotmail.com
Offline
última acción: Hace 2 meses 4 semanas
alta: 03/02/2022 - 12:32
Puntos: 60
Muchisimas gracias por tu ayuda.

Muchas gracias por tu ayuda Javier.

Que sencillo parece cuando lo leo, pero joder .... que complicado me esta siendo.

 

muchisimas gracias!!