Plantilla con Macro de Entrada y Salida automatica

Esta plantillas muestra 2 macros que hacen cada una, una tarea especifica. Al abrir el libro se muestra un mensaje de Bienvenida y al salir del libro muestra un mensaje de Despedida todo de forma automatica.

Macro de Entrada:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim txt As String
Dim acel As String
For i = 1 To 10000
acel = “A” & i
If Not Sheets(“Salida”).Range(acel).Value = “/*” Then
txt = txt & Sheets(“Salida”).Range(acel).Value & vbCrLf
Else
Exit For
End If
Next i
MsgBox txt, vbInformation, “Aviso…”
End Sub

Macro de Salida:

Private Sub Workbook_Open()
Dim txt As String
txt = “Bienvendos, Ingresando ” & vbCrLf _
& “Visita Nuestra Pàgina Web: www.jfksoft.com” & vbCrLf _
& “Si requieres soporte escribe a: soporte@jfksoft.com”
MsgBox txt, vbInformation, “Aviso…”
End Sub

Puedes descargarlo en el siguiente enlace es GRATIS

Macros de Entrada y Salida

 

Deja un comentario