Solved

Date Generator For it to show Days Left for due date

Posted on 2016-09-24
5
36 Views
Last Modified: 2016-09-24
Hello Experts Exchange Community, trying to create a code to do the following.

Search:
search for today date.

Then calculate how many days is left for each rows, that has dates on the "B" column.

Have it display on "G" column

Thanks guys for the help and your time.

Date-Generator.png
0
Comment
Question by:Omar Hernandez
  • 3
  • 2
5 Comments
 
LVL 28

Accepted Solution

by:
Subodh Tiwari (Neeraj) earned 500 total points
ID: 41813471
Assuming your date is in B6, then try this...

In G6
=IF(B6<>"",B6-TODAY(),"")

Open in new window

and then format the formula cell as General.
0
 

Author Comment

by:Omar Hernandez
ID: 41813489
Hey there Neeraj this code works great, anyway i can add it to this macro so that anytime i add this function this code will also be added on the I Collumn. I tried the following, but i had no luck.

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("GENERAL")

If ActiveCell.EntireRow.Cells(1, 5) <> "" Then Label3.Caption = ActiveCell.EntireRow.Cells(1, 5)
    If ActiveCell.EntireRow.Cells(1, 4) <> "" Then Label4.Caption = ActiveCell.EntireRow.Cells(1, 4)
     If ActiveCell.EntireRow.Cells(1, 6) <> "" Then Label5.Caption = ActiveCell.EntireRow.Cells(1, 6)

'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'check for a Name number
If Trim(Me.textbox_name.Value) = "" Then
Me.textbox_name.SetFocus
MsgBox "Please complete the form"
Exit Sub
End If

'copy the data to the database
        ws.Cells(iRow, 3).Value = "          " & Me.textbox_name.Value
        ws.Cells(iRow, 4).Value = Me.Label4.Caption
        ws.Cells(iRow, 5).Value = Me.Label3.Caption
        ws.Cells(iRow, 6).Value = Me.Label5.Caption
        ws.Cells(iRow, 7).Value = "2"
        ws.cells(irow, 9).value = IF(B7<>"",B7-TODAY(),"")


'clear the data
Me.textbox_name.Value = ""
Me.textbox_name.SetFocus
End Sub
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41813613
Maybe like this...
ws.Cells(iRow, 9).Formula = "=IF(B" & iRow & "<>"""",B" & iRow & "-TODAY(),"""")"
ws.Cells(iRow, 9).NumberFormat = "General"

Open in new window

0
 

Author Closing Comment

by:Omar Hernandez
ID: 41813616
Better than what i have expected thanks a mil Neeraj
0
 
LVL 28

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41813621
You're welcome Omar! Glad to help.
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

A simple tool to export all objects of two Access files as text and compare it with Meld, a free diff tool.
This code takes an Excel list of URL’s and adds a header titled “URL List”. It then searches through all URL’s in column “A”, looking for duplicates. When a duplicate is found, it is moved to the top of the list. The duplicate URL’s are then highlig…
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now