From: Sadanand on 22 May 2010 16:39 Hi FSt1 I have same prob I want to set up a reminder in excel, this reminder must pop up 2 days before my appointment. But this pop up has to show in desktop without opening excel I have too many bills have to pay befor due date but forgot the date. There is any way to pop up comes on or before due date which is mention in excel Plz plz plz help me "FSt1" wrote: > hi > If you don't have a user form, you can use a standard message box. > this code assumes that you have a personal workbook that opens with excel > and that you have a date in B2 and a remider text in C2. > Private Sub Workbook_Open() > > Dim dat1 As Date > Dim dat2 As Date > Dim dat3 As Long > Dim msg As String > Dim msg2 As String > > msg = Workbooks("personal.xls").Sheets("sheet1").Range("C2").Value > dat1 = Workbooks("personal.xls").Sheets("sheet1").Range("B2").Value > dat2 = Date > dat3 = dat1 - dat2 > 'MsgBox Format(dat1, "m/d/yy") > > If Not IsEmpty(Workbooks("personal").Sheets("sheet1").Range("B2")) Then > > If Date < dat1 Then > MsgBox (msg & vbNewLine & _ > "That is on " & dat1 & vbNewLine & _ > " or " & dat3 & " days from now.") > End If > Else > Exit Sub > End If > End Sub > > > "NickHK" wrote: > > > Where is the appointment date ? > > In a workbook ? > > Assuming you have a suitable userform with a label: > > > > Private Sub Workbook_Open() > > Dim AppointDate As Date > > > > AppointDate = Worksheets(1).Range("A1") > > > > If DateDiff("d", Date, AppointDate) < 2.5 Then > > With UserForm1 > > .Label1.Caption = "You have an appointment on:" & vbNewLine & > > Format(AppointDate, "Long date") > > .Show vbModeless > > End With > > End If > > End Sub > > > > NickHK > > > > "Leeo" <Leeo(a)discussions.microsoft.com> wrote in message > > news:DD25D6EC-90E3-4B9F-9D76-C9CE8E96A19C(a)microsoft.com... > > > I want to set up a reminder in excel, this reminder must pop up 2 days > > before > > > my appointment. > > > > > > I know you can do this in outlook but i was wondering if it is possible in > > > excel? > > > > > >
From: Jef Gorbach on 22 May 2010 18:08 "But this pop up has to show in desktop without opening excel " This requirement complicates matters slightly bc you'll need to run the excel vba code inside a true scripting language like vbs/ powershell to access excel in the background so it doesnt actually appear to be opening.
From: JLGWhiz on 22 May 2010 20:42 Or use Outlook Caledar, which provides that type of facility by simply making a caledar entry. The only prerequisite is that you must have Outlook open when the time rolls around. "Jef Gorbach" <jefgorbach(a)gmail.com> wrote in message news:1db5c4b2-eaf8-403b-8712-4640ea6f9397(a)k25g2000prh.googlegroups.com... > "But this pop up has to show in desktop without opening excel " > This requirement complicates matters slightly bc you'll need to run > the excel vba code inside a true scripting language like vbs/ > powershell to access excel in the background so it doesnt actually > appear to be opening. >
From: Sadanand on 23 May 2010 12:22 Hi Jef Im trying the same but Im not able to understand could u give me Add-in file regarding the same code. Im not understand this code language. or could u give me a step by step process plz I had copy thay code then I open the excel and then past the code in excel VB and saved that workbook in desktop & in excel B2 I was wrote 23-May-2010 & in C2 I was wrote my bills details but before 2 date & on due date pop up not comes on my desktop plz help ( plz if possible pop up comes on due date & I dont want only in excel when excel is onend or not pop up has to comes on desktop plz help me) "Jef Gorbach" wrote: > "But this pop up has to show in desktop without opening excel " > This requirement complicates matters slightly bc you'll need to run > the excel vba code inside a true scripting language like vbs/ > powershell to access excel in the background so it doesnt actually > appear to be opening. > > . >
From: Sadanand on 25 May 2010 15:13 Hi Fst1 Plz plz help me for the same Im trying the same but Im not able to understand could u give me Add-in file regarding the same code. Im not understand this code language. I dont know where should this code past or could u give me a step by step process plz I had copy thay code then I open the excel and then past the code in excel VB and saved that workbook in desktop & in excel B2 I was wrote 23-May-2010 & in C2 I was wrote my bills details but before 2 date & on due date pop up not comes on my desktop plz help ( plz if possible pop up comes on due date & I dont want only in excel when excel is onend or not pop up has to comes on desktop plz help me) And one more thing if in column "B" you u found any date then respect cell of column "C" details will be pop up ( I required this function not only for one cell but also column Plz Plz help me ) Sadanand "FSt1" wrote: > hi > If you don't have a user form, you can use a standard message box. > this code assumes that you have a personal workbook that opens with excel > and that you have a date in B2 and a remider text in C2. > Private Sub Workbook_Open() > > Dim dat1 As Date > Dim dat2 As Date > Dim dat3 As Long > Dim msg As String > Dim msg2 As String > > msg = Workbooks("personal.xls").Sheets("sheet1").Range("C2").Value > dat1 = Workbooks("personal.xls").Sheets("sheet1").Range("B2").Value > dat2 = Date > dat3 = dat1 - dat2 > 'MsgBox Format(dat1, "m/d/yy") > > If Not IsEmpty(Workbooks("personal").Sheets("sheet1").Range("B2")) Then > > If Date < dat1 Then > MsgBox (msg & vbNewLine & _ > "That is on " & dat1 & vbNewLine & _ > " or " & dat3 & " days from now.") > End If > Else > Exit Sub > End If > End Sub > > > "NickHK" wrote: > > > Where is the appointment date ? > > In a workbook ? > > Assuming you have a suitable userform with a label: > > > > Private Sub Workbook_Open() > > Dim AppointDate As Date > > > > AppointDate = Worksheets(1).Range("A1") > > > > If DateDiff("d", Date, AppointDate) < 2.5 Then > > With UserForm1 > > .Label1.Caption = "You have an appointment on:" & vbNewLine & > > Format(AppointDate, "Long date") > > .Show vbModeless > > End With > > End If > > End Sub > > > > NickHK > > > > "Leeo" <Leeo(a)discussions.microsoft.com> wrote in message > > news:DD25D6EC-90E3-4B9F-9D76-C9CE8E96A19C(a)microsoft.com... > > > I want to set up a reminder in excel, this reminder must pop up 2 days > > before > > > my appointment. > > > > > > I know you can do this in outlook but i was wondering if it is possible in > > > excel? > > > > > >
|
Pages: 1 Prev: Save in different folder Next: Drill down pivot table data via VBA macro |