Help with an idea

[konskrypt]

Hi all.

I have a spreadsheet that i use to keep track of my sales accounts.
On that sheet I have dates that actions need to be done.
I,m trying to find out if there is a way of either creating some sort of notification, that would appear when i open the sheet, or that could transfer the information to another sheet that i can then use as a to do sheet.
Lets say A1 is the name A2 is the task and A3 is the date its due, is there a way(s) of doing this.

Thanks in advance

 

[My Aswer Is This]

I'm glad your trying to learn Vba.

So I gave you a script doing things like you asked for and you planned to change the script to suit your needs with information you did not give me. And that's great that you want to figure things out. yourself.

So try changing the script the way you now think it should be and post your script here and i will look at it and provide suggestions.

 

[konskrypt]

Sorry I should have said exactly what I have when I started this thread.
A4 is the name B4 is a created date C4 is project D4 is Type E4 is an action date F4 is the action to be carried out G4 is status H4 is date status changed I4 is Value and J4 is turnaround. Column A is constantly increasing as i add more names (accts) to the sheet. The date I am focusing on is in column G.

I would like this to run automatically as well if possible.

Im going to have a go and see if i can figure it out, will let you know

 

[konskrypt]

Date is in E4 not in G

 

[My Aswer Is This]

This will copy the rows to a new sheet named Todays date.
Now the message may not say what you want but that is because you have not said exactly what you want the message to say.

You cannot just say I want a Message to popup without saying exactly what you want the message to say.
Now you can only run this script once a day. Otherwise you will be creating sheets with duplicate names.

Sub Check_Dates()
Application.ScreenUpdating = False
'Date Modified 2-22-18 4:45 PM EST
Dim i As Long
Dim ans As String
Dim r As Long
Dim mss As String
Dim Sn As String
Sn = "Master"
Sheets(Sn).Activate
Dim Lastrow As Long
mss = "These Task are overdue"
i = 0
Lastrow = Sheets(Sn).Cells(Rows.Count, "A").End(xlUp).Row
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(Date, "MMM-DD-YYYY")
    For i = 2 To Lastrow
        If Sheets(Sn).Cells(i, "G").Value < Date Then
            ans = ans & Sheets(Sn).Cells(i, 1).Value & "   " & Sheets(Sn).Cells(i, 2).Value & "  " & Sheets(Sn).Cells(i, 3).Value & vbNewLine
            r = r + 1
            Sheets(Sn).Rows(i).Copy Sheets(Sheets.Count).Rows(r)
        End If
    Next
MsgBox mss & vbNewLine & vbNewLine & ans
Application.ScreenUpdating = True
End Sub

 

[konskrypt]

That is Fantastic! Thank you. I was getting no where with trying to sort it myself.

 

[My Aswer Is This]

That is Fantastic! Thank you. I was getting no where with trying to sort it myself.

Glad I was able to help you.

 

[konskrypt]

Hi,
In the code that you wrote for me is there anyway of ignoring blank cells within the column?
When an account is clear the date is removed, and is being added to the sheet.
If not its no problem, was just wondering (hoping)

 

[My Aswer Is This]

Try this:

Sub Check_Dates()
Application.ScreenUpdating = False
'Date Modified 2-27-18 2:45 PM EST
Dim i As Long
Dim ans As String
Dim r As Long
Dim mss As String
Dim Sn As String
Sn = "Master"
Sheets(Sn).Activate
Dim Lastrow As Long
mss = "These Task are overdue"
i = 0
Lastrow = Sheets(Sn).Cells(Rows.Count, "G").End(xlUp).Row
Sheets.Add(After:=Sheets(Sheets.Count)).Name = Format(Date, "MMM-DD-YYYY")
    For i = 2 To Lastrow
        If Sheets(Sn).Cells(i, "G").Value < Date And Sheets(Sn).Cells(i, "G").Value <> "" Then
            ans = ans & Sheets(Sn).Cells(i, 1).Value & "   " & Sheets(Sn).Cells(i, 2).Value & "  " & Sheets(Sn).Cells(i, 3).Value & vbNewLine
            r = r + 1
            Sheets(Sn).Rows(i).Copy Sheets(Sheets.Count).Rows(r)
        End If
    Next
MsgBox mss & vbNewLine & vbNewLine & ans
Application.ScreenUpdating = True
End Sub

 

[konskrypt]

You Sir are brilliant!. Thank you

 

[My Aswer Is This]

Glad I was able to help you.
Come back here to Mr. Excel next time you need additional assistance.

You Sir are brilliant!. Thank you