Groups > microsoft.public.excel.programming > #109132

Re: Email on save

From	Claus Busch <claus_busch@t-online.de>
Newsgroups	microsoft.public.excel.programming
Subject	Re: Email on save
Date	2016-07-29 21:43 +0200
Organization	A noiseless patient Spider
Message-ID	<nngbkr$mqu$1@dont-email.me> (permalink)
References	(2 earlier) <XnsA65272859592Cauricauricauricauric@213.239.209.88> <nnb3fr$7qg$1@dont-email.me> <674f11e3-711b-443d-8fd1-287ed72ccee3@googlegroups.com> <nng5h1$vpo$1@dont-email.me> <df8d69a1-214c-4563-a466-0430f700ac2d@googlegroups.com>

Show all headers | View raw

Hi Paul,

Am Fri, 29 Jul 2016 12:12:31 -0700 (PDT) schrieb Paul Doucette:

> Yes, that's correct. A through J in that order.

in a standard module:

Public LRowOld As Long
Sub RowCheck()
LRowOld = Cells(Rows.Count, 1).End(xlUp).Row
End Sub

In module of Sheet1:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then RowCheck
End Sub

In module of workbook:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As
Boolean)
Dim LRow As Long

LRow = Sheets("Sheet1").UsedRange.Rows.Count
If LRow = LRowOld Then Exit Sub
'Insert here the code to create your email
End Sub


Regards
Claus B.
-- 
Windows10
Office 2016

Thread

Email on save Paul Doucette <pauld@mewood.com> - 2016-07-27 08:18 -0700
  Re: Email on save Claus Busch <claus_busch@t-online.de> - 2016-07-27 17:28 +0200
  Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-07-27 10:06 -0700
  Re: Email on save "Auric__" <not.my.real@email.address> - 2016-07-27 18:12 +0000
    Re: Email on save "Auric__" <not.my.real@email.address> - 2016-07-27 18:15 +0000
      Re: Email on save Claus Busch <claus_busch@t-online.de> - 2016-07-27 21:53 +0200
        Re: Email on save "Auric__" <not.my.real@email.address> - 2016-07-28 07:25 +0000
        Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-07-29 10:35 -0700
          Re: Email on save Claus Busch <claus_busch@t-online.de> - 2016-07-29 19:58 +0200
            Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-07-29 12:12 -0700
              Re: Email on save Claus Busch <claus_busch@t-online.de> - 2016-07-29 21:43 +0200
                Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-07-29 13:42 -0700
                Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-08-03 13:58 -0700
                Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-08-03 15:32 -0700
                Re: Email on save Claus Busch <claus_busch@t-online.de> - 2016-08-04 00:57 +0200
          Re: Email on save GS <gs@v.invalid> - 2016-07-29 14:27 -0400
            Re: Email on save GS <gs@v.invalid> - 2016-07-30 11:51 -0400
  Re: Email on save Paul Doucette <pauld@mewood.com> - 2016-07-27 11:33 -0700
  Re: Email on save ltomama0945 <ltomama0945@gmail.com> - 2016-07-29 02:10 +0100
  Re: Email on save Tindien3579pro <Tindien3579pro@gmail.com> - 2016-07-29 06:19 +0100
  Re: Email on save phukienxk123 <phukienxk123@gmail.com> - 2016-07-29 18:47 +0100
  Re: Email on save BùiÁnhn1 <TrầnSangf5@gmail.com> - 2016-07-30 11:42 +0100
  Re: Email on save NgoHuyeenc7 <BuiHuyeen d8@gmail.com> - 2016-07-31 05:01 +0100
  Re: Email on save banhtrungthu68 <banhtrungthu68@gmail.com> - 2016-08-04 00:33 +0100

csiph-web