Blanchetdb
Board Regular
- Joined
- Jul 31, 2018
- Messages
- 161
- Office Version
- 2016
- Platform
- Windows
[TABLE="width: 500"]
<tbody>[TR]
[TD]First Name
[/TD]
[TD]Last Name
[/TD]
[TD]email address
[/TD]
[TD]registration date
[/TD]
[TD]#day since registration
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]John
[/TD]
[TD]Smith
[/TD]
[TD]john.smith@gmail.com
[/TD]
[TD]2018/04/29
[/TD]
[TD]360
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Jane
[/TD]
[TD]Doe
[/TD]
[TD]jane.doe@gmail.com
[/TD]
[TD]2018/04/29
[/TD]
[TD]360
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Hi,
I need to be able to send an email to a individual if the number of days between their registration date and todays date = 360 days.
I presently have spreadsheet that contains over 5000 rows where each row contains information submitted by the individual (see above)
I have the email portion figured out but I can't get the coding necessary to trigger the email. I need the macro to read through column X on all rows and if the value is 360 then an email is sent to the address (column C) in that row
can this be done?
I tried the following but it only generates one email
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count < 1 Then Exit Sub
If Not Application.Intersect(Range("X2:X7000"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value = 360 Then
Call renewalemail
End If
End If
End Sub
thank you
<tbody>[TR]
[TD]First Name
[/TD]
[TD]Last Name
[/TD]
[TD]email address
[/TD]
[TD]registration date
[/TD]
[TD]#day since registration
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]John
[/TD]
[TD]Smith
[/TD]
[TD]john.smith@gmail.com
[/TD]
[TD]2018/04/29
[/TD]
[TD]360
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]Jane
[/TD]
[TD]Doe
[/TD]
[TD]jane.doe@gmail.com
[/TD]
[TD]2018/04/29
[/TD]
[TD]360
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]
Hi,
I need to be able to send an email to a individual if the number of days between their registration date and todays date = 360 days.
I presently have spreadsheet that contains over 5000 rows where each row contains information submitted by the individual (see above)
I have the email portion figured out but I can't get the coding necessary to trigger the email. I need the macro to read through column X on all rows and if the value is 360 then an email is sent to the address (column C) in that row
can this be done?
I tried the following but it only generates one email
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count < 1 Then Exit Sub
If Not Application.Intersect(Range("X2:X7000"), Target) Is Nothing Then
If IsNumeric(Target.Value) And Target.Value = 360 Then
Call renewalemail
End If
End If
End Sub
thank you