Hello all,
I'm wondering if anyone can help me please.
I run a small company and I've had a customer data base created in Excel. I collect the data from telephone enquiries and then the data base is supposed to generate a pop up after 308 days to remind me to eMail the client asking if they wish to use my services for the following year.
I only want to see these pop-up once, not once every session but just once. As soon as I've clicked OK (or 'X'), I don't want to see the popup again.
I have a VERY limited knowledge of Excel and VB but this is the code that I have at the minute (there maybe more code than nessesary I just pasted the whole lot):
Private Sub Workbook_Open()
Are there any simple adjustments that I can make so I only see the pop-up once please?
Thank-you in advance,
Kind Regards,
Chris
I'm wondering if anyone can help me please.
I run a small company and I've had a customer data base created in Excel. I collect the data from telephone enquiries and then the data base is supposed to generate a pop up after 308 days to remind me to eMail the client asking if they wish to use my services for the following year.
I only want to see these pop-up once, not once every session but just once. As soon as I've clicked OK (or 'X'), I don't want to see the popup again.
I have a VERY limited knowledge of Excel and VB but this is the code that I have at the minute (there maybe more code than nessesary I just pasted the whole lot):
Private Sub Workbook_Open()
Dim N As Long, i As Long, j As Long, h As Long
Dim namee As String
Dim eventtt As String
Dim loc As String
Dim Email As String
N = Cells(Rows.Count, "L").End(xlUp).Row
j = 2
h = 2
For i = 2 To N
If Cells(i, "L").Value > 308 Then
namee = Cells(i, "A").Value
eventtt = Cells(i, "B").Value
loc = Cells(i, "C").Value
Email = Cells(i, "I").Value
' emaill = Cells(i, "I").Value
MsgBox ("Krisger Entertainment Alert Hi " + namee + ", You Contacted Last Year Krisgar Entertainment regarding your; " + eventtt + " in " + loc + " If this is something you would like to consider once again for this year. Please feel free to give me a call, or respond to this email and I will hapily provide you what can I offer along with a Quote. ") + Email
j = j + 1
h = h + 1
End If
Next i
Dim U As Long, l As Long
Dim sysdate As String
U = Cells(Rows.Count, "A").End(xlUp).Row
For l = 2 To U
Cells(l, "K").Value = Now()
sysdate = Cells(l, "K").Value
ysdate = Format(sysdate, "dd/mm/yyyy")
Cells(l, "K").Value = sysdate
Next l
frmkrisgar.Show
End Sub
Are there any simple adjustments that I can make so I only see the pop-up once please?
Thank-you in advance,
Kind Regards,
Chris