Solved

# Date Generator For it to show Days Left for due date

Posted on 2016-09-24
70 Views
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.

0
Question by:Omar Hernandez
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 3
• 2

LVL 31

Accepted Solution

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

In G6
``````=IF(B6<>"",B6-TODAY(),"")
``````
and then format the formula cell as General.
0

Author Comment

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
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 31

Expert Comment

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

Author Closing Comment

ID: 41813616
Better than what i have expected thanks a mil Neeraj
0

LVL 31

Expert Comment

ID: 41813621
You're welcome Omar! Glad to help.
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

### Suggested Solutions

Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
The viewer will learn how to create two correlated normally distributed random variables in Excel, use a normal distribution to simulate the return on different levels of investment in each of the two funds over a period of ten years, and, create a …
This Micro Tutorial will demonstrate how to create pivot charts out of a data set. I also added a drop-down menu which allows to choose from different categories in the data set and the chart will automatically update.
###### Suggested Courses
Course of the Month9 days, 6 hours left to enroll